Runtime 2003 et bouton fermer [Résolu]

[seb92400]

Bonsoir,

J'aimerais savoir s'il est possible de "supprimer" ou du moins de désactiver le bouton "fermer" de la fenêtre du runtime... voire de ne pas afficher du tout la fenêtre du runtime...

Dans l'application que j'ai créé, j'éxécute une procédure à la fermeture du menu démarrer, et si les utilisateurs ferment l'application avec le bouton fermer de la fenêtre du runtime, ma procédure ne s'éxécute pas...

Merci d'avance...

[DelphiManiac]

Sans vouloir jouer avec les API de windows pour désactiver le bouton Fermer du runtime Access, il est possible d'interdire la fermeture d'access ou au moins d'être sur d'en être informé.

AU lancement, il faut ouvrir un formulaire qui sera caché, sur l'évènement "Sur libération' de ce formulaire.

Code VB :

1
2
3
4
5
6
 
Private Sub Form_Unload(Cancel As Integer)
  If MsgBox("Désirez vous quitter votre application", vbYesNo + vbDefaultButton2) = vbNo Then
    Cancel = True
  End If
End Sub

[seb92400]

Merci, je vais essayer ça...

De toute façon, je crois que les API c'est pas encor de mon niveau...

[cassidy]

salut!
pour desactiver le bouton fermer du runtime d'access voici une methode que j'ai eu sur ce forum et qui marche à merveille!

1-Saisir le code suivant dans un nouveau module access que tu nommeras par ex : mod_desactiveX :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Option Explicit
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
 
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
Public Function DisableX()
'Désactive le X de fermeture d'ACCESS
  Dim hMenu As Long
  Dim nCount As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    nCount = GetMenuItemCount(hMenu)
 
    Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
    Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
    Call RemoveMenu(hMenu, nCount - 3, MF_REMOVE Or MF_BYPOSITION)
 
    DrawMenuBar Application.hWndAccessApp
End Function

2-Créer une macro nommée AutoExec et : à action, choisissez Runcode, à nom de la fonction, sélectionner DisableX() du module mod_desactiveX crée ci-dessus.


au lancement de ton application access ton bouton fermer sera desactivé .

[seb92400]

Merci, je vais essayer ça...

Et si vraiment, je veux... masquer toute la fenêtre du runtime et n'avoir que mes formulaires à l'écran... C'est possible avec quelques lignes ou pas ? Tant qu'on y est, autant faire compliqué quand on peut faire simple...

[DelphiManiac]

Envoyé par noawsen

Merci, je vais essayer ça...

Et si vraiment, je veux... masquer toute la fenêtre du runtime et n'avoir que mes formulaires à l'écran... C'est possible avec quelques lignes ou pas ? Tant qu'on y est, autant faire compliqué quand on peut faire simple...

Pas possible ca, c'est du MDI, tes fenêtres sont des fenêtres appartenant à la fenêtre principale. Si tu masques la principale, tu masques tout.

[argyronet]

Bonjour...

Envoyé par noawsen

Et si vraiment, je veux... masquer toute la fenêtre du runtime et n'avoir que mes formulaires à l'écran... C'est possible avec quelques lignes ou pas ? Tant qu'on y est, autant faire compliqué quand on peut faire simple...

Ce débat a déjà été soulevé...

C'est possible mais risqué et ça tient pourtant en quelques lignes...

Argy

[seb92400]

Merci... Comme je débute, je n'avais pas cherché avec des termes comme "instance"...

[argyronet]

Envoyé par DelphiManiac

Pas possible ca, c'est du MDI, tes fenêtres sont des fenêtres appartenant à la fenêtre principale. Si tu masques la principale, tu masques tout.

Non, pas exactement...
L'application Access possède son propre Handle et chaque formulaire également.
Il est donc possible de masquer la fenêtre Access sans influencer les autres mais comme je l'ai déjà souligné, la maîtrise de son projet dans toutes ses coutures est impérative.

Argy

[DelphiManiac]

Envoyé par argyronet

Non, pas exactement...
L'application Access possède son propre Handle et chaque formulaire également.
Il est donc possible de masquer la fenêtre Access sans influencer les autres mais comme je l'ai déjà souligné, la maîtrise de son projet dans toutes ses coutures est impérative.

Argy

Bon à savoir ca, mais honnetement, même en ayant quelques années de developpmment derrière moi, y compris bas niveau avec les API, je ne me lancerais pas dans ce genre de manip