Discussion :

[flet le kid]

Bonjour,

j'ai une application Access et je souhaiterais empêcher l'utilisateur de la quitter pour faire autre chose (cliquer sur le menu démarrer, lancer d'autre application, etc).
Une fois qu'elle est lancée, il faudrait qu'il la quitte absolument avant de faire autre chose.

Est possible?

[cafeine]

Hello,

Je n'ai pas testé, mais j'imagine que si tu mets ton appli en mode Always On Top, ça empêchera de faire autre chose.

à tester avec précaution !
déclarations

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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
 
Private Declare Function apiGetSys Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOW = &H40

dans le code

Code :

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

1
2
SetWindowPos Application.hWndAccessApp , HWND_TOPMOST, 0, _
    0, apiGetSys(SM_CXSCREEN), apiGetSys(SM_CYSCREEN), SWP_SHOWWINDOW

[flet le kid]

Merci pour la réponse. J'ai testé ce code mais en plus de ne pas fonctionner (car je pouvais cliquer sur le menu DEMARRER, etc.), il a buggé mon application qui s'est arrêtée. Bon, comme tu n'avais pas testé, j'ai travaillé sur une copie. Donc rien à signaler.

[cafeine]

Oui, ça n'empêche pas d'aller dans le menu démarrer mais ça maintient l'appli Access devant toutes les autres fenêtres.
Cette fois ci je l'ai testé avec succès.

[flet le kid]

Bonjour,

Je pense qu'il doit avoir un conflit avec tous les codes pris ça et là pour la constitution de mon application. En tout cas, je vais essayé encore à adapté ce code à mon application.

Merci encore.