09-05-13, 11:10 AM
السلام عليكم ورحمة الله وبركاته
تفضل
PHP كود :
Private Sub Form_Load()
On Error Resume Next
With MSFlexGrid1
.Rows = 1
.Cols = 3
.ColAlignment(0) = 3
.ColAlignment(1) = 3
.ColAlignment(2) = 3
.TextMatrix(0, 0) = "ÇáÇÓã"
.TextMatrix(0, 1) = "ÇáÚäæÇä "
.TextMatrix(0, 2) = "ÑÞã ÇáåÇÊÝ "
.ColWidth(0) = 1000
.ColWidth(1) = 2000
.ColWidth(2) = 3000
End With
End Sub
Private Sub Command1_Click()
With MSFlexGrid1
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = Text1.Text
.TextMatrix(.Rows - 1, 1) = Text2.Text
.TextMatrix(.Rows - 1, 2) = Text3.Text
End With
End Sub
السلام عليكم ورحمة الله وبركاته
