RECUPERAR VALOR LISTVIEW
                    Saudações a todos,
Sou iniciante em VB.NET e estou apanhando para conseguir recuperar um valor de uma listview, utilizo o seguinte codigo para popular
Private Sub preecheGrdClassificacao()
Me.lsv_Classificacao.Items.Clear()
Try
[ô]Instancia o objeto para incluir
Dim objIncluir As New cls_BDados()
[ô]Passando criterio para consulta
Dim strCriterio As String = Me.lst_Produto.SelectedValue.ToString
[ô]Criando e populando uma datatable
Dim dt As DataTable = objIncluir.ClassifiqueProduto(strCriterio)
With dt
Dim r As DataRow
Dim lSingleItem As ListViewItem
For Each r In dt.Rows
lSingleItem = Me.lsv_Classificacao.Items.Add(r(0))
For col As Integer = 1 To dt.Columns.Count - 1
lSingleItem.SubItems.Add(r(col).ToString)
Next
Next
End With
Catch ex As Exception
Throw ex
End Try
End Sub
Agora como eu consigo recuperar o valor que está no listview
Eu tentei
Me.lsv_Classificacao.FocusedItem.SubItems(0).Text
Mas da erro.
Obrigado
                
            Sou iniciante em VB.NET e estou apanhando para conseguir recuperar um valor de uma listview, utilizo o seguinte codigo para popular
Private Sub preecheGrdClassificacao()
Me.lsv_Classificacao.Items.Clear()
Try
[ô]Instancia o objeto para incluir
Dim objIncluir As New cls_BDados()
[ô]Passando criterio para consulta
Dim strCriterio As String = Me.lst_Produto.SelectedValue.ToString
[ô]Criando e populando uma datatable
Dim dt As DataTable = objIncluir.ClassifiqueProduto(strCriterio)
With dt
Dim r As DataRow
Dim lSingleItem As ListViewItem
For Each r In dt.Rows
lSingleItem = Me.lsv_Classificacao.Items.Add(r(0))
For col As Integer = 1 To dt.Columns.Count - 1
lSingleItem.SubItems.Add(r(col).ToString)
Next
Next
End With
Catch ex As Exception
Throw ex
End Try
End Sub
Agora como eu consigo recuperar o valor que está no listview
Eu tentei
Me.lsv_Classificacao.FocusedItem.SubItems(0).Text
Mas da erro.
Obrigado
  Private Sub lsv_Classificacao_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles lsv_Classificacao.ItemSelectionChanged
       MsgBox(Me.lsv_Classificacao.Items(e.ItemIndex).SubItems(0).Text)
    End Sub
                    Dê uma olhada neste artigo... Me ajudou bastante...
listviews_36_utilidades_directas
            listviews_36_utilidades_directas
                    Jonathan,
Obrigado.
Mas eu não tenho esse evento na minha listview,
Estou utilizando vb 2010
O unico que eu tenho é esse
Private Sub lsv_Classificacao_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsv_Classificacao.SelectedIndexChanged
End Sub
Se eu utilizo esse codigo
With Me.lsv_Classificacao
MsgBox(.Items(.FocusedItem.Index).SubItems(0).Text)
End With
Em um botão dou click funciona perfeitamente, mas no evento acima não
Obrigado mais uma vez
                
            Obrigado.
Mas eu não tenho esse evento na minha listview,
Estou utilizando vb 2010
O unico que eu tenho é esse
Private Sub lsv_Classificacao_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsv_Classificacao.SelectedIndexChanged
End Sub
Se eu utilizo esse codigo
With Me.lsv_Classificacao
MsgBox(.Items(.FocusedItem.Index).SubItems(0).Text)
End With
Em um botão dou click funciona perfeitamente, mas no evento acima não
Obrigado mais uma vez
                    Dessa forma deve funcionar:
Mas eu realmente recomendo usar no evento [Ô]ItemSelectionChanged[Ô].
é só você deixar a seta do mouse dentro de algum evento da ListView e alterar o evento na ComboBox do Visual Studio. (Conforme anexo)
[txt-color=#e80000]*** Alteração: Faltou anexo.[/txt-color]
            Private Sub lsv_Classificacao_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lsv_Classificacao.SelectedIndexChanged
  Try
      MsgBox(Me.lvwUsuarios.SelectedItems(0).SubItems(0).Text)
   Catch ex As Exception
   End Try
End SubMas eu realmente recomendo usar no evento [Ô]ItemSelectionChanged[Ô].
é só você deixar a seta do mouse dentro de algum evento da ListView e alterar o evento na ComboBox do Visual Studio. (Conforme anexo)
[txt-color=#e80000]*** Alteração: Faltou anexo.[/txt-color]
                    Putz,
Verdade cara, eu to tão acostumado com o SelectionChnaged, que estava procurando na letra [Ô]S[Ô], rs...
Bom, funcional sim...
Muito obrigado.
Abraços
            Verdade cara, eu to tão acostumado com o SelectionChnaged, que estava procurando na letra [Ô]S[Ô], rs...
Bom, funcional sim...
Muito obrigado.
Abraços
                        Tópico encerrado , respostas não são mais permitidas
                    
                
