AJUDA COM LISTVIEW

KURTGU 17/05/2017 18:17:38
#474024
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
KERPLUNK 17/05/2017 18:26:13
#474025
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.
KURTGU 17/05/2017 18:27:45
#474026
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.
KERPLUNK 17/05/2017 18:32:07
#474027
Bem, o procedimento é o mesmo. Manipule DADOS não controles.
KURTGU 17/05/2017 20:25:15
#474028
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 ?
KERPLUNK 17/05/2017 20:55:40
#474030
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.
FOXMAN 19/05/2017 12:23:39
#474073 Resposta escolhida
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
FOXMAN 19/05/2017 12:34:34
#474074
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
XLEGENDARY 19/05/2017 14:35:48
#474076
Desenha o Grid idêntico a um list
e nunca saberão seu [Ô]esquema[Ô] hahaha
KURTGU 20/05/2017 12:08:06
#474077
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.
KURTGU 20/05/2017 12:10:35
#474078
Citação:

:
Desenha o Grid idêntico a um list
e nunca saberão seu [Ô]esquema[Ô] hahaha



Tinha pensado nisso ontem kkkkkkkkkkkkkkkkkkk....
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar