标题: 请问在qb下怎样为input设置错误处理或者事件陷阱呢? [打印本页]

---

作者: chinaren12     时间: 2006-2-12 14:16    标题: 请问在qb下怎样为input设置错误处理或者事件陷阱呢?

我现在在编写一个dos下面自动分区的小软件,
其中碰到一个这样的问题,
我的程序中有这样的语句
cls
input "请输入要分区的数量:",size

我的问题是,当屏幕提示"请输入要分区的数量"的时候,如果我敲入的不是规定的数字,而是字母,或者直接敲回车,那么请问我要怎样设置我的错误处理或者事件陷阱呢?
在这个地方,如果不设置错误处理或者事件陷阱的话,那么如果输入的字符类型和
input所希望的不一致的话,qb会提示"redo from start"
我希望用自己的错误处理来替代qb的出错提示,请问,我该怎么样设置呢?

---

作者: chinaren12     时间: 2006-2-14 22:41
难道各位都不用qb？？？？？

---

作者: JonePeng     时间: 2006-2-15 13:30
好久没用过QB了，应该是在文件开头用 ON ERROR GOTO xxx 吧，你查看一下QB的帮助，里面有示范的。

---

作者: 本是     时间: 2006-2-15 15:53
用INKEY函数，即时判断第一个字符，是否所需类型和数量，在循环中做应该不难。

---

作者: qb45     时间: 2006-2-25 11:04
dim Size as string
print "请输入要分区的数量"
Size=input$(1)
select case Size
   case "1"
     '.......
   case  "2"
    '......
   csae else
    print "No分区数量"
end select