منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

هل يمكن عمل الذي في الصوره المرفقه على دادة MSFlexGrid ؟؟
[صورة مرفقة: 1441726029121.jpg]

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

اكيد ممكن

كود :
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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Microformt

أبو عمر