标题:[求助]vb中的InputBox问题急用!谢谢!
只看楼主
匆匆过客
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-2-9
 问题点数:0 回复次数:3 
[求助]vb中的InputBox问题急用!谢谢!
我在程序中使用了“InputBox”,我想限制调用的次数,比如三次,代码怎么写?谢谢!

[此贴子已经被作者于2006-2-10 14:52:38编辑过]


搜索更多相关主题的帖子: InputBox 代码 
2006-02-10 14:09
wsn
Rank: 2
等 级:新手上路
威 望:5
帖 子:321
专家分:0
注 册:2006-2-9
得分:0 

不明白楼主的意图


已婚男人!没事请勿打扰·老婆格言:①不准對她耍酷 ②不准讓她吃醋 ③吵架我要讓步 ④揍我我要挺住⊙⊙
2006-02-10 15:08
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

Option Explicit

Private Sub InputNum_Click()
Dim InputText As String
Static Sum As Integer
If Sum < 3 Then
Sum = Sum + 1
InputText = InputBox("请输入要显示的内容," & vbCrLf & "只能输入3次")
Print InputText;
End If
End Sub


我的msn: myfend@
2006-02-10 15:28
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 
如果想一次点按钮就试 3 次,就可以这样写:

Option Explicit

Private Sub InputNum_Click()
Dim InputText As String, i As Integer
For i = 1 To 3
InputText = InputBox("请输入要显示的内容," & vbCrLf & "只能输入3次")
Print InputText;
'如果要退出,写 Exit For 就可以了
Next
End Sub

[此贴子已经被作者于2006-2-10 16:49:49编辑过]

2006-02-10 16:47



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-45042-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.481916 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved