فیکس کردن اندازه عرض ستونهای ساب فرم

[m3343kh]

با سلام خدمت دوستان عزیز
چطور میتوان عرض ستون های ساب فرم را همیشه در حالت Best Fit قرار داد و غیر قابل تغییر کرد؟

[mazoolagh]

سلام و روز خوش

به طور منطقی منظور شما در datasheet view هست،
پاسخ ساده و کوتاه: نمیشه (تا جایی که میدونم)!
چون این ویو برای این هست که کاربر دستش در این کارها باز باشه (تغییر پهنای ستون یکی از اینهاست).

ولی میتونین به سادگی پهنای همه ستونها رو روی best fit تنظیم کنین؛
کافی هست پهنای ستون رو برابر 2- بگذارین:

Sub SetToBestFit()

    Dim ctl As Control

    For Each ctl In Me.Controls

        Select Case ctl.ControlType

            Case acTextBox, acCheckBox, acComboBox

                ctl.ColumnWidth = -2

        End Select

    Next ctl

End Sub

[m3343kh]

بسیار سپاسگزارم

[eb_1345]

سلام و روز خوش

به طور منطقی منظور شما در datasheet view هست،
پاسخ ساده و کوتاه: نمیشه (تا جایی که میدونم)!
چون این ویو برای این هست که کاربر دستش در این کارها باز باشه (تغییر پهنای ستون یکی از اینهاست).

ولی میتونین به سادگی پهنای همه ستونها رو روی best fit تنظیم کنین؛
کافی هست پهنای ستون رو برابر 2- بگذارین:

Sub SetToBestFit()

    Dim ctl As Control

    For Each ctl In Me.Controls

        Select Case ctl.ControlType

            Case acTextBox, acCheckBox, acComboBox

                ctl.ColumnWidth = -2

        End Select

    Next ctl

End Sub

با سلام
و اگر میخواهی با پائین نگه داشتن موس عرض ستون ها تغییر نکند کافیست سابروتین SetToBestFit که جناب mazoolagh عزیز کد های اون رو بدرستی درج نموده اند در رویداد Form_MouseUp فرم فراخوانی کنی
بصورت زیر :

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

SetToBestFit

End Sub

[m3343kh]

تشکر از هر دو بزرگوار

[mazoolagh]

و اگر میخواهی با پائین نگه داشتن موس عرض ستون ها تغییر نکند ...

این خوب بود!