پيدا کردم چه جوري بنويسم، در زير مي نويسم شايد به درد شخص ديگري هم بخورد
اگر تعداي کنترل روي فرم داشته باشيم و بخواهيم همه را فرضا" به ترتيب مساوي خانه A1 و B1 و C1 و ... قرار دهيم، اگر همه از يک نوع باشد کار راحت تر است ولي اگر نوع هر کدام با ديگري تفاوت کند مي شود براي خلاصه نويسي در کدها "خصوصيت TAG" آنها را (صرف نظر از اينکه نوع کنترل چيست) به ترتيب از يک به بالا شماره گذاري کرد سپس با کمک همين TAG و با استفاده از کد زير آنها را مقدار دهي کرد: (چيزهاي ديگر را هم مي شود اضافه کرد مثلا" LABEL ها و کامند بتن ها را با مقدار دهي CAPTION هايشان و ...)
کد PHP:
Private Sub UserForm_Activate()
Dim J As Control
For Each J In Me.Controls
Dim D As Integer
On Error Resume Next
D = J.Tag
If TypeOf J Is MSFORMS.ComboBox Then
J.Value = Cells(1, D).Value
ElseIf TypeOf J Is MSFORMS.TextBox Then
J.Value = Cells(1, D).Value
ElseIf TypeOf J Is MSFORMS.ListBox Then
J.AddItem Cells(1, D).Value
End If
Next
End Sub
علاقه مندی ها (Bookmarks)