Fala galera....

 

Gostaria de saber como posso combinar um DataCombo com Checkbox, ou se existe um componente pronto para isso !

 

Grato,

 

Gilberto.

Gostaria de ter uma listagem, como num combobo, onde eu possa marcar varias opções. Eu desenvolvi um sistema de mensagem onde escolho o nome da pessoa pra qual desejo enviar...So que gostaria de marcar mais de uma pessoa....

Tenho este exemplo para um list :

Creio que de para simular uma funcionalidade parecida. Para testar o exemplo abaixo vc terá que criar um form com 1 listview, 1 imagelist com 2 imagens de 12x12 a primeira é o checkbox vazio e a segunda é ele marcado.

Private Type lvwMsgInfo
    x As Long
    y As Long
    Flgs As Long
    Itm As Long
    SubItm As Long
End Type

Private MaxSelected As ListItem

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal lMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private lvwMsg As lvwMsgInfo

Private Sub Form_Load()

    Dim LI As ListItem
    Dim SubLI As ListSubItem
    
    ListView1.FullRowSelect = True
    
    Set LI = ListView1.ListItems.Add(, , "Item 1")
    Set SubLI = LI.ListSubItems.Add(, , "SubItem 1", 1)
    SubLI.Tag = "0"
    
    Set LI = ListView1.ListItems.Add(, , "Item 2")
    Set SubLI = LI.ListSubItems.Add(, , "SubItem 2", 1)
    SubLI.Tag = "0"
    
End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    Set MaxSelected = ListView1.SelectedItem
    LockWindowUpdate ListView1.hwnd
    
End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    Dim TXT As String
    Dim Linha As Integer
    Dim Coluna As Integer
    Dim Valor As Boolean
    
    ' Chama a API
    lvwMsg.x = x / Screen.TwipsPerPixelX
    lvwMsg.y = y / Screen.TwipsPerPixelY
    SendMessage ListView1.hwnd, 4153, 0, lvwMsg
    
    ' Testa o click
    If lvwMsg.Flgs And 14 Then
        Linha = lvwMsg.Itm + 1
        
        ' Se SubItem for 0 o click foi no item
        If lvwMsg.SubItm > 0 Then
            Coluna = lvwMsg.SubItm + 1
        Else
            Coluna = 1
        End If
    End If
    
    ' O Valor de cada item da coluna está no tag do item
    If Coluna = 2 And x < ListView1.ColumnHeaders(2).Left + (12 * 15) Then
        Valor = CBool(ListView1.SelectedItem.ListSubItems(1).Tag)
        Valor = Not Valor
        ListView1.SelectedItem.ListSubItems(1).ReportIcon = Abs(Valor) + 1
        ListView1.SelectedItem.ListSubItems(1).Tag = Valor
        
        If Not MaxSelected Is Nothing Then
            Set ListView1.SelectedItem = MaxSelected
        End If
        
    End If

    
    LockWindowUpdate 0
    
End Sub