Tenho um listbox, e preciso criar um botão para baixo e para cima, q irá manipular os dados no listbox.

Como faço. 

Olá, amigo cleyton_keu!

 

Se entendi o que deseja, o problema se resolverá como se segue abaixo.

 

Coloque 2 'CommandButtons' e uma 'ListBox' em um 'form' e teste

o seguinte código:

 

'--- Isso fica em 'General declarations' ---

Option Explicit
Dim lIndex As Long

 

' --- Move para cima ---
Private Sub Command1_Click()
      lIndex = lIndex - 1
      If (lIndex <= 0) Then
            lIndex = 0
      End If
      List1.ListIndex = lIndex
      lIndex = List1.ListIndex
End Sub
' --- Move para baixo ---
Private Sub Command2_Click()
      lIndex = lIndex + 1
      If (lIndex > List1.ListCount - 1) Then
            lIndex = List1.ListCount - 1
      End If
      List1.ListIndex = lIndex
      lIndex = List1.ListIndex
End Sub
Private Sub List1_Click()
      lIndex = List1.ListIndex
End Sub

 

Esse código é bem simples e dispensa comentários. Teste para ver o resultado.

  

 

"Primeiro aprenda a ser um artesão. Isso não impedirá você de ser um gênio." (Eugene Delacroix)

 

 

Joseph
Técnico em Informática, programador e futuro filósofo
São Paulo/SP
<jsff77@hotmail.com>