aide VB, fermer l'application ... Résolu

Question

Bonjour,

j'aimerais savor comment on peut programmer sur Visual Basic pour que la croix rouge pour fermer l'application n'ai plus d'effet ...

merci @+

-Shadow- · Accepted Answer

Re,
Public Sub Me_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True 'annuler égale vrai.
End Sub
Topique vieux de 2 siècles, mais vu qu'il a une certaine "audience" sur Google.fr autant que je poste :-)

f894009 · Answer

1 ere solution:

       _ Un form sans croix de fermeture: Borderstyle=0-none dans proprietes


2 eme solution:

       _ Les APIs de Windows pour invalider la croix de fermeture

ATTENTION DE NE PAS OUBLIER DE METTRE UN BOUTON DE FERMETURE.......!

Form1
Private Sub Form_Activate()
    'Fenêtre gérée
    Call MForme(Me, 6) ' invalide la croix de fermeture
End Sub

----------------------------- Module1 --------------------------------------------
Option Explicit

'************************************************
'Fonctions disponibles
'x = MForme(nom de la FORM, type de fonctionnalité)
'Exemple : x = Fenetre(Form1, 6)
'************************************************

'Codes de contrôles
Const SC_MAXIMIZE = &HF030
Const SC_MINIMIZE = &HF020
Const SC_MOVE = &HF010
Const SC_RESTORE = &HF120
Const SC_SIZE = &HF000
Const SC_CLOSE = &HF060

'Constante
Const MF_BYCOMMAND = 0

'API de gestion des fenêtres
Private Declare Function GetSystemMenu Lib "user32" (ByVal Hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Function MForme(Forme As Form, Bouton As Integer)
    'Gestion de fenêtrage
    'Remplacer SC_MAXIMIZE par une des valeurs ci-dessous

    'SC_MAXIMIZE : invalide l'aggrandissement de la feuillle
    'SC_MINIMIZE : invalide la réduction de la feuille
    'SC_MOVE     : invalide le déplacement de la feuille
    'SC_RESTORE  : invalide la restauration de la feuille
    'SC_SIZE     : invalide le redimensionnement de la feuille
    'SC_CLOSE    : invalide la fermeture de la feuille

    'Initialisation
    Dim hMenu As Long

    'Gestion de la fenêtre
    hMenu = GetSystemMenu(Forme.Hwnd, 0)                   'Récupère le handle du menu système de la feuille
    If Bouton = 1 Then Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)            'marche pas
    If Bouton = 2 Then Call DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)            'marche pas
    If Bouton = 3 Then Call DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)                  'Ok ca marche
    If Bouton = 4 Then Call DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)            'marche pas
    If Bouton = 5 Then Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)                    'marche pas
    If Bouton = 6 Then Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)                'Ok ca marche
End Function
--------------------------------------------------------------------------

3 eme solution:

      _ Supprimer la croix de fermeture:     c'est faisable, mais pour le moment je ne sais plus comment. Donc je vais chercher
          pour répondre entièrement a la question

f894009 · Answer

Bonjour, j'ai retrouve la facon de supprimer la croix de fermeture d'un form en Visual Basic.
dans les proprites du form mettre ControlBox a false. Par contre cela enleve aussi les autres Boutons. Ensuite en fonction de ce que vous attendez de votre form, il faudra parametrer la  propriete BorderStyle de 1 a 5 et MaxButton

f894009 · Answer

Bonjour, j'ai retrouve la facon de supprimer la croix de fermeture d'un form en Visual Basic.
Dans les proprites du form mettre ControlBox a false. Par contre cela enleve aussi les autres Boutons. Ensuite en fonction de ce que vous attendez de votre form, il faudra parametrer la  propriete BorderStyle de 1 a 5 et MaxButton

Polux31 · Answer

Bonjour,

Ce topic est "Résolu", ouvre un nouveau sujet si tu veux avoir des réponse

;o)

Polux

Aide VB, fermer l'application ...

5 réponses

Newsletters