منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

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)

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

ولكم ألف شكر

كود :

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]

ولكم ألف شكر

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اسلام الكبابى

AAAAAAAAA

اسلام الكبابى

اسلام الكبابى

اسلام الكبابى