啊，你的意思是，当点击取消按钮、或者是那个叉号按钮时，就重新打开这个对话框呗。那就不要把InputBox的返回值直接赋值给整数变量x 因为InputBox的返回值是字符串型，即文本型，所以你要先把InputBox的值赋值给文本型变量，然后用StrPtr函数转化一下，如果用StrPtr函数转化后的值为0，说明点了取消或...
inputbox点击取消是得到的值是 空（""），而 X你定义的是integer,当然类型不匹配。建议见下：y=inputbox（“请输入一个数”，“陈若鹏”）if y="" then x=0 else y=x
本来点击取消是关闭inputbox的，但因为你放在循环体里面，所以其实做了两个操作，当你点击取消时，它真的已经关闭，但又执行一次循环，又把inputbox打开了，你看上去好像是没有关闭一样。
楼主说的是VBS吧？VBS的inputbox的“取消”键是不能取消的，但可以通过检测内容是否为空而达到目的（也是楼主的第一个问题）do while (1)a=inputbox("hi")if not a="" then exit do end if loop 这一段vbs，当输入为空或点击了取消键时，会重新弹出inputbox，直到用户输入内容为止。
Private Sub Form_Load()Dim a As String a = InputBox("请输入", "测试")If a = "" Then MsgBox "你没有输入"Call Form_Load Else MsgBox "你输入了"End If End Sub 此代码点取消或者没有输入任何值都会重新让你输入一次。
在调用inputbox函数之前加上这句 On Error Resume Next 就可以了
InputBox取消返回vbNullString,没有输入确定返回"",可以根据这点判断用户取消。 Luosen56 小吧主 13 问题一、If a(i) = "" Then 如果a(i) 是整型数,不能 = "" ; 建议改为——Dim C As StringC = InputBox("请输入第 " & i + 1 & " 个整数:", "数据输入")If C = vbNullString ThenExi...
retval = InputBox("请输入一个0到10之间的数作起始值")If retval = "" Then MsgBox "你点了取消" 六月VB飞雪 啥也不懂 1 干脆新建个窗体把边框设为3,模块中公有个函数自己制作输入框。 可以设置点确定或按回车返回“输入:输入内容”,用instr查找函数即可取出输入内容,按取消或标题栏的关闭按钮就返回空。
VB6中判断用户是否按下了InputBox的取消按钮 Dim s As String Dim Cancel As Boolean s = InputBox("") Cancel = Not CBool(StrPtr(s)) MsgBox Cancel
小隐的博客 VB6中判断用户是否按下了InputBox的取消按钮 Dim s As String Dim Cancel As Boolean s = InputBox("") Cancel = Not CBool(StrPtr(s)) MsgBox Cancel