关于inputbox中的取消按钮

feng16888

在写的过程中，使用到inputbox这个东西，我的想法是点击上面的取消后，直接退出程序，而不是msgbox中返回数值的那些，inputbox好像没有返回数值，暂时没有查找到相关资料，如果谁有的话，给个链接，或者提供好的方法，不甚感激。谢谢大家

杨小军

  inputbox 方法：就是前面加了application.inputbox,使用 InputBox 可以显示一个简单的对话框，以便输入宏所需要的的信息。此对话框有一个“确定”按钮和一个“取消”按钮。如果选取了“确定”按钮，则 InputBox 将返回对话框中输入的值。如果单击“取消”按钮，则 InputBox 的值为 False。

inputbox函数：前面不加application.如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。

一个是方法，一个是函数，是两个不同的东东。

maditate

自己写个  inputbox   ，再测试一下点确定，取消、上面的叉，看看分别返回什么值就行了。

xsy我可以很好

建一个仿inputbox样子的窗体更简单

wyqzm

点击取消是返回一个长度为0的字符串

feng16888

wyqzm 发表于 2012-8-5 08:53
点击取消是返回一个长度为0的字符串

谢谢，感谢分享

feng16888

xsy我可以很好 发表于 2012-8-5 08:49
建一个仿inputbox样子的窗体更简单

谢谢，感谢分享，我试试看

feng16888

maditate 发表于 2012-8-5 07:57
自己写个  inputbox   ，再测试一下点确定，取消、上面的叉，看看分别返回什么值就行了。

谢谢，感谢分享，我再测试看看

feng16888

杨小军 发表于 2012-8-5 01:43
inputbox 方法：就是前面加了application.inputbox,使用 InputBox 可以显示一个简单的对话框，以便输入宏 ...

感谢分享，说的很明白。我再试试看

hzruziniu

feng16888 发表于 2012-8-5 11:51
感谢分享，说的很明白。我再试试看

定义MyValue为String字符串可避免点取消按扭弹出错误的提示框
试试下段代码

Sub 纠错证明()
    Dim Msg$, bt$, Default$, aa
    Dim MyValue As String     '定义MyValue为String字符串可避免点取消按扭弹出错误的提示框
    Msg = "请按下面第1和第2的二种纠错原因" & Chr(13) & Chr(13) & "在文本框内选择保留一种，清除一种不留空格：" & Chr(13) & Chr(13) & "1、逾期托收" & Chr(13) & Chr(13) & "2、背书人填错或印章模糊（其他错误证明）"  '文本说明
    bt = "银行承兑汇票纠错证明"               '标题项
    Default = "延期托收证明  其他错误证明"     '文本框显示内容
    MyValue = InputBox(Msg, bt, Default)      '文本框关健词(由Msg文本说明,bt标题,Default文本框显示内容三项组合后形成)
    If StrPtr(MyValue) <> 0 Then
        If MyValue = "其他错误证明" Or MyValue = "延期托收证明" Then
            MsgBox "你选取了" & MyValue
        Else
            MsgBox "你选取了“" & MyValue & "”，不能同时选取多种错误类型，请清除其中一种!"
            Exit Sub
        End If
    Else
        Exit Sub
    End If
End Sub