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 Sub
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]
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