TextBox.SetFocus

[jetcom]

Всем привет!
При инициализации формы, данная команда почему-то игнорируется.
На форме несколько текст-боксов, но фокуса ни на одном нет... В чем может быть причина? Приходится его ловить при помощи SendKey{TAB}, но это кривовато!
И сразу еще один вопрос:
Возможно ли в VBA сделать форму полноэкранной типа команды Full Screen, т.е. не задавая размеры экрана ...

[jetcom]

С первым разобрался, - дело в модальности формы...

[GSerg]

Попробуй через setwindowplacement.

[jetcom]

2GSerg: А это точно VBA-шная функция? Потому что у меня на нее ругается, что такой метод не найден...
Подскажи уж тогда, пожалуйста, синтаксис ее применения...

[Kosyak]

DoCmd.Maximize

[GSerg]

Нет, это не VB-шная...

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

Private Const SW_MAXIMIZE = 3
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

Private Sub Form_Load()
    Dim WinEst As WINDOWPLACEMENT
    WinEst.Length = Len(WinEst)
    GetWindowPlacement Me.hwnd, WinEst
    WinEst.showCmds=SW_MAXIMIZE
    setwindowplacement me.hwnd, winest
End Sub