VB的程序做窗体
PrivateSubCommand1_Click()‘登录按钮代码Form2.Visible=TrueForm1.Visible=FalseForm2.Label1.Ca...
Private Sub Command1_Click() ‘登录按钮代码
Form2.Visible = True
Form1.Visible = False
Form2.Label1.Caption = "你已登录"
Form2.Label2.Caption = "用户名:" & Text1.Text
Form2.Label3.Caption = "密码为:" & Text2.Text
End Sub
如何用那几个基本的操作啊,我做不出来那几个效果出来做一个登陆的效果 展开
Form2.Visible = True
Form1.Visible = False
Form2.Label1.Caption = "你已登录"
Form2.Label2.Caption = "用户名:" & Text1.Text
Form2.Label3.Caption = "密码为:" & Text2.Text
End Sub
如何用那几个基本的操作啊,我做不出来那几个效果出来做一个登陆的效果 展开
3个回答
展开全部
Dim i, j As Boolean
i = False
j = False
If Combo1.Text = "admin" And Text1.Text = "admin" Then
i = True
End If
If Combo1.Text = "user" And Text1.Text = "user" Then
j = True
End If
If i = True Or j = True Then
MsgBox "欢迎使用班级管理系统!"
Call PlaySound(App.Path + "\声音\5.wav", 0&, &H1)//这是登录音
Form1.Show
Unload Me
Else
MsgBox "密码错误!请重新输入!"
Text1.Text = ""
Text1.SetFocus
Text2.Text = Str(Val(Text2.Text) + 1)
If Val(Text2.Text) >= 3 Then
MsgBox "你的密码输入次数超过三次,系统将退出!"
End
End If
End If
i = False
j = False
If Combo1.Text = "admin" And Text1.Text = "admin" Then
i = True
End If
If Combo1.Text = "user" And Text1.Text = "user" Then
j = True
End If
If i = True Or j = True Then
MsgBox "欢迎使用班级管理系统!"
Call PlaySound(App.Path + "\声音\5.wav", 0&, &H1)//这是登录音
Form1.Show
Unload Me
Else
MsgBox "密码错误!请重新输入!"
Text1.Text = ""
Text1.SetFocus
Text2.Text = Str(Val(Text2.Text) + 1)
If Val(Text2.Text) >= 3 Then
MsgBox "你的密码输入次数超过三次,系统将退出!"
End
End If
End If
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询