none
Como se mover por um listbox através de um spinbutton? RRS feed

Respostas

  • Usei o seguinte:

    Private Sub SpinButton1_SpinDown()
      If ListBox1.ListIndex > 0 Then
        ListBox1.Selected(ListBox1.ListIndex - 1) = True
      End If
    End Sub
    
    Private Sub SpinButton1_SpinUp()
      If ListBox1.ListIndex + 1 < ListBox1.ListCount Then
        ListBox1.Selected(ListBox1.ListIndex + 1) = True
      End If
    End Sub
    
    

     

    Funcionou, obrigado. Taí a resposta para quem procurar.

    Pode-se ainda fazer um truque para mudar do primeiro para o último e vice-versa.

    • Marcado como Resposta Marlon Saveri terça-feira, 12 de julho de 2011 20:27
    terça-feira, 12 de julho de 2011 20:27