Discussion :

[JOTH]

Bonjour,
Mon application récupère une valeur dans un textbox et le divise par une constante. Dans le cas ou j’oublierais de renseigner le textbox j'ai fais un
"si chaine vide alors messagebox" mais quand je clique sur le bouton cancel
de la boite de dialogue le programme continu et j'ai une erreur
Comment faire pour sortir du sub en cliquant sur "cancel"

Merci d'avance,

joth

[_PascalC_]

Tu peux faire ça en exploitant la valeur de retour du MessageBox :

Code :

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

1
2
 
If (MessageBox.Show("Votre message", "Titre") = Windows.Forms.DialogResult.Cancel) Then return

ou bien encore :

Code :

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

1
2
3
4
5
6
 
If (MessageBox.Show("Votre message", "Titre") = Windows.Forms.DialogResult.OK) Then
	'Votre traitement
	'.....
 
End If

Pascal

[Ehjoe]

... récupère une valeur dans un textbox et le divise par une constante.
si chaine vide alors messagebox"
mais quand je clique sur le bouton cancel de la boite de dialogue le programme continu et j'ai une erreur
Comment faire pour sortir du sub en cliquant sur "cancel"...

Bonjour,

Ce n'est pas utile de faire un test de la saisie ici, il se fera tout seul lors des opérations mathématiques avec une gestion d'erreur, sinon tu vas tester deux fois, même trois ou quatre, alors qu'une suffit, ça dépend aussi tu type de valeur ?

Exemple, tu peux en effet tester :
si espace, si lettre, si vide, si deux virgules, si point au lieu de virgule...
A la place, généralement selon la valeur, quand tu va y appliquer une opération mathématique, si ce n'est ps conforme ça va planter, c'est là qu'il faudra tester pour n'avoir à le faire qu'une fois...

Code :

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

1
2
3
4
5
6
7
 
If TextBox1.Text = "" Then
  MsgBox("Saisir une valeur", vbExclamation)
  TextBox1.Focus()
  TextBox1.DeSelectAll()
  Exit Sub
End If

[JOTH]

Merci à vous,

Cdlt,
joth