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

[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]

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


این خوب بود!