(声明:魏滔序原创,转贴请注明出处。)
Private Sub Command1_Click()
Dim str As String
Dim Cancel As Boolean
str = InputBox("")
Cancel = Not CBool(StrPtr(str))
MsgBox Cancel
End Sub
VB6中判断用户是否按下了InputBox的取消按钮
最新推荐文章于 2024-12-19 10:58:43 发布
(声明:魏滔序原创,转贴请注明出处。)
Private Sub Command1_Click()
Dim str As String
Dim Cancel As Boolean
str = InputBox("")
Cancel = Not CBool(StrPtr(str))
MsgBox Cancel
End Sub