Ошибка на SetFocus

[Чудик]

Никто не поделиться соображениями, почему на строчку

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

Me.txtAccess(2).SetFocus

прога ругается ошибкой вызова процедуры и ошибкой аргумента?

[tyomitch]

Может, форма невидимая?

[GM]

Незнаю что может быть, возможно txtAccess(2) отсутсвует, но можеш юзать API-шную:

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

Declare Function SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long


[ANDLL]

А может он сам невидимый\unenabled?

[Ennor]

А где именно эта строка находится? А то там могут быть нюансы...

[Чудик]

Нет, все видимое - и форма, и поле; я даже явно задал видимость поля через Visible, но ошибка не ушла.
Идея с API хороша, но упомянутая функция конфликтует с зарезервированной функцией VB SetFocus. Комп тоже ругается...
Идею довел до аналога функции

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

Private Declare Function SetFocusAPI& Lib "user32" Alias "SetFocus" (ByVal hwnd As Long)

которая используется в VB как раз для разрешения конфликтов в подобных случаях.
И через API все заработало. Так, что спасибо за идею, хотя буду признателен, все-таки, если кто-нибудь объяснит - почему стандартная встроенная функция SetFocus не работает в данном случае:
есть форма, два TextBox в массиве и две кнопки в массиве. Первый TextBox не видим, второй явно определен видимым. При открытии формы на второй TextBox нужно установить фокус. Но при стандартной setFocus - ошибка.

[GSerg]

С этого надо было начинать

При юзании контролов из form_load имеет прямой смысл сначала сделать me.show.

[Чудик]

Да, чуть не забыл - при открытии формы видимый textBox увеличивает свою ширину и закрывает тем самым невидимый TextBox. Может фишка в этом?

[Чудик]

Да, GSerg, ты прав. Туговат я все-таки ... Маленький момент, а не углядел.