How a textbox_enter can change a SpinButton?

**marlonsaveri** · 07-18-2011, 05:11 PM

Hello,

I have a form with a listbox. It has some properties and, using a "textbox_change", a array and a button "finish", I can save values to that properties in a sheet.

To facilitate handling, without having to keep clicking all the time in the listbox, I created a SpinButton and it's working - I use spinbutton1_SpinUp and _SpinDown, ex:

Private Sub SpinButton1_SpinUp()
    If ListBox1.ListIndex + 1 < ListBox1.ListCount Then
        ListBox1.Selected(ListBox1.ListIndex + 1) = True
    End If
    TextBox1.SetFocus
End Sub

However, I wish every time we type "enter", it goes to the next item on listbox. I tried, but I don't know how to call "_SpinDown" inside "Textbox1_enter()".

There must be a better way to solve it.

**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

**MaczaQ** · 07-19-2011, 03:36 PM

1) could you attach your workbook ? It's quite difficult to help when we are blind

2) maybe you should tape textbox1.setfocus at the end of code in both procedures (Up, Down)

MaczaQ

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

Thanks. I had forgotten to put .setfocus both. But, it's working junst each twice; when I click for the first one, it changes the listbox, but does't put the focus on textbox.

**MaczaQ** · 07-19-2011, 04:36 PM

please consider to attach your workbook with dummy data. It's realy hard to imagine how your whole code looks like and how your items (textbox, listbox etc.) are configured.

If it is possible please attach workbook, then I will try to help you more...

Best Regards