[اسلام الكبابى]

هل يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟
أنا أستطيع عملها كمصفوفة فردية كالآتى

كود :

Private Sub Text1_Change(Index As Integer)
I = Index
Text1(I).FontSize = 16
End Sub

وتم عمل هذا الكود بعد أن وضعت على الفورم أداة TEXT1

ثم عملت لها COPY و PEAST   عشر مرات مثلآ فصار على الفورم الأدوات TEXT1(10) , .................., TEXT1(3) , TEXT1(2) , TEXT1(1)

فكيف يمكن عمل
الأدوات TEXT1(10,10) , .................., TEXT1(1,3) , TEXT1(1,2) , TEXT1(1,1)

واستخدامها فى كود مثل السابق

ولكم ألف شكر

[AAAAAAAAA]

كود :

Option Explicit

Const ArrX = 3
Const ArrY = 3

Dim myTextBox(ArrX, ArrY) As TextBox

Private Sub Form_Load()
   Dim y As Integer: For y = 0 To ArrY - 1
       Dim x As Integer: For x = 0 To ArrX - 1
           Dim name: name = "myText" & (y * ArrY + x + 1)
           Set myTextBox(x, y) = Controls.Add("VB.TextBox", name, Me)
           With myTextBox(x, y)
               .Left = T2P(10 + (95 * x))
               .Top = T2P(10 + (23 * y))
               .Width = T2P(90)
               .Height = T2P(20)
               .Text = "myTextBox(" & x & ", " & y & ")"
               .Visible = True
           End With
       Next x
   Next y
End Sub

Public Function T2P(t) As Integer: T2P = t * Screen.TwipsPerPixelX: End Function


'Private Sub Command1_Click()
'    MsgBox myTextBox(1, 1).Text
'End Sub

[اسلام الكبابى]

بارك الله فيك

ولك ألف شكر

---

ولكنه لا يتعامل معها كأى أدوات
كتبت كود شبيه بما كتبته فى سؤالى فرفضه عند عمل الrun

PHP كود :

Private Sub Command1_Click()
myTextBox(2, 3).Text ="kkkkkkkkkk"
myTextBox(3, 1).FontSize = 16
End Sub 


ولكم ألف شكر

[اسلام الكبابى]

آسف

الكود  ليس به شئ

أنا الذى نسيت أنها تبدأ دائمآ بالصفر  فآخرها (2,2)  

أى لا يوجد تكست منهم باسم(3, 2) ولا (1, 3)  

ولكم ألف شكر

[اسلام الكبابى]

[b][b]وكيف يمكن عمل كود عند حدث معين لتكست معين منهم[/b][/b]
[b][b]كنت سابقآ اذا أردت كودآ عند تغير التكست رقم4 مثلآ      text1(4)[/b][/b]
[b][b]أكتب الكود الآتى[/b][/b]

Private Sub Text1_Change(Index As Integer)

[b]I = Index
if i =4 then Text1(I).FontSize = 16
End Sub[/b]

[b]فكيف يمكن عمل كود عند تغير التكست text1(3,7)[/b]


ولكم ألف شكر