|
|
|
|
|
|
|
|
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
|
|
|
|
|
