AJUDA COM LISTVIEW

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

AJUDA COM LISTVIEW

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#474024 - 17/05/2017 18:17:38

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Última edição em 17/05/2017 18:26:45 por KURTGU

TENHO 2 LISTVIEW QUERIA passar de um listview para o outro sem precisar limpar e preencher tudo novamente. Essa busca fica rodando sem parar se outra unidade que fica responsavel agendar o paciente e mudar o status de aguaradando para agendado, gostaria de tirar da 1-LISTVIEW e passar para a 2- Listview sem precisar limpar e preencher.

1- LISTVIEW-------------------------PACIENTES AGUARDANDO AGENDAMENTO
2- LISTVIEW------------------------PACIENTES AGENDADOS

  
Dim servico As New THGService.Service
   Dim lista() As THGService.Encaminhamentos = servico.Listar_Agendamentos_Unidade(My.Settings.Minha_Unidade)
        For Each i As THGService.Encaminhamentos In lista
            If i.statusencaminhamento = "AGENDADO" Then
                If i.datagendamento = My.Settings.Data_Servidor Then
                    If Not Me.ListView2.Items.ContainsKey(i.idpaciente.ToString) Then
                        Dim li As New ListViewItem
                        li = Me.ListView2.Items.Add(i.idpaciente.ToString, i.idpaciente.ToString, 0)
                        li.SubItems.Add(i.nomepaciente)
                        li.SubItems.Add(i.pacientecartaosus)
                        li.SubItems.Add(i.pacientetel)
                        li.SubItems.Add(i.pacienteespecialidade)
                        li.SubItems.Add(i.drencaminhamento)
                        li.SubItems.Add(i.datagendamento)
                        li.SubItems.Add(i.Horagendamento)
                        li.SubItems.Add(i.respagendamento)
                    End If
                End If
            Else
                If Not Me.ListView2.Items.ContainsKey(i.idpaciente.ToString) Then
                    Dim li As New ListViewItem
                    li = Me.ListView2.Items.Add(i.idpaciente.ToString, i.idpaciente.ToString, 0)
                    li.SubItems.Add(i.nomepaciente)
                    li.SubItems.Add(i.pacientecartaosus)
                    li.SubItems.Add(i.pacientetel)
                    li.SubItems.Add(i.pacienteespecialidade)
                    li.SubItems.Add(i.drencaminhamento)
                    li.SubItems.Add(i.datagendamento)
                    li.SubItems.Add(i.Horagendamento)
                    li.SubItems.Add(i.respagendamento)
                End If
            End If
        Next





#474025 - 17/05/2017 18:26:13

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


Membro da equipe
Não entendo porque você insiste em usar ListView para uma tarefa que é claramente mais adequada de se usar um DataGridView. Um exemplo é isso que você quer fazer. Você tem dois objetos que servem para popular o controle, basta excluir de um e incluir no outro que a visualização estará já pronta.

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


#474026 - 17/05/2017 18:27:45

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Citação:
:
Não entendo porque você insiste em usar ListView para uma tarefa que é claramente mais adequada de se usar um DataGridView. Um exemplo é isso que você quer fazer. Você tem dois objetos que servem para popular o controle, basta excluir de um e incluir no outro que a visualização estará já pronta.


KerpLuck aqui eles pedem que só usem a listview ja falei isso que você disse sobre o datagrid ser mais adequado.



#474027 - 17/05/2017 18:32:07

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


Membro da equipe
Bem, o procedimento é o mesmo. Manipule DADOS não controles.

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


#474028 - 17/05/2017 20:25:15

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Última edição em 17/05/2017 20:25:44 por KURTGU

Citação:
:
Bem, o procedimento é o mesmo. Manipule DADOS não controles.


Mas para retirar de um e colocar no outro sem limpar as listas e recarregar nao terei que manipula o listview ?




#474030 - 17/05/2017 20:55:40

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


Membro da equipe
Citação:
:
:
Bem, o procedimento é o mesmo. Manipule DADOS não controles.

Mas para retirar de um e colocar no outro sem limpar as listas e recarregar nao terei que manipula o listview ?

Você vai ter que limpar e preencher tudo de novo. Por isso que digo que é muito trabalho desnecessário e sempre com chance de ter erros.

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


Resposta escolhida #474073 - 19/05/2017 12:23:39

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe

 Anexos estao visíveis somente para usuários registrados

Citação:
:
:
Bem, o procedimento é o mesmo. Manipule DADOS não controles.

Mas para retirar de um e colocar no outro sem limpar as listas e recarregar nao terei que manipula o listview ?

Não sei se entendi direito, mas se for o que entendi......

É perfeitamente possível adicionar um ListViewItem de um Listview já populado em outro Listiview sem recarregar tudo.
Utilize o ListViewitem que dá certo.
Depois de seus Lists estiverem carregados :    

Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick
        For Each item As ListViewItem In ListView1.Items
            If item.Selected = True Then
                ListView2.Items.Add(item.Clone())
                ListView2.EnsureVisible(ListView2.Items.Count - 1)
            End If
        Next
End Sub





Grupo DotNet.Br no FaceBook



#474074 - 19/05/2017 12:34:34

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe

 Anexos estao visíveis somente para usuários registrados

Eu não tinha lido completamente o texto....
Então segue a correção

    
Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick
        For Each item As ListViewItem In ListView1.Items
            If item.Selected = True Then
                item.SubItems(1).Text = "AGUARDANDO"
                ListView2.Items.Add(item.Clone())
                ListView2.EnsureVisible(ListView2.Items.Count - 1)
                item.Remove()
            End If
        Next
    End Sub





Grupo DotNet.Br no FaceBook



#474076 - 19/05/2017 14:35:48

XLEGENDARY
NITEROI
Cadast. em:Julho/2011


Desenha o Grid idêntico a um list
e nunca saberão seu "esquema" hahaha


Escreva Código e tome café

#474077 - 20/05/2017 12:08:06

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Citação:
:
Eu não tinha lido completamente o texto....
Então segue a correção

    
Private Sub ListView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseDoubleClick
        For Each item As ListViewItem In ListView1.Items
            If item.Selected = True Then
                item.SubItems(1).Text = "AGUARDANDO"
                ListView2.Items.Add(item.Clone())
                ListView2.EnsureVisible(ListView2.Items.Count - 1)
                item.Remove()
            End If
        Next
    End Sub




FOXMAN é isso mesmo que gostaria de fazer mais ao fazer o select no banco. To tentando adptar da forma que voce fez pra ver se da certo muito obrigada, Pela Ajuda.



#474078 - 20/05/2017 12:10:35

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Citação:
:
Desenha o Grid idêntico a um list
e nunca saberão seu "esquema" hahaha


Tinha pensado nisso ontem kkkkkkkkkkkkkkkkkkk....






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


Tópico encerrado, respostas não sao permitidas
Encerrado por KURTGU em 20/05/2017 14:29:35