Discussion :

[nadong]

Bonsoir à tous,

Je voudrais savoir si quelqu'un aurait une idée :
J'ai un bouton btnOK et un bouton btnQuitter,
Le bouton btnOK sert à l'enregistrement sur une base Access 2010,
Le bouton btnQuitter peut faire deux choses :
Soit il quitte l'application directement à condition que l'enregistrement à déjà été fait,
ou bien il affiche une boîte de dialogue pour proposer l'enregistrement.

Pour ce faire il faudrait déjà qu'il sache s'il y a eu un enregistrement !!!
Voici le code pour vous donnez une idée :

Code :

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

1
2
3
4
5
If btnOK.Click Then 'bouton ok Then
            Me.Close() 'fermer l'application
        Else
            bdAvertissement.Show() 'afficher un avertissement
        End If

bdAvertissement est ma boîte de dialogue qui ne doit s'affiche que s'il n'a pas eu d'enregistrement, autrement dit, si le bouton ok a été cliqué alors l'enregistrement a déjà été fait donc l'application peut se fermer sans Avertissement.

Quelqu'un pourait-il m'aider s'il vous plais ???
Merci d'avance

[ebastien]

Bonjour,

Il faut définir au niveau de la form une variable Private du genre HasBeenSaved as Boolean et passer cette variable à True dans le click du bouton OK.
Il ne reste qu'à tester cette variable dans le bouton Quitter et le tour est joué.

[_Ez3kiel]

Bonjour,

Il faut définir au niveau de la form une variable Private du genre HasBeenSaved as Boolean et passer cette variable à True dans le click du bouton OK.
Il ne reste qu'à tester cette variable dans le bouton Quitter et le tour est joué.

Pour illustrer la judicieuse proposition d'ebastien :

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
    Private btnOKClicked As Boolean = False
 
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
 
        btnOKClicked = True
 
    End Sub
 
    Private Sub BtnQuitter_Click(sender As Object, e As EventArgs) Handles BtnQuitter.Click
 
        If btnOKClicked Then
            Me.Close()
        Else
            bdAvertissement.Show() 'afficher un avertissement
        End If
 
    End Sub

[shayw]

Bonjour
on peut fermer l'application en cliquant sur le X aussi

Code :

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

1
2
3
4
5
6
7
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  If not  btnOKClicked Then
          e.cancel = true
         bdAvertissement.Show() 'afficher un avertissement
   End If
 
End sub

[nadong]

Merci à tous grâce à vous cela s'est résolu très rapidement...
Voici le code final :

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
Private btnOKClicked As Boolean = False
 
    Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
        Call nbActes()
        Call enregistrement()
        btnOKClicked = True
    End Sub
 
    Private Sub btnQuitter_Click(sender As System.Object, e As System.EventArgs) Handles btnQuitter.Click
        If btnOKClicked Then 'boutton ok Then
            End
        Else
            bdAvertissement.Show()
        End If
        'http://www.developpez.net/forums/d1417966/dotnet/langages/vb-net/verifier-bouton-bien-ete-clique/#post7704117
    End Sub

Bonjour
on peut fermer l'application en cliquant sur le X aussi

Code :

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

1
2
3
4
5
6
7
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  If not  btnOKClicked Then
          e.cancel = true
         bdAvertissement.Show() 'afficher un avertissement
   End If
 
End sub

Que veux-tu dire par "On peut fermer cette application en cliquant sur X" ?

[callo]

Que veux-tu dire par "On peut fermer cette application en cliquant sur X" ?

shayw voudrait dire par là, la croix rouge (en haut à droite) permettant de fermer un formulaire. Si tu ne gères pas l'event FormClosing, tu auras le warning que lorsque le user aura cliqué sur ton bouton btnQuitter. Mais à supposer que le user quitte le formulaire en cliquant sur la croix rouge, et bien même si ta variable btnOKClicked est égale à True, tu peux dira adieu à ton warning form