переход к следующей форме по Enter-у

[Bape}l{ka]

привет всем! )))

подскажите пожалуйста, как сделать, чтобы в форме переход из текстового поля к следующей форме совершался по Энтеру, а не по кнопке "ОК" или "Вперед", как у меня?
т.е. ввела я что-то в TextBox, нажала Enter и выполняется действие кнопки "Вперед"

чво-та я уже все свойства текстового поля просмотрела..

п.с.: на всяк случай форма

[Bape}l{ka]

у меня только получается если расставить TabIndex:
TextBox - 0-й
CommandButton "Вперед" - 1-й

но тогда приходится нажимать энтер 2 раза: 1ый - переход к кнопке Вперед, 2й - собственно действие кнопки Т_Т

[staniiislav]

наверное что-то вроде этого:


Private Sub Textbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = vbKeyReturn Then
If Shift = 0 Then ComboBox3.Activate Else ComboBox1.Activate
End If
End Sub

В место combobox указываете нужное действие
Картинка Ваша не открылась (((

[Bape}l{ka]

staniiislav
спасибо большое, как-то я сама не догадалась, я думала это через свойства делается =т

а подскажите пожалуйста, что значит
If Shift = 0

________
аа, это если шифт не нажат??

[The_Prist]

Я бы использовал не KeyDown, а KeyPress и главное - не Activate, а SetFocus:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
 TextBox2.SetFocus
End If
End Sub

Не принципиально, конечно, но...
А обработку шифта в данном случае считаю вообще лишней. Получается, что с зажатым шифтом никакого перехода не получим.

[staniiislav]

в вашем случаи наверно так:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger)
If KeyCode = 9 Or KeyCode = vbKeyReturn Then
UserForm2.Show
End If
End Sub

а подскажите пожалуйста, что значит
If Shift = 0

это используется когда у Вас несколько TextBox'в или ComboBox'в
чтобы переходить между ними вперед, назад (то есть если вы находитесь на третьем ТексБоксе (а у вас их допустим 15), чтобы не переклацивать все текстбоксы, чтобы вернутся к тексбокс2, просто нажимаете комбинацию клавиш shift+enter и возвращаетесь на позицию назад

[staniiislav]

Сообщение от The_Prist

Я бы использовал не KeyDown, а KeyPress и главное - не Activate, а SetFocus:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
 TextBox2.SetFocus
End If
End Sub

Не принципиально, конечно, но...
А обработку шифта в данном случае считаю вообще лишней. Получается, что с зажатым шифтом никакого перехода не получим.

а почему не Show?

[The_Prist]

Сообщение от staniiislav

а почему не Show?

Я так понял, что надо не на разные формы переходить, а перемещаться по элементам одной формы. Это судя по скрину и контексту(если точнее - TabIndex). Словами, конечно, выражено другое :-)

[staniiislav]

Сообщение от The_Prist

Я так понял, что надо не на разные формы переходить, а перемещаться по элементам одной формы. Это судя по скрину и контексту(если точнее - TabIndex). Словами, конечно, выражено другое :-)

понятно, авообще лучше использовать

.SetFocus

в место

Activate

? В чем разница?

[The_Prist]

Попробуйте применить Activate к TextBox-у.