+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الأدوات والمصفوفة المزدوجة (/showthread.php?tid=31189)
الأدوات والمصفوفة المزدوجة - اسلام الكبابى - 02-09-19
هل يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟
أنا أستطيع عملها كمصفوفة فردية كالآتى
كود :
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)
واستخدامها فى كود مثل السابق
ولكم ألف شكر
RE: الأدوات والمصفوفة المزدوجة - AAAAAAAAA - 03-09-19
كود :
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 SubRE: الأدوات والمصفوفة المزدوجة - اسلام الكبابى - 03-09-19
بارك الله فيك
ولك ألف شكر
ولكنه لا يتعامل معها كأى أدوات
كتبت كود شبيه بما كتبته فى سؤالى فرفضه عند عمل الrun
PHP كود :
Private Sub Command1_Click()
myTextBox(2, 3).Text ="kkkkkkkkkk"
myTextBox(3, 1).FontSize = 16
End Sub
RE: الأدوات والمصفوفة المزدوجة - اسلام الكبابى - 03-09-19
آسف
الكود ليس به شئ
أنا الذى نسيت أنها تبدأ دائمآ بالصفر فآخرها (2,2)
أى لا يوجد تكست منهم باسم(3, 2) ولا (1, 3)
ولكم ألف شكر
RE: الأدوات والمصفوفة المزدوجة - اسلام الكبابى - 03-09-19
[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]
if i =4 then Text1(I).FontSize = 16
End Sub[/b]
[b]فكيف يمكن عمل كود عند تغير التكست text1(3,7)[/b]
ولكم ألف شكر