Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

ferreira12

Selecionar item de ListView

Mensagens Recomendadas

ferreira12

Olá a todos,

A minha dúvida é que quando selecciono um dado utilizador de uma listview passa esse argumento, ou seja, quando seleciona um cliente ele me passe o email desse cliente para uma outro listview para que eu possa enviar o email. Eu para uma datagrid utilizada o código abaixo, já tive a fazer algumas alterações no entanto ainda não o consegui adaptar totalmente.

Será que me podem ajudar?

Private Function GetSelectedRowCollection() As List(Of String)
       If lstCliente.SelectedItems.Count > 0 Then

           Dim drc As ListViewItems = lstCliente.SelectedItems
           Dim resultado As New List(Of String)
           For i As Integer = 0 To drc.Count - 1
               'Dim cod As Integer = drc(i).Cells(0).Value
               Dim email As String = drc(i).Cells(2).Value
               'resultado.Add(email.ToString & ";" & " ")
               resultado.Add(email.ToString)
               ' & " " & 
               ' email.ToString &";"&)
           Next
           Return resultado
       Else
           Return Nothing
       End If
   End Function
'Aqui é quando carrego no botãp
   Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click
       'obtem os valores das linhas selecionadas
       lista = GetSelectedRowCollection()
       If Not IsNothing(lista) Then
           'abre o formulario form2 e passa a lista como parâmetro
           Dim f As New FormEmail(lista)
           f.Show()
       Else
           MsgBox("Não há linhas selecionadas...")
       End If
   End Sub

Código seguinte já na FormEmail

Public Sub New(ByVal lista As List(Of String))
       ' This call is required by the designer.
       InitializeComponent()
       ' Add any initialization after the InitializeComponent() call.
       'e inclui no controlo ListBox
       For Each Item In lista
           lstLista.Items.Add(Item)
           If Not txtlista.Text = String.Empty Then txtlista.Text &= "; "
           txtlista.Text &= Item.ToString
           'Item.ToString = txtlista.Text
       Next
   End Sub

Editado por ribeiro55

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.