一个VB菜鸟的问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:47:11
如何编写程序：使使用这个工程时必须填写用户名和密码。
我只会
Let a = Text1.Text
Let b = Text2.Text
If a = "aoxuetianxuan" And b = "529529" Then
接下去不会啦～～

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "529529" And txtUserName = "aoxuetianxuan" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
Else
MsgBox "无效的密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

去这里http://v.youku.com/v_show/id_XNzQxNjQzMg==.html看看就知道了！！！！！！！

接下来就是你要运行的程序了。比如提示登录成功啊什么的~
msgbox("登录成功")

If a = "aoxuetianxuan" And b = "529529&qu