تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الأدوات والمصفوفة المزدوجة
#1
هل يمكن عمل أداة التكست( أو غيرها) فى شكل مصفوفة مزدوجة ؟
أنا أستطيع عملها كمصفوفة فردية كالآتى

كود :
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)

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

ولكم ألف شكر
الرد
تم الشكر بواسطة: asemshahen5
#2
كود :
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
الرد
تم الشكر بواسطة: سعود , asemshahen5 , اسلام الكبابى , Ahmed_Mansoor
#3
بارك الله فيك

ولك ألف شكر

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

PHP كود :
Private Sub Command1_Click()
myTextBox(23).Text ="kkkkkkkkkk"
myTextBox(31).FontSize 16
End Sub 
ولكم ألف شكر
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
آسف

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

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

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

ولكم ألف شكر
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#5
[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]


ولكم ألف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اضيف أداة التاريخ الى صندوق الأدوات ؟ نور الهدى1 2 754 24-10-16, 09:28 PM
آخر رد: Amir_Alzubidy
  تسجيل الأدوات عبدالله الصافي 4 1,109 03-07-15, 03:09 AM
آخر رد: Amir_Alzubidy
  [سؤال] عدد الأدوات الموجودة بالفورم AEDC 2 911 05-01-14, 12:30 AM
آخر رد: ملك الوورد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم