USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  CheckBoxes e simular o comportamento de um grupo de OptionButtons
Postada em 16/2/2006 por Geronimo            
  como no exemplo abaixo.

Para testar desenhe um ListView num form vazio e cole o seguinte código:

Private Sub Form_Load()

    Dim LI As ListItem
    Dim I As Integer
    
    With ListView1
        ' Ajustes
        .FullRowSelect = True
        .HideSelection = False
        .Checkboxes = True
        .View = lvwReport
        
        ' Cria as colunas
        .ColumnHeaders.Add , , "Nome"
        .ColumnHeaders.Add , , "Documento"
        
        ' Preenche o grid
        For I = 1 To 10
            Set LI = .ListItems.Add(, , "Nome " & I)
            LI.ListSubItems.Add , , "Documento " & I
        Next
    End With
    
End Sub


Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)

    Dim LI As ListItem
    
    Item.Checked = True
    For Each LI In ListView1.ListItems
        If LI <> Item And LI.Checked = True Then
            LI.Checked = False
        End If
    Next
    
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página