这段InputBox代码怎么加取消按钮操作代码？

本帖最后由 bcrun 于 2011-01-16 11:57:26 编辑 Text = InputBox("请输入记分框数量（本程序限制8个，输入9为取消）：", "输入", 8)
if Text =9 Then Exit sub

引用 1 楼 dbcontrols 的回复:

Text = InputBox("请输入记分框数量（本程序限制8个，输入9为取消）：", "输入", 8)
if Text =9 Then Exit sub

Text = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)这段变黄了不行！最好帮我加到代码里！要加那个位置有关系吗？

引用 3 楼 bhbh202 的回复:

最好帮我加到代码里！要加那个位置有关系吗？

不明白……难道上面的不是加到代码里么？
什么叫要加那个位置？关系？

引用 4 楼 yiguangqiang88 的回复:

引用 3 楼 bhbh202 的回复:
最好帮我加到代码里！要加那个位置有关系吗？

不明白……难道上面的不是加到代码里么？
什么叫要加那个位置？关系？

上面是我用InputBox创建代码，现在是InputBox（确定）按钮创建的，InputBox界面出来了，如果不创建，按（取消）它会出来错误信息！想搞按（取消）跳过运行下个程序或者退出程序！本帖最后由 bcrun 于 2011-01-16 11:56:44 编辑

引用 6 楼 dbcontrols 的回复:

Text = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)
If Len(Text) = 0 Then Exit Sub

老师啊！还不行啊！



'如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。



 On Error Resume Next '忽略错误执行下一句

 Dim i As Integer

 i = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)

 MsgBox 1



或者抛出异常

On Error GoTo Err_Error:

 

 Dim i As Integer

 i = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)

 MsgBox "OK"



Exit_Error:

   Exit Sub

Err_Error:

    MsgBox "你选择了取消"

    Exit Sub

    Resume Exit_Error

引用 8 楼 ameken 的回复:

VB code

'如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。

On Error Resume Next '忽略错误执行下一句
Dim i As Integer
i = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)
MsgBox 1

或者抛出异常
On Error GoTo Err_Error:

……

老师啊！晕西晕啊！按（确定）连创建都忽悠过去了，不要说按（取消）了！你代码很乱……

Text = InputBox("请输入记分框数量（本程序限制8个）：", "输入", 8)

If Text="" Then Exit Sub

If Val(Text) > 0 Then '图片数量不为0

'  For X = 0 To Text - 1

'  

'  If X > 0 Then

'Load Text1(X)

'k% = X Mod 4

'  If X Mod 4 = 0 Then '如果是5的倍数，则换行显示

'  Text1(X).Move Text1(X - 4).Left, Text1(X - 4).Top + Text1(X - 4).Height + 17.5 '（17.5数字是间距调整高度Text1排列，可以随便输入数字进行调整）

'  Else '如果不是5的倍数，则显示跟前一个IMAGE1控件相同的TOP

'  Text1(X).Move Text1(X - 1).Left + Text1(X - 1).Width + 13, Text1(X - 1).Top '（13数字是间距调整宽度Text1排列，可以随便输入数字进行调整）

 ' End If

 ' End If

'Text1(X).Visible = True

'Next X

End If

确定时你不会判断处理下吗？.....

而且“Text”是保留字，建议更换一个变量名
+1

引用 12 楼 yiguangqiang88 的回复:

而且“Text”是保留字，建议更换一个变量名

补充：VB ,  基础类