Código logo abaixo:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ErrorProvider1.Clear()
If Me.TextBox1.Text.Trim.Equals("") Then
Me.ErrorProvider1.SetError(Me.TextBox1, "Informe o nome de usuário")
Return
End If
If Me.TextBox2.Text.Trim.Equals("") Then
Me.ErrorProvider1.SetError(Me.TextBox2, "Informe a senha do usuário")
Return
End If
MsgBox("Seja bem vindo", MsgBoxStyle.Information, "LOGIN")
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://henriks-si.blogspot.com/")
End Sub
End Class
0 comentários:
Postar um comentário