Discussion :

[Golzinne]

Bonjour,

Sur le bouton d'un premier formulaire, j'ouvre un deuxième formulaire...

Code :

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

1
2
Dim result As DialogResult
result = creaMod.ShowDialog

Sur ce deuxième formulaire, j'ai un bouton OK

Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
If Not DiffUtil.CheckTva(CliTvaTextBox.Text) Then
Beep()
End If
End Sub

Ce bouton a pour mission de fermer ce deuxième formulaire, mais je voudrais avant de fermer, tester si mon numéro de TVA est correct. S'il ne l'est pas, je voudrais que le formulaire reste ouvert. Ici, dans ce cas je fais un beep mais j'ai aussi essayé un exit sub sans succès.

Comment faire un "Cancel" de l'événement ?

[StormimOn]

Tu as assigné la propriété DialogResult de ton bouton je suppose ? C'est lié à ca il me semble car à partir du moment où cette propriété est assignée à autre chose que None, un clic sur ce bouton fermera la fenêtre.

Met le DialogResult de ton bouton à None et essaye ainsi dans l'événement Click

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
   If Not DiffUtil.CheckTva(CliTvaTextBox.Text) Then
      Beep()
   Else
      Me.DialogResult = DialogResult.OK
      Me.Close
   End If
End Sub

[Golzinne]

Code :

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

Me.DialogResult = DialogResult.OK

Me génère l'avertissement suivant :
(avec DialogResult.OK souligné en vert)

Warning 1 Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.

par contre

Code :

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

Me.DialogResult = 1

fonctionne bien.

Un tout grand merci pour ton aide efficace