منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ربط الtext box مع ال msflex grid - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30)
+---- الموضوع : ربط الtext box مع ال msflex grid (/showthread.php?tid=1740)

ربط الtext box مع ال msflex grid - maryam al-ibraheem - 28-01-14

السلام عليكم...
أنا عم أشتغل على برنامج إنشائي ولسا مبتدئة ...لو بتساعدوني بربط text box بالgrid منشان ادخال الاحداثيات
هيك ح يكون شكل الفورم ,,,,
بتمنى المساعدة من فضلكن ..Blush

RE: ربط الtext box مع ال msflex grid - maryam al-ibraheem - 28-01-14

Dim numbers_of_joints As Integer
Dim x() As Single
Dim y() As Single
Dim free() As Single


Private Sub Command1_Click()




numbers_of_joints = InputBox("ÚÏÏ ÇáÚÞÏ")


ReDim x(numbers_of_joints)
ReDim y(numbers_of_joints)
ReDim free(numbers_of_joints)

MSFlexGrid1.Rows = numbers_of_joints + 1


For i = 1 To numbers_of_joints
x(i) = InputBox("x(i)")
y(i) = InputBox("y(i)")
free(i) = InputBox("ÏÑÌÉ ÍÑíÉ ÇáÚÞÏÉ")



MSFlexGrid1.TextMatrix(i, 0) = i

MSFlexGrid1.TextMatrix(i, 1) = x(i)



MSFlexGrid1.TextMatrix(i, 2) = y(i)
MSFlexGrid1.TextMatrix(i, 3) = free(i)



Next i





















End Sub

Private Sub Form_Load()
MSFlexGrid1.Cols = 4

MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ÑÞã ÇáÚÞÏÉ i"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "x(i)"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "y(i)"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ÏÑÌÉ ÇáÍÑíÉ ááÚÞÏÉ "
MSFlexGrid1.CellAlignment = 6

End Sub
بس بدي بدل الادخال من الinputbox يكون الادخال من الtext box