ventana pierde el foco cuando la llamo,convinacion de teclas

[PACO_TORG]

hola,
Buen dia,

les planteo problema:
he realizado una aplicación la cual al arrancar el form principal lo oculto con me.hide, después con la convinación de teclas "Ctrl + a" la visualizo con formprincipal.show, el detalle esta que se visualiza perfectamente pero pierde el enfoque, aunque se posiciona por encima de todas, tengo que darle un click para para activarla ventana.
he probado con setfocus,lostfocus, también hice un click automatico al momento de volverse a visualizar pero no lo activa.

alguien tiene alguna sugerencia.

Saludos.

[pkj]

¿Has probado la api setfocus?
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long

¿Has probado a hacer la ventana "Siempre visible"?
Puedes hacerla siempre visible y luego dejarla de nuevo normal.

Código vb:

Private Const conHwndTopmost = -1
Private Const conHwndNoTopmost = -2
Private Const conSwpNoSize = &H1
Private Const conSwpNoMove = &H2
Private Const conSwpNoActivate = &H10
Private Const conSwpShowWindow = &H40
Private Declare Function 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) As Long
 
 
Sub SiempreVisibleOn(ByVal lhWnd As Long)
  SetWindowPos lhWnd, conHwndTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 
Sub SiempreVisibleOff(ByVal lhWnd As Long)
  SetWindowPos lhWnd, conHwndNoTopmost, 0, 0, 0, 0, conSwpNoActivate Or conSwpNoMove Or conSwpNoSize
End Sub
 

PD: Quizá tengas que quitar el conSwpNoActivate para que la enfoque. Yo siempre lo he usado tal cual.