[ALBRNS]

السلام عليكم ورحمة الله وبركاته

ضع اداة MSFlexGrid علي الفورم وضع الكود التالي

PHP كود :

Private Sub Form_Load()
With MSFlexGrid1
.ColWidth(0) = 400
.RowHeightMin = 300
.Rows = 10
.Cols = 3
.Row = 1
.Col = 0
.RowSel = .Rows - 1
.FillStyle = flexFillRepeat
.CellFontName = "Wingdings"
.CellFontSize = 12
.CellAlignment = flexAlignCenterCenter
.Text = "q"
.FillStyle = flexFillSingle
.Row = 1
.Col = 1
End With
End Sub
 
Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
If .MouseCol = 0 Then
If .TextMatrix(.Row, 0) = "q" Then
.TextMatrix(.Row, 0) = "‏"
Else
.TextMatrix(.Row, 0) = "q"
End If
End If
End With
End Sub 


بالتوفيق