دريافت يك رويداد (event) براي آرايه اي از textbox

[pooya1072]

با سلام
يك آرايه شامل 3 سطر و 5 ستون از textbox داريم . تكست باكسها را ايجاد كرده و در طي برنامه آنها را به عنوان يك آرايه 15 تايي از تسكت باكس معرفي مي كنيم.

81609


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 مربوط به هر تكست باكس جداگانه اين دستور را بنويسم.خيلي وقت گير ، شلوغ و غير معقول است.اگه ممكنه يك راه ميانبر براي اين كار به من معرفي كنيد.

[mahmood744]

دوست عزیز این که کاری نداره
با دوبار کلید بر روی هر تکس باکس خود وبی این کار رو برایت می کنه.
وبی به صورت خودکار اگر هر شی به صورت آرایه باشه را به صورت زیر تعریف می کنه
Private Sub Object_Click(Indx As Integer)
End Sub
که Index همون شماره آرایه شی است

موفق باشی

[mahmood744]

دوست عزیز به نظرم روشی که انتخاب کردی خیلی سخته :گریه:

این برنامه را برایت نوشتم به نظرم روش درستری باشه :لبخندساده:

81612

موفق باشی