Question

VB运行时inputbox函数所弹出的对话框里，怎样设置其按钮（确定，取消）事件

求大神指点迷津！！！！还是开发VB的家伙忘了设置！！！？唉～纠结了我那么久。

Answer 1

    Dim S             '不要指定类型
    S = InputBox("")
    If Len(S) = 0 Then MsgBox "未输入"
    If IsNumeric(S) Then
        MsgBox "数值"
    Else
        MsgBox "字符串"
    End If

Answer 2

这个是定死了的，你只能设备标题、提示文字、默认值等，如果你想自定义，建议你用窗体的形式写一个提示框出来，这样就可以个性化。了

Answer 3

只能用判断返回的值来判断，取消时空("")，如果用val 函数转换成数值型是0

追问

当我点击Inputbox上的取消或关闭就会报错，怎么破

追答

您要对返回值进行判断啊，然后进行相应的处理就不会报错了