Listbox Visual Basic

[Victor1822]

Olá galera!!!

To com um projeto que consiste em uma pesquisa simples de palavra como se fosse um Dicionário, é bem simples uso basicamente um Listbox, um Textbox, e uma Label (onde aparece o significado das palavras contidas no Listbox).

Só que eu queria colocar um botão, que quando você clicasse nele, avançasse de palavra, por exemplo, eu cliquei na palavra "internet" do listbox e apareceu o significado certinho na Label, aí esse botão teria a função de avançar de palavra, ou seja, quando eu clicasse no botão (avançar), ele iria para a próxima palavra do listbox. Só que nem sei como vai ficar o código desse botão.

Alguém poderia me ajudar com o código desse botão???

Como ficaria ???

Obrigado.

[raphael_suporte]

os elementos dentro de um LIstBox, tem um controle chamado Index, coloque no seu codigo o comando para ele acrescentar "+1" nesse index

[Matheus-vb6]

eu geralmente uso um contador com essa instrução...

x=x+1

list1.listcount(x)

Editado Outubro 4, 2010 por Matheus-vb6

[MRMB]

Victor1822,

poderia ser feito dessa maneira....

Private Sub Form_Load()

  ' Carregar os itens no combo e posicionar no primeiro.

  ' ....código...

  Combo1.ListIndex = 0

End Sub

Private Sub Command1_Click()

  Dim TotalCombo As Long
  TotalCombo = Combo1.ListCount - 1
  
  If Combo1.ListIndex + 1 <= TotalCombo Then
    Combo1.ListIndex = Combo1.ListIndex + 1
  Else
    MsgBox "Fim da lista!"
  End If
  
End Sub

T+