Olá pessoal, estou com um pequeno problema, estou querendo o seguinte:

Quando eu clicar num botão, o item selecionado no ListView deve passar para o próximo.

Ex: Este é meu ListView.

  Coluna_Cod , Coluna_Nome, Coluna_Endereço
       1         RODRIGO      ALGUM LUGAR1
       2           JABA       ALGUM LUGAR2

  Vamos supor que a o primeiro item do ListView está selecionado, ou seja, os valores -->  1 - RODRIGO - ALGUM LUGAR1.

    Eu gostaria que passasse para o próximo item, ou seja, para os valores

--> 2 - JABA - ALGUM LUGAR2
 
Alguém sabe como fazer isso? Valeu pela atenção pessoal.

dim  curr_index as long

 

curr_index=list1.listindex

if curr_index < list1.listcount then

list1.listindex=curr_index+1

end if

 

s

se vc quer paginar o listview eu uso assim

 

If LV1.ListItems.Count = 0 Then: Exit Sub
    Dim intX As Integer
    intX = LV1.SelectedItem.Index
    If intX = LV1.ListItems.Count Then
       intX = 0
End If
    intX = intX + 1
    LV1.ListItems(intX).Selected = True
    LV1.SetFocus

Vc quer que, quando clicar em um botão, o foco no listview (a seleção) passe para o item de baixo, ou o próximo item?

se for isso, talvez dê pra fazer assim:

 

cmdProximo 'Botão para clicar

lstItens 'Listview com os itens

 

'Na seção General:

Dim i As Integer

 

'No click do botão

Private Sub cmdProximo_Click()

i = lstItens.SelectedItem   'Vai marcar "i" com o mesmo indice do item

                                    'selecionado na listview
i = i + 1                          'Incrementa +1 para selecionar o próximo item da lista
       

lstItens.ListItems.Item(i).Selected = True      'Na listview, marca a seleção

                                                             'verdadeira no item "i", ou seja,

                                                             'o próximo item da lista

lstItens.SetFocus                      'Muda o foco para a listview

End Sub

 

 

 

Testei aqui e tá funcionando!

Abraços!

VALEU PESSOAL, FUNCIONOU PERFEITAMENTE.