pooya1072
یک شنبه 09 بهمن 1390, 10:05 صبح
با سلام
يك آرايه شامل 5 سطر و 5 ستون از textbox داريم . تكست باكسها را ايجاد كرده و در طي برنامه آنها را به عنوان يك آرايه 25 تايي از تکست باكس معرفي مي كنيم.مطابق دستورات زیر :
Dim Text(5 * 5) As Control
Private Sub UserForm_Click()
For i = 1 To 5
For j = 1 To 5
Index = ((i - 1) * 5) + j
Set Text(Index) = Controls.Item(Index - 1)
Text(Index).Object.Text = Index
Next j
Next i
End Sub
حالا من مي خوام روي هر كدام از تكست باكسها كه كليك كنم مقدار آن تكست باكس در caption فرم نشان داده شود.
البته توجه كنيد نمي خواهم براي هر تكست باكس و در رويداد Textbox_Click مربوط به هر تكست باكس جداگانه اين دستور را بنويسم.خيلي وقت گير ، شلوغ و غير معقول است.اگه ممكنه يك راه ميانبر براي اين كار به من معرفي كنيد.
يك آرايه شامل 5 سطر و 5 ستون از textbox داريم . تكست باكسها را ايجاد كرده و در طي برنامه آنها را به عنوان يك آرايه 25 تايي از تکست باكس معرفي مي كنيم.مطابق دستورات زیر :
Dim Text(5 * 5) As Control
Private Sub UserForm_Click()
For i = 1 To 5
For j = 1 To 5
Index = ((i - 1) * 5) + j
Set Text(Index) = Controls.Item(Index - 1)
Text(Index).Object.Text = Index
Next j
Next i
End Sub
حالا من مي خوام روي هر كدام از تكست باكسها كه كليك كنم مقدار آن تكست باكس در caption فرم نشان داده شود.
البته توجه كنيد نمي خواهم براي هر تكست باكس و در رويداد Textbox_Click مربوط به هر تكست باكس جداگانه اين دستور را بنويسم.خيلي وقت گير ، شلوغ و غير معقول است.اگه ممكنه يك راه ميانبر براي اين كار به من معرفي كنيد.