作者ephesians (ephesians)
看板Programming
标题Re: [问题] 请问vb在执行中 停止的指令?
时间Sat Mar 31 11:40:24 2007
※ 引述《darka (空空)》之铭言：
: 请问
: 想要在执行中的程式 当出现case1的时候 跳出 重新再输入 再重跑
: 还有出现case2时 停在那瞬间
: 需要用到哪些指令呢?
: 谢谢各位高手大大!!~by vb菜鸟
先整理流程,应该是这个样子:
回圈
输入
SELECT CASE
CASE 1 -> 回圈开头
CASE 2 -> 结束
是这样吗? 但是VB6及之前的VB,回圈中,没有类似C continue这种指令.
(有人说goto,可能是吧,但goto让你的流程开了岔路,有点麻烦.)
而我们知道遇到case 1要重新输入,所以流程要改成这样子:
回圈1
回圈2
输入
如果输入不是case 1则离开回圈2
SELECT CASE
CASE 2 -> 结束
转成程式码是这样:
Sub Form_Load()
Dim inp As Integer
While 条件1
Do
inp = InputBox("Input: ")
Loop While (输入case 1)
Select Case inp
Case 2
End Sub '停在那瞬间
Case else
DoEvents
End Select
End While
End Sub
我不了解你case 2停在那瞬间是什麽意思,是关掉程式,还是让程式等待?
如果是後者,那麽什麽都不用写,因为VB的程式是事件触发的,
它总是在等待着某事件触发其动作.
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.160.212.68