遇到碰瓷的该怎么处理:帮我看看这个程序哪错了!!谢谢!!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 17:44:24
Private Sub Com_can_Click()
End
End Sub

Private Sub Com_OK_Click()
If passtext = "123" Then
End
Else
errormode = MsgBox("密码输入错误,请重新输入!", 16, "警告窗口")
passtext = ""
passtext.SetFocus
End If
End Sub

将:errormode = MsgBox("密码输入错误,请重新输入!", 16, "警告窗口") 一句改为:
MsgBox "密码输入错误,请重新输入!", 16, "警告窗口"
或在这个语句前加一句:Dim errormode As Integer

什么的代码?

没有什么问题啊