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