Discussion :

[selecto]

Bonjour à tous,

Je suis débutante en VB.net.

J'ai un FORM avec plusieurs bouton et un seul textbox. Je voudrais qu'au moment du click sur les bouton, on verifie si quelque chose a été entré dans textbox.
Dois-je faire pour chaque bouton un? :
If textbox.text = "" Then
messageBox.show("Champs vide")

y a-t- il un moyen de le faire pour tous les boutons (une vintaine) à la fois?

Merci

[Danyel]

Merci d'effectuer une petite recherche sur le forum, cette meme question revient plusieurs fois par semaine ...
Voici un exemple sur un button

Code :

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

PrivateSub GestionDesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_1.Click, Button_1.Click, Button_2.Click, Button_3.Click, .......

[selecto]

Merci beaucoup!
La prochaine fois je chercherai avant

[selecto]

Un autre probleme a surgit: quand je clique sur le bouton, le message d'erreur s'affiche, mais l'action du bouton est quand meme lancée

Voici ma fonction:

Code :

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

1
2
3
4
5
6
 
Private Sub GestionDesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton1.Click, bouton2.Click
        If TextBox1.Text.Length < 5 Then
            MessageBox.Show("Merci de mettre un commentaire")
        End If
End Sub

[Ogotcha]

Quel action ? A quel moment dans ton code ?

Car là dans ton code je vois pas trop

Si tu parle de l'éventuel code que tu place après ton End If

Code :

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

1
2
3
4
5
 
If ..... Then
  MsgBox("TonMsg")
End If
'Ton Action

Si tu ne veux pas passer dans "Ton action" ajout un else à ton if

[Danyel]

le message d'erreur s'affiche

Lequel ?

[selecto]

cette SUB prend en compte plusieurs boutons. Si on met rien dans le textbox, un message genre messageBox.show("veuillez mettre...")
mais il faut pas que l'action du bouton demarre, genre EXIT, mais ca marche pas.

Je ne peux pas mettre de ELSE, car cette SUB gere plusieurs boutons

voici le 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
 
Private Sub GestionDesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton1.Click, bouton2.Click
        If TextBox1.Text.Length < 5 Then
            MessageBox.Show("Merci de mettre un commentaire")
        End If
End Sub
 
'bouton 1
Private Sub bouton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton1.Click
webrowser.navigate(TextBox1.Text)
End Sub
 
'bouton 2
Private Sub bouton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouton2.Click
webrowser.navigate(TextBox1.Text)
End Sub