How a textbox_enter can change a SpinButton?

**MaczaQ** · 07-19-2011, 07:00 AM

I have following idea:
- extract your code from _SpinDown, _SpinUp to outside procedure like Sub S_Down, Sub S_Up and then call those procedures in place of your code you need it.

Best Regards

**marlonsaveri** · 07-19-2011, 03:24 PM

I tried, but I can't solve the problem.

Now I changed Spinbutton. It doesn't have Private Up or Down, but:

Private Sub SpinButton1_Change()
    
    If SpinButton1.Value > ListBox1.ListCount Then
        SpinButton1.Value = ListBox1.ListCount
    End If
    
    If ListBox1.ListCount > SpinButton1.Value And SpinButton1.Value >= 0 And SpinButton1.Value <= ListBox1.ListCount Then
        ListBox1.ListIndex = SpinButton1.Value
        Label1.Caption = SpinButton1.Value
    End If

End Sub

and

Private Sub ListBox1_Change()
   (...)
        SpinButton1.Value = ListBox1.ListIndex
        TextBox1.Text = MyArray(ListBox1.ListIndex, 2)
        TextBox1.SetFocus 'I don't know why, but textbox1 just get the focus every two times that I click the spinbutton.
End Sub