quinta-feira, 8 de setembro de 2011

on


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

 Espero ter ajudado e att.

0 comentários:

Postar um comentário