تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ربط الtext box مع ال msflex grid
#1
Information 
السلام عليكم...
أنا عم أشتغل على برنامج إنشائي ولسا مبتدئة ...لو بتساعدوني بربط text box بالgrid منشان ادخال الاحداثيات
هيك ح يكون شكل الفورم ,,,,
بتمنى المساعدة من فضلكن ..Blush


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
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
الرد }}}}
تم الشكر بواسطة:


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


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