Forcer le focus pour une feuille

Question

Bonjour,
Je ne réussis plus à donner le focus à des feuilles (MDIChild false) d'une façon automatique dans un projet, depuis que j'ai installé mon application sur un nouveau PC IBM  os Window 2000  ver 5.00 service Pack 2.
L'application fonctionne très bien sur d'autre PC

J'ai essayé différente possibilité :
1 : Un timer sur la feuille qui exécute :      Me.Show

2 : Un timer sur la feuille qui exécute :      Me.SetFocus

3 : Un timer sur la feuille qui exécute :    Dim lngretour As Long
lngretour = SetActiveWindow(Me.hwnd)
  
Sans résultat , si j'exécute un autre programme elle perd le focus 

Le problème provient peut-être d'un paramètre de Window ?

Si quelqu'un connaît la solution je le remercie à l'avance 

Merci  et bonne journée

zorion · Answer

Réponse a moi même:

Public Declare Sub 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)

Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40

et 

private sub feuillex_load

   SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / 15, Me.Top / 15, Me.Width / 15, Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
 
end sub

Forcer le focus pour une feuille

1 réponse

Discussions similaires