Jump to content
ferreira12

Selecionar item de ListView

Recommended Posts

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

Edited by ribeiro55

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.