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
vb 实现登录注册校验功能
猜你喜欢
转载自blog.csdn.net/qq_37591637/article/details/82771138
今日推荐
周排行