Verify the content of the textbox with multiple buttons on Form

[Gadhadhar]

I am beginner in VB.net. I have a FORM with multiple button and one textbox. I wish that when I click on the button, we check if something has been entered in textbox. But how to check this? Should I have below code for each button? :

If textbox.text = "" Then
messageBox.show("Empty Fields")

Is there a way to do this for all buttons ?

[Reegan]

Thank you to perform a little research on the forum, this same question comes up several times a week. Here is an example on a button

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

[Gadhadhar]

Another problem arose: when I click on the button, the error message, but the action when the button is even launched. Here is my function:

Private Sub ManagementOfButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click, button2.Click
        If TextBox1.Text.Length < 5 Then
            MessageBox.Show("Thank you to comment")
        End If
End Sub

[opaper]

What action? At what point in your code? For there in your code I see too

If you talk to any code you place after your End If

If ..... Then
  MsgBox("YourMsg")
End If

If you do not want to go into "Your Action" to add an else if your

[Gadhadhar]

SUB takes into account several buttons. If there is nothing in the textbox, type a message MessageBox.Show ("please save ...") but it is not the action of the start button, type EXIT, but it works not.

I cannot put the ELSE, because SUB manages several buttons

Here's the code:

Private Sub ManagementOfButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click, button2.Click
        If TextBox1.Text.Length < 5 Then
            MessageBox.Show("Thank you to comment")
        End If
End Sub
 
'button 1
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
webrowser.navigate(TextBox1.Text)
End Sub
 
'button 2
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
webrowser.navigate(TextBox1.Text)
End Sub

[opaper]

I do not see what prevents you from doing this:

Private Sub ManagementOfButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click, button2.Click
        If TextBox1.Text.Length < 5 Then
            MessageBox.Show("Thank you to comment")
        Else
            webrowser.navigate(TextBox1.Text)
        End If
End Sub