遇到碰瓷的该怎么处理:帮我看看这个程序哪错了!!谢谢!!
来源:百度文库 编辑:查人人中国名人网 时间: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
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
什么的代码?
没有什么问题啊