Discussion :

[jojo-la-praline]

Bonjour,

Je souhaite empecher l'utilisateur de quitter mon formulaire car je dois faire un test avant qu'il ne quitte.


C'est pourquoi je voudrais mettre un bouton "Quitter" qui me permettrait de faire mon test avant de quitter.

Pour cela, il me faudrait supprimer la croix en haut a droite du formulaire qui permet a l'utilisateur de quitter.

Merci

[m-mas]

propriété ControlBox de ton formulaire à False !

[Hisham]

propriété ControlBox de ton formulaire à False !

Je crois que dans ce cas l'utilisateur peut toujors appuyer sur Alt-F4 pour fermer la fenêtre.
La solution est dans l'evenement FormClosing du Form, tu reçois un paramètre e de type FormClosingEventArgs, il suffit de positionner la propriété Cancel à true

Code :

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

1
2
3
4
private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
  e.Cancel = true;
}

[HULK]

si tu mets :

Code :

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

1
2
 
e.cancel = true

le bouton quitter dans lequel on aura un "Me.close()" ne marchera pas non plus.

tu devrais faire ton test dans le bouton quitter et également dans l'évenement closing de ta form. Juste après ton test, si tu vois que la fenetre de doit pas se fermer, alors là tu fais un e.cancel = true.

Ou si tu veux pas faire ca et que la solution de Morsi ne te convient pas tu peux toujours "griser" la croix de ton formulaire grace à ce code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
'Dans une : 
Class DisableCroix 
 
    Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Integer 
    Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer 
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Boolean) As Integer 
    Public Const MF_BYPOSITION = &H400& 
    Public Const MF_REMOVE = &H1000& 
 
    Public Sub New(ByVal hwnd As Integer, ByVal sText As String, ByVal IDMenu As Short) 
        Dim hSysMenu As Integer 
        Dim nCount As Integer 
        '*/ Pour désactiver la croix system----------- 
        hSysMenu = GetSystemMenu(hwnd, False) 
        nCount = GetMenuItemCount(hSysMenu) 
        RemoveMenu(hSysMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION) 
        RemoveMenu(hSysMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION) 
    End Sub 
end Class 
'---------------------------------------- 
 
Dans la form 
 
    Private DisCroix As DisableCroix 
 
    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message) 
        MyBase.DefWndProc(m) 
    End Sub 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        DisCroix = New DisableCroix(Me.Handle.ToInt32, "", 0) 
    End Sub