LISTVIEW SELECAO UNICAO
ola
inseri um listview em um formulario com a propriedade CHECKBOXES
o problema é que eu gostaria que apenas um checkbox fosse selecionado por vez, porem se clicar em quantos checkbox eu quiser ele seleciona.
teria como selecionar apenas um por vez?
inseri um listview em um formulario com a propriedade CHECKBOXES
o problema é que eu gostaria que apenas um checkbox fosse selecionado por vez, porem se clicar em quantos checkbox eu quiser ele seleciona.
teria como selecionar apenas um por vez?
Mais ou menos assim.
Private Sub ListView1_ItemCheck(sender As Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
If e.NewValue = CheckState.Checked And ListView1.CheckedItems.Count = 1 Then
e.NewValue = CheckState.Unchecked
MessageBox.Show([Ô]Você só pode selecionar um item[Ô])
End If
End Sub
Private Sub ListView1_ItemCheck(sender As Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
If e.NewValue = CheckState.Checked And ListView1.CheckedItems.Count = 1 Then
e.NewValue = CheckState.Unchecked
MessageBox.Show([Ô]Você só pode selecionar um item[Ô])
End If
End Sub
amigo OMAR, deu erro nessa parte
sender As Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
sender As Object, e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
ahhh eu uso vb6 ok
Citação::
ahhh eu uso vb6 ok
Então mude o seu post para VB6 pois você escolheu vb.net assim todos irá responder em .NET Para ti...
PARA EDITAR SEU POST CLICK NO EDITAR DO SEU PRIMEIRO POST E MUDE A VERSAO DE VB.NET PARA VB
Testa este.
Private Sub SeuListivew_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim count, idx As Integer
Dim bln As Boolean
bln = SeuListview.ListItems(Item.Index).Checked
count = 0
For idx = 1 To SeuListview.ListItems.count
If SeuListview.ListItems(idx).Checked Then
SeuListviewListItems(idx).Checked = False
End If
Next
SeuListview.ListItems(Item.Index).Checked = bln
End Sub
Private Sub SeuListivew_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim count, idx As Integer
Dim bln As Boolean
bln = SeuListview.ListItems(Item.Index).Checked
count = 0
For idx = 1 To SeuListview.ListItems.count
If SeuListview.ListItems(idx).Checked Then
SeuListviewListItems(idx).Checked = False
End If
Next
SeuListview.ListItems(Item.Index).Checked = bln
End Sub
maravilhaaa Omar, deu certinho
mto obrigado mesmo
vou te pontuar
mto obrigado mesmo
vou te pontuar
Tópico encerrado , respostas não são mais permitidas