نوشته شده توسط
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
با سلام
و اگر میخواهی با پائین نگه داشتن موس عرض ستون ها تغییر نکند کافیست سابروتین SetToBestFit که جناب mazoolagh عزیز کد های اون رو بدرستی درج نموده اند در رویداد Form_MouseUp فرم فراخوانی کنی
بصورت زیر :
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetToBestFit
End Sub