Question

VB中使用inputbox函数后 在对话框点取消按钮报错该如何解决？

我希望在我点取消的时候，对话框尽量不要消失，然后输入光标重新定位到一开始输入的位置。





Answer 1

啊，你的意思是，当点击取消按钮、或者是那个叉号按钮时，就重新打开这个对话框呗。

那就不要把InputBox的返回值直接赋值给整数变量x

因为InputBox的返回值是字符串型，即文本型，

所以你要先把InputBox的值赋值给文本型变量，

然后用StrPtr函数转化一下，

如果用StrPtr函数转化后的值为0，说明点了取消或叉号，

如果用StrPtr函数转化后的值大于0，说明点了确定按钮，

Sub test()

    Dim s$, x%

    Do

        s = InputBox("请输入X的值")

    Loop Until StrPtr(s) '如果点的是确定则终止循环

    '当循环终止后，进行如下处理：

x = Val(s) '将文本s转化为数值赋值给x

    Select Case x '用select语句Select判断x的值

    Case Is < 0

        MsgBox "你输入了小于0的整数", 64

    Case Is < 100

        MsgBox "你输入了大于等于0且小于100的整数", 64

    Case Is < 300

        MsgBox "你输入了大于等于100且小于300的整数", 64

    Case Else

        MsgBox "你输入了大于等于300的整数", 64

    End Select

End Sub

追问

大神~那如果我想让对话框消失，但 不弹错 该怎么办呢？

追答

没听懂你说的 不弹错 是啥意思。说清楚点，不怕字多，就怕说不明白哦

追问

就是，我这个程序 是想判断分段函数的。您这个我试了一下，当只有输入为0时才能退出对话框。但我希望，x不在区间内时（即x<=0),只弹出“无此函数值”。并且如果可以的话，在点inputbox 对话框中的“取消”时，能直接退出对话框，返回到窗体，也就是一开始运行时，我没有click的状态。

追答

那就把上面的代码稍微改一下就行。

去掉Do循环，改成if判断一下，

判断如果点了取消或叉号，则直接exit sub退出。

另外，在x<0的情况下，也加一句exit sub退出

看图片吧：

追问

牛比！感谢大神！！！