Simuler le click de la souris sur le focus d'un form ?

**HookerSeven** · 22/02/2006, 14h35

Bonjour à tous,

J'ai ma fenêtre access qui se cache dès l'ouverture de mon appli et laisse à l'écran uniquement mon formulaire de démarrage.

Malheureusement lorsqu'il y a une autre application déjà ouverte, ce formulaire reste derrière et n'est pas visible tant que l'on a pas cliqué dessus ou sur le bouton de la barre des tâches.

Comment peut-on solution ce problème ?

J'avais penser en VBA à simuler le click de la souris sur le focus du formulaire; mais je ne sais comment faire.

Merci de vos réponses.

**HookerSeven** · 22/02/2006, 17h40

Je pensais aussi utiliser Me.SetFocus dans l'évènement activation de mon formulaire; mais apparament cela ne fonctionne pas !

Quelqu'un aurait une idée ???

Merci

**Frank** · 22/02/2006, 21h54

Si le formulaire est en indépendant, propriété modale à oui, as tu toujours le même souci ?

**Faw** · 22/02/2006, 21h54

Salut, qu'utilises-tu comme commande pour minimiser ton instance access?

**HookerSeven** · 23/02/2006, 12h30

Bonjour,

Tout d'abord merci de vos réponses

Pour répondre à Franck mon formulaire est à oui pour modal et indépendant, donc le problème ne vient pas de là, je pense.

Sinon Faw, j'utilise ce code pour minimiser mon instance access :

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Database
Option Explicit
 
Public Enum WindowType
    Maximize
    Minimize
    Restore
End Enum
 
Public Function AppSize(Optional Window As WindowType = Maximize) As Boolean
    Select Case Window
        Case Maximize: DoCmd.RunCommand acCmdAppMaximize
        Case Minimize: DoCmd.RunCommand acCmdAppMinimize
        Case Restore: DoCmd.RunCommand acCmdAppRestore
        Case Else: DoCmd.RunCommand acCmdAppMaximize
    End Select
    AppSize = True
End Function

Ensuite sur l'évènement Open de mon formulaire de démarrage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
AppSize Minimize
End Sub

Il est vrai que la fenêtre access apparaît devant les autres applications lorsqu'Access me demande de m'identifier; mais ensuite lorsque celle-ci se minimise, le formulaire reste en arrière plan.

:

Une petite idée ?

Merci à vous.

**Faw** · 23/02/2006, 18h57

Essaye avec l'Api ShowWindow.

**HookerSeven** · 24/02/2006, 12h25

C'est à dire ?

Peux-tu me donner un exemple ? car les API et moi, ça fait deux !

Merci

**Faw** · 24/02/2006, 19h45

Rien trouvé sur le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Compare Database
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, 0
ShowWindow Me.hwnd, 1
End Sub

Rien n'est garanti. ces commandes ont tendance à entrer en conflit avec
d'autres (animation de forms, Maximisation/minimisation...).
Tout dépend du contexte.

**HookerSeven** · 24/02/2006, 21h28

Salut Faw,

J'ai essayé ce que tu as écrit et ça cache la fenêtre access ainsi que mon formulaire de démarrage.

Dommage, ça me semblait une bonne idée; mais apparement la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowWindow Me.hwnd, 1

ne se déclenche pas ou en tout cas ne joue pas sur mon formulaire.

Merci comme même et si tu as une autre idée, elle sera bien entendu la bien venue !

@+