绝地求生 查看ping:谁有登陆窗口源代码（vb）？

来源：百度文库 编辑：中科新闻网 时间：2024/05/07 06:53:31

Option Explicit

Public LoginSucceeded As Boolean

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

Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "password" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
Form1.Show

Else
MsgBox "无效的密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
首位作一点修改就可以用了

谁有登陆窗口源代码（vb）？ 谁有c#登陆窗口源代码 谁有VB万年历源代码,谢谢提供!!!! 谁有VB万年历源代码,谢谢提供!!!! 谁有VB计算器的源代码啊？ 谁有vb小程序的源代码？ 哪有vb源代码下载 请问谁有美观的VB外壳源代码? 谁有vb题库管理系统现成的源代码呀？？？ 谁有vb作的图书管理系统源代码？