inputbox调出来之后,怎么能知道用户点了Cancel?

metaphy 2006-10-21 04:11:50
主要是解决必须要输入一个值得问题
...全文
173 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
diclover 2006-12-18
  • 打赏
  • 举报
回复
InputBox的用法问题:
用户点击OK(确定)按纽,则返回用户输入值
当用户点击Cancel(取消)或按ESC,则返回0或空串
麦壳饼 2006-12-18
  • 打赏
  • 举报
回复
如果达不到要求。可以自己先写一个嘛。又不费事、
麦壳饼 2006-12-18
  • 打赏
  • 举报
回复
没有常量的。只有空字符串给你返回。
个人觉的空字符传已经足够了。
迈克揉索芙特 2006-12-18
  • 打赏
  • 举报
回复
晕倒,有点职业精神好不好。
给了正确答案还看不到,无语了....
cy_nwau 2006-12-18
  • 打赏
  • 举报
回复
楼上的不能判断出是因为按了"取消"得到的空字符串还是因为根本就没有输入而按的"确定"键啊,我记得有一个常量应该可以解决,只是我将这个常量忘了,楼下的有谁能记得这个常量吗?
happy_sea 2006-10-21
  • 打赏
  • 举报
回复
private sub command1_click()
dim s as string
do while s=""
s=inputbox("请输入一个值:","提示")
loop
msgbox "你输入的值是" & s
end sub
蔡健常熟 2006-10-21
  • 打赏
  • 举报
回复
自己做个窗体,想怎么搞都行。
迈克揉索芙特 2006-10-21
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Dim str As String
Dim Cancel As Boolean

str = InputBox("")
Cancel = Not CBool(StrPtr(str))
MsgBox Cancel
End Sub
吾非大神 2006-10-21
  • 打赏
  • 举报
回复
关注
Dunzip 2006-10-21
  • 打赏
  • 举报
回复

不知道.

但是可以从以下两个方法中得到解决:

1/检测到没有输入值得时候继续弹出。

dim GetString as string
do until len(trim$(getstring))>0
Getstring=input("asdfs","input")
doevents
loop

2/自己做一个类似的输入框

7,786

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧