vb 实现登录注册校验功能

Option Explicit

Const user As String = "2014110725"

Const pass As String = "123456"

Private Sub Form_Load()

Text4.PasswordChar = "*"

Image1.Stretch = True

Image1.Picture = LoadPicture("C:\Users\123\Desktop\timer.jpg")

Text5.Text = Now()

End Sub

Private Sub Command1_Click()

Dim a As String

Dim b As String

a = Text3.Text

b = Text4.Text

If a = "" Or b = "" Then

MsgBox ("用户名或密码不能为空！")

Else

  If user = a And pass = b Then

  Form2.Show

  Form1.Visible = False

  Else

  MsgBox ("登录失败！")

  End If

End If

End Sub