杭州交通信息网羧甲基壳聚糖分子式:vb高手来一下 谢谢了 关于text的错误
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/06 03:12:12
Option Explicit
Const Password As String = "111"
Private Sub Form_Load()
Const MAX_LOGON_ATTEMPTS As Integer = 3
Static sintLogonAttempts As Integer
frmlogon.Show vbModal
Do Until frmlogon.Txtpassword.Text = Password
sintLogonAttempts = sintLogonAttempts + 1
If sintLogonAttempts < MAX_LOGON_ATTEMPTS Then
MsgBox prompt:="密码无效", _
buttons:=vbOKOnly + vbInformation
frmlogon.Txtpassword.Text = ""
frmlogon.Show vbModal
Else
MsgBox prompt:="试图登录次数太多，再见", _
buttons:=vbOKOnly + vbInformation
End
End If
Loop
End Sub
第7行的 .text 出错了 不知道错在那里 请指教
Const Password As String = "111"
Private Sub Form_Load()
Const MAX_LOGON_ATTEMPTS As Integer = 3
Static sintLogonAttempts As Integer
frmlogon.Show vbModal
Do Until frmlogon.Txtpassword.Text = Password
sintLogonAttempts = sintLogonAttempts + 1
If sintLogonAttempts < MAX_LOGON_ATTEMPTS Then
MsgBox prompt:="密码无效", _
buttons:=vbOKOnly + vbInformation
frmlogon.Txtpassword.Text = ""
frmlogon.Show vbModal
Else
MsgBox prompt:="试图登录次数太多，再见", _
buttons:=vbOKOnly + vbInformation
End
End If
Loop
End Sub
第7行的 .text 出错了 不知道错在那里 请指教
fmlogon都没了，还怎么引用fmlogon上的text
应该在fmlogon上做密码判断!
真是不堪入目，加群4803236聊聊吧。
你的循环好无聊噢
"="和“==”的区别吧。