• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 408
  • Last Modified:

Place CheckBox on MSFlexGrid & must be Scroll as Grid get scrolled up & down

hallo sir,

how to place a CheckBox on MsFlexGrid for all the Rows, if 5 rows are visible & 20 rows are unscolled then how the CheckBox will move as grid will scorll as grid will scoll up & down ?

Thanx,
Pl do the needful.

Santosh
0
SantoshGokhale
Asked:
SantoshGokhale
1 Solution
 
surkiCommented:
Santhosh:

Instead of using Flex grid use "List view control" were u can use the check boxes(Setting the Properties).

Add Microsoft Windows Common Controls 6.0(sp3)"VB"
and Pick List View Control were in u got option of using check boxes with the list.

Hope this helps.
0
 
iboutchkineCommented:
'2 pictures on the form picChecked and picUnchecked

Private Sub SetRow(ByVal idx As Integer, ByVal person_name As String, ByVal needs_air As Boolean, ByVal needs_hotel As Boolean, ByVal needs_car As Boolean)
    With MSFlexGrid1
        .TextMatrix(idx, 0) = person_name
        .Row = idx

        .Col = 1
        If needs_air Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If

        .Col = 2
        If needs_hotel Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If

        .Col = 3
        If needs_car Then
            Set .CellPicture = picChecked.Picture
        Else
            Set .CellPicture = picUnchecked.Picture
        End If
    End With
End Sub
Private Sub Form_Load()
    With MSFlexGrid1
        .BackColor = &HE0E0E0
        .Rows = 4
        .Cols = 4
        .FixedCols = 1
        .FixedRows = 1

        .TextMatrix(0, 0) = "Name"
        .TextMatrix(0, 1) = "Air"
        .TextMatrix(0, 2) = "Hotel"
        .TextMatrix(0, 3) = "Car"
    End With

    SetRow 1, "Alice", True, True, False
    SetRow 2, "Bob", True, False, False
    SetRow 3, "Carter", False, False, True
End Sub

Private Sub Form_Resize()
    MSFlexGrid1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


' Toggle the check box.
Private Sub MSFlexGrid1_Click()
    If MSFlexGrid1.Col < 1 Or MSFlexGrid1.Row < 1 Then Exit Sub

    If MSFlexGrid1.CellPicture = picChecked Then
        Set MSFlexGrid1.CellPicture = picUnchecked
    Else
        Set MSFlexGrid1.CellPicture = picChecked
    End If
End Sub
0
 
SantoshGokhaleAuthor Commented:
Hello
Mr. Surki & Mr. iboutchkine,

Thanx a lot for yr immidiate reply with good answers. This will help me a lot.

Thanx.
From Santosh.
0
 
DanRollinsCommented:
SantoshGokhale@devx, an EE Moderator will handle this for you.
Moderator, my recommended disposition is:

    Split points between: surki and iboutchkine

DanRollins -- EE database cleanup volunteer
0
 
NetminderCommented:
Per recommendation, force-accepted.

Netminder
CS Moderator

iboutchkine: points for you at http://www.experts-exchange.com/jsp/qShow.jsp?ta=visualbasic&qid=20328908
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now