有关VB编程语言
编写一个程序,实现当用户输入的用户名和口令都正确时(假定用户名为SYL,口令为123456)显示"欢迎登录"的消息对话框,当用户名或口令有错误时显示消息对话框报告错误。请...
编写一个程序,实现当用户输入的用户名和口令都正确时(假定用户名为SYL,口令为123456)显示"欢迎登录"的消息对话框,当用户名或口令有错误时显示消息对话框报告错误。
请给出详细步骤,谢谢 展开
请给出详细步骤,谢谢 展开
展开全部
1.建立一个窗口。
2.把属性按如下设置:
名称 frmLogin
borderstyle 3
caption 登录
3.在窗体里添加两个文字控件(Label),两个文字输入框控件(TextBox),两个按钮控件(CommangButton)就像你给出的图一样把文字设好,我就不细说了。
4.在代码框里输入如下代码:
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "123456" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
MsgBox "欢迎登录", , "登录"
Else
MsgBox "无效的密码,请重试!", 16, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
点F5运行就OK了!
2.把属性按如下设置:
名称 frmLogin
borderstyle 3
caption 登录
3.在窗体里添加两个文字控件(Label),两个文字输入框控件(TextBox),两个按钮控件(CommangButton)就像你给出的图一样把文字设好,我就不细说了。
4.在代码框里输入如下代码:
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "123456" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
MsgBox "欢迎登录", , "登录"
Else
MsgBox "无效的密码,请重试!", 16, "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
点F5运行就OK了!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询