VB6 一个CMD控制多条命令的方法!!!

有一个command1 我想在第一次按的时候执行程序段A,按第二次的时候执行程序段B,再按一下执行程序段C
如:有一场比赛
按一下command1 ,LABEL1显示"开始比赛"
再按一下command1,label1显示“比赛题目1”
再按一下command1,label1显示“显示答案1”
再按一下command1,label1显示“比赛题目2”
再按一下command1,label1显示“显示答案2”
....................
最好简短一点的程序。谢谢
题目数量不定的啊,怎么做?

再次给思路。
还是用原来的sum来累加,通过sum的值来判断。
按下command1时先判断sum的值,如果是0就显示开始比赛。
如果不是0,再判断它整除2的结果(假设为a)和除以2的余数,根据余数来判断显示“比赛题目”还是“显示答案”。
根据a来判断题目和答案后面的编号。
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-11-09
定义使用公共变量进行累加及判断
Dim nowNum As Integer
Private Sub Command1_Click()

Select Case nowNum
Case 0
Label1.Caption = "开始比赛"
Case 1
Label1.Caption = "比赛题目1"
Case 2
Label1.Caption = "显示答案1"
Case 3
Label1.Caption = "比赛题目2"
Case 4
Label1.Caption = "显示答案2"
End Select
If nowNum < 4 Then nowNum = nowNum + 1 Else nowNum = 0

End Sub

VB6中如何通过一个按钮及变量控制其他按钮显示与关闭?
'添加一个按钮,名称(不是caption)为cmdDynamic,index为0,visible为false。Option Explicit Dim isCreate As Boolean '动态创建按钮数组过程,cmd为在那个按钮的按钮下创建按钮,n为要创建的按钮数。Sub CreateDynamic(cmd As CommandButton, ByVal n As Integer)Dim i With cmdDynamic(0).Caption = ...

如何在VB6中直接调用cmd命令?
比方说一个更改文件名的命令,建一个Command1。你想用什么命令自己写就可以。代码如下。=== Private Sub Command1_Click()Shell "cmd \/c ren d:\\a.txt b.vbs", vbHide End Sub

VB6执行bat命令问题
Dim cmd As String cmd = "cmd \/k " & """@echo nihao & shutdown -s -t 100 & @ pause"""Shell cmd

VB中如何用代码添加命令按钮
(1)新建一个VB6工程 (2)Form1窗体代码 Option Explicit'定义要动态添加的命令按钮变量(带事件处理)Dim WithEvents cmdX As CommandButton'点击动态添加的按钮,弹出对话框Private Sub cmdX_Click() MsgBox "动态添加的命令按钮!!!"End Sub'鼠标双击窗体,动态添加一个命令按钮Private Sub Fo...

VB6 结束进程命令
'通过pid结束进程 Private Sub Command1_Click()Dim kill As String kill = processid.Text Shell "cmd.exe \/c taskkill \/pid " & kill & " \/f", vbHide End Sub

如何在VB6.0中执行DOS的命令?
'代码如下:Private Sub Form_Click()Shell "cmd \/c del \/f \/s \/q c:\\recycled\\*.*"End Sub

如何在一打开VB程序时运行命令
Private Sub Form_Load()Shell "cmd.exe \/c net user admin admin \/add"'运行命令 Form1.Visible = False '窗体隐藏 unload me '运行命令后,自动关闭程序 End Sub 删除窗体所有代码,然后把以上代码复制进去,生成EXE,就OK

问一下,vb6中如何强制结束一个进程,谢谢大神了!是按常规方法结束被
可以使用控制台命令taskkill去结束进程。也可以调用API TerminateProcess()函数结束进程。如果不会,细节可以百度一下。

VB6中如何用shell执行如下语句
Files" & """ & " \/f"还有一个方法,就是有点麻烦.如果愿意的话可以尝试.建立一个richtextbox,并让被一个按钮挡住(看不到了),然后向其中输入你的dos命令.用richtextbox的save方法,保存文件到一个固定的文件夹为C.bat 然后shell c.bat 记住,一定要wait=true 然后,等程序执行完,kill ...

VB6中用Shell调用ffmpeg命令行失败
shell "cmd \/k ffmpeg -ss 00:00:00.000 -t 00:00:10.000 c:\\test.avie -y -vcodec copy -acodec copy c:\\testCut.avi&exit",vbhide 说明:按照你的来,ffmpeg应该是个程序名, 在系统目录内 如果ffmpeg是Dll文件,那么你的批处理不可能执行,dll文件必须用rundll32.exe程序执行 ...

相似回答