Фокус при инициализации формы

[Ципихович Эндрю]

Здравствуйте
1. форму с именем ... запускаю в модальном режиме, в документе Ворд, форма не обычная, файл прикрепляю. Как фокус, курсор иметь в текст боксе

2. если открыл форму в модальном режиме, можно сделать её немодальной и наоборот, если да то как???
Спасибо

[alibek]

1. Бред.
2. Нельзя.

[Ципихович Эндрю]

1 для кого бред, а для кого манна небесная, по другому она мне и даром не нужна, тем не менее можно курсором управлять?
2 понял спасибо

[anvg]

Почему нельзя? Две кнопки на форму с кодом

Код: Выделить всё

Private Sub btModal_Click()
    Me.Hide
    Me.Show vbModal
End Sub

Private Sub btUnmodal_Click()
    Me.Hide
    Me.Show vbModeless
End Sub

[Димитрий]

1. перемещайте фокус после инициализации

Код: Выделить всё

Private Sub UserForm_Activate()
    TextBox1.SetFocus
End Sub

[Ципихович Эндрю]

а Вы видели мой код, в аккурат, то что Вы предлагаете там есть:

Код: Выделить всё

Private Sub UserForm_Initialize()

  Dim lngFrmHndl As Long, lngStyle As Long
  lngFrmHndl = FindWindow(vbNullString, Me.Caption)
  'задать стиль
  'Or WS_MAXIMIZEBOX - появление на форме кнопки "Свернуть в окно"
  lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
  'установить стиль
  SetWindowLong lngFrmHndl, GWL_STYLE, lngStyle
  'относится к деактивации кнопки "Закрыть" - крестик в углу формы
  'DeleteMenu GetSystemMenu(lngFrmHndl, 0&), SC_CLOSE, 0&
  'фокус при появлении формы будет на ...
[u] Me.TextBox1.SetFocus[/u]
 
End Sub

[Ципихович Эндрю]

anvg - cпасибо за код

[Димитрий]

а Вы видели мой код, в аккурат, то что я написал у вас нет
Private Sub UserForm_Activate()

[Ципихович Эндрю]

Как избавиться от средней кнопки, из тех трёх которые в углу формы
подскажите как сколько не пробовал или 0 или 1 или 3 кноки ну 2 никак


Заменил Лабел на РичТекстБокс, он более мне нравится в отношении с ТекстБоксом
написал процедуру активации и фокус при появлении формы находится в РичТекстБоксе
ОК!!!
после нажатия любой клавиши в обработчике пишу, чтобы фокус был в РичТекстБоксе
и курсор встаёт в крайнее левое положение в РичТекстБоксе
а как указать, чтобы он вставал следом за последним введённым знаком???

и ещё после сорачивания и затем разворачивания формы фокус теряется, как его заиметь, что писать понятно, как процедуру назвать???
Спасибо