Программа теряет фокус?

[JastUser]

Столкнулся с такой проблемой:
Написал на VB-6 поставил ее в автозагрузку Win2000Prof
Она как положено грузиться тока теряет фокус.

подскажите как ей вернуть фокус, или как сделать чтоб не теряла?

[Cyrax]

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

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

и где-нибудь в коде

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

SetFocuse Me.hWnd

[JastUser]

Пасиб.

Как определить Me.hWnd, если не трудно можно тоже в примере так как я буду умирать искавши самостоятельно.

Или написанного ранее достаточно?

[RayShade]

Достаточно Вполне.

[Cyrax]

Пасиб.

Как определить Me.hWnd, если не трудно можно тоже в примере так как я буду умирать искавши самостоятельно.

Или написанного ранее достаточно?

я плакаль...
ключевое слово Me ссылается на форму в коде которой используется.
т.е.

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

Private Sub Form1_Click()
    Debug.Print Me.hWnd
End Sub

и

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

Private Sub Form1_Click()
    Debug.Print Form1.hWnd
End Sub

дадут один и тотже результат...

[JastUser]

Пасиб.

[GSerg]

Друзья... Любовь к API похвальна... Но нельзя же везде и всегда... Просто

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

Me.SetFocus

[Cyrax]

Друзья... Любовь к API похвальна... Но нельзя же везде и всегда... Просто

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

Me.SetFocus

мдя... а ведь и правда...
чейто меня видать переклинило...

[JastUser]

И выходит так что мне этот фокус надобно постоянно ставить,
так как необходимо чтоб он не терялся. (Не могу выяснить причину потери фокуса, и соответсвенно момент)

Вот и выходи следующий вопрос - запретить потерю фокуса? Раз и навсегда! Токак как!

За все сказанное польшое спасибо буду испытвывать до этого использовал:

SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

В виде :
SetWindowPos Form1.hWnd, -1, 0, 0, 10000, 14000, &H40

[GSerg]

Попробуй так

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

Private Sub Form_LostFocus()
  Me.SetFocus
End Sub

[Mikle]

Вот здесь:
http://bbs.vbstreets.ru/viewtopic.php?t=1888&highlight=
я обсуждал близкую тему, и этот код:

Private Sub Form_LostFocus()
Me.SetFocus
End Sub

не помог. Правда проблема была не в поиске причины сворачивания, а в ее устранении.

[JastUser]

И как решилось, а то я тож пробывал, есть чуство что какая то прога грузиться после меня ( так как иногда и довольно редка моя прога захватывает себе таки фокус)

[Cyrax]

JastUser, ты бы рассказал в чем смысл программы
глядишь может чего и придумаем...

[JastUser]

На компе должна работать одна прога
Она работете с 1С через OLE, и COM-портом, специализированной клавиатурой
пот и все (типа теринала такого)
И вот в момент запуска иногда (часто) теряет фокус
и как следствие юзер не может ничего ввести
(причем юзер очень и очень тупой)

[Cyrax]

ну тады килаем на форму таймер
и пускай он периодически устанавливает
фокус на окно и выводит его на передний план

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

Private Sub Timer1_Timer()
    Form1.ZOrder 0
    Form1.SetFocus
End Sub


интервал таймера сам подбереш.