منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28)
+---- الموضوع : [vb6.0] هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟ (/showthread.php?tid=13171)

هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟ - Microformt - 08-09-15

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

 هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟



نامل من الله المساعده والله يحفظكم ويرعاكم

RE: هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟ - أبو عمر - 08-09-15

اكيد ممكن
كود :
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