发新话题
打印

[VBA] 求教代码错误

求教代码错误

Private Sub CmdCancel_Click()
TxtInput.Text = ""
TxtInput.TablIndex = 0
End Sub
Private Sub CmdOk_Click()
If TxtInput.Text = "123456" Then MsgBox ("密码正确!") Else MsgBox ("密码错误,请重新输入。")
TxtInput.Text = ""
TxtInput.SetFocus
End If

Private Sub Form_Load()
TxtInput.Text = ""
TxtInput.TablIndex = 0
End Sub
没啥好说的

TOP


TxtInput.TabIndex = 0
不是
TxtInput.TablIndex = 0
你字母打多了一个
换个头像,看见广告就眼红,直接封ID。

TOP

发新话题