курсор в TextBox-е формы

[Bape}l{ka]

еще раз всем привет))

подскажите пожалуйста, как в форме сделать так, чтобы при ее открытии курсор сразу в TextBox-е был и можно было вводить что-то в него

вот пример файла:test.rar

[The_Prist]

Могли бы из той темы взять ответ :-)

TextBox1.SetFocus

[Bape}l{ka]

сори, я потом только увидела =ь

[Bape}l{ka]

не получается! Т_Т
когда только открываешь форму, фокус устанавливается.
а потом при нажатии кнопки идет обновление той же самой формы, и уже опять установить фокус не получается Т_Т
как поступать в данном случае?

(я ведь помню, что раньше пробовала SetFocus. видимо на этом и застопорилась Т_Т)

[The_Prist]

У формы помимо Initialize есть еще методы: Activate, Click и пр. На них тоже надо повесить событие установки курсора на контрол.

[Bape}l{ka]

честно говоря, не поняла

у меня получается, что фокус устанавливается через раз, сначала в TextBox, потом на кнопке "Вперед", потом опять на TextBox и т.д.
мне кажется это что-то связано с TabIndex и переходами по табу (1-й на TextBox-е, 2-й на кнопке, везде нули проставить не получается).. но может и нет

Private Sub cbNext_Click()
    buttonNextPrev% = 1 'активна кнопка "Вперед"
    Call Telo
End Sub

Private Sub tbVvod_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Or KeyCode = vbKeyReturn Then      'если нажали энтер
        Call cbNext_Click
    End If
End Sub


Private Sub Telo()
Dim k%
    'активна кнопка "Вперед"
    If buttonNextPrev% = 1 Then
        'заносим данные из формы в БД
        If Colm_ <> 1 Then
            Cells(Roww_, Colm_) = tbVvod.Value
            tbVvod.Value = ""
        End If
    End If
 
 With ActiveWorkbook.ActiveSheet
    Colm_ = Colm_ + buttonNextPrev
    .Cells(Roww_, Colm_).Select

    'регулируем видимость элементов формы
    If z = True Then
        'FrameQ.Visible = True
        FrameVar.Visible = True
        'LabelVar.Visible = True
        ''FrameVvod.Visible = True
        tbVvod.Visible = True
        z = False
    End If

'...еще какие-то операции с листом...

 End With
    tbVvod.SetFocus
End Sub

[The_Prist]

Еще раз: у формы есть события.
Initialize - происходит в момент первого открытия формы.
Activate - происходит в момент активации. Т.е. если на Activate повесить TextBox1.SetFocus, то фокус будет установлен в TextBox1 не только при первом открытии формы, но и при переходе с одной формы на другую. Сейчас у Вас данные события вообще не обрабатываются. Вставьте в тело формы:

Private Sub UserForm_Activate()
      tbVvod.SetFocus
End Sub

[Bape}l{ka]

The_Prist

Private Sub UserForm_Activate()
tbVvod.SetFocus
End Sub

та же фигня.. курсор в текстбоксе через раз появляется Т_Т

вообще-то у меня Sub Telo запускается каждый раз при обновлении формы, так что фокус каждый раз вроде как должен устанавливаться (соответствующая команда присутствует). Почему он перескакивает сам на кнопку - не понятно О,о

[The_Prist]

Тогда выкладывайте свой файл - так не понять причину.

[Bape}l{ka]

пример файла положила в первый пост