ITEMCHECK DA LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

ITEMCHECK DA LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#481693 - 16/05/2018 21:23:07

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


    Pessoal preciso de ajuda,
Tenho um ListView que ao dar o click no botão e se checkboxes tivesse desmarcado ele marcasse e se tiver marcado ele desmarcasse  

Como se referencia ItemCheck da ListView

    If TIVER DESMARCADO THEN

            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = False Then
                    ListOrcamento.ListItems.Item(i).Checked = True
                End If
            Next i
         Else
            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = True Then
                    ListOrcamento.ListItems.Item(i).Checked = False
                End If
            Next i
     End If

Isabella


#481694 - 16/05/2018 21:39:57

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 16/05/2018 21:40:47 por JABA

Acredito que você consiga isso somente na versão do controle contida no service pack 6.

Habilite o Microsoft Windows Common Controls 5.0 (SP6) na caixa de referências e utilize o componente ListView que aparecer na sua ToolBox.

O código ficaria mais ou menos assim:

Private Sub ListOrcamento_ItemCheck(ByVal Item As MSComctlLib.ListItem)

If TIVER DESMARCADO THEN

            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = False Then
                    ListOrcamento.ListItems.Item(i).Checked = True
                End If
            Next i
         Else
            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = True Then
                    ListOrcamento.ListItems.Item(i).Checked = False
                End If
            Next i
     End If

End sub



_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#481703 - 17/05/2018 14:02:35

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


eu queria criar um procedimento

If TIVER DESMARCADO THEN
   marque
if tiver marcado then
desmarque
end if

este código a baixo esta funcionando em check, mas queria que funcione num botão

            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = False Then
                    ListOrcamento.ListItems.Item(i).Checked = True
                End If
            Next i
         Else
            For i = 1 To ListOrcamento.ListItems.Count
                If ListOrcamento.ListItems.Item(i).Checked = True Then
                    ListOrcamento.ListItems.Item(i).Checked = False
                End If
            Next i


Isabella


Resposta escolhida #481710 - 17/05/2018 15:49:24

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
For i = 1 To ListOrcamento.ListItems.Count
    ListOrcamento.ListItems.Item(i).Checked = Not ListOrcamento.ListItems.Item(i).Checked
Next i

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#481725 - 17/05/2018 18:30:20

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
For i = 1 To ListOrcamento.ListItems.Count
    ListOrcamento.ListItems.Item(i).Checked = Not ListOrcamento.ListItems.Item(i).Checked
Next i


legal, obrigada!


Isabella


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 17/05/2018 18:30:34