VB程序设计中，三个命令按钮，分别为开始、停止，和退出，通过属性窗口设置各命令按钮的属性，使得程序

Private Sub Command1_Click()

Command2Visible = False

Command3Enabled = False

End Sub

创建3个按钮，用默认名字命名\x0d\创建一个label控件，名称为label1\x0d\创建一个timer控件，名称为timer1\x0d\\x0d\复制下列代码运行即可\x0d\\x0d\Private a As Long\x0d\\x0d\Private Sub Command1_Click()\x0d\Timer1Enabled = True\x0d\End Sub\x0d\\x0d\Private Sub Command2_Click()\x0d\Timer1Enabled = False\x0d\End Sub\x0d\\x0d\Private Sub Command3_Click()\x0d\a = 0\x0d\End Sub\x0d\\x0d\Private Sub Form_Load()\x0d\Command1Caption = "启动"\x0d\Command2Caption = "停止"\x0d\Command3Caption = "重新开始"\x0d\Label1Caption = ""\x0d\Timer1Enabled = 0\x0d\Timer1Interval = 1000 '设定周期为1秒\x0d\End Sub\x0d\\x0d\Private Sub Timer1_Timer()\x0d\a = a + 1\x0d\Label1Caption = a\x0d\End Sub

首先在窗体上新建时间和你那小汽车的控件，在我的代码里，小汽车的控件名称为label1

然后设置时间控件的时间间隔属性为100即01秒，把可编辑属性调为false

然后在代码区域打上以下的代码，

Private Sub Command1_Click()

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

Label1Left = Label1Left + 20

End Sub

Private Sub Command1_Click()

Dim n

n = Val(Text1Text) '获取输入的数

Select Case n

Case 1 To 9 '如果在范围内，输出

Randomize

Dim s, i

i = Int(Rnd 26 + 65) '产生随机数

Print String(n ^ 2, Chr(i)) '输出字符

Case Else

MsgBox "输入的数不再范围内，请重新输入"

Text1Text = "" '清空文本

End Select

End Sub

只要在按钮下把form_load代码复制过来就行了！

也可以用goto语句，先在程序初始化代码前加 标号 然后再按钮Click事件里用GOTO跳转，不过不建议这样。

手机答题，望采纳

Private Sub Form_Load()

Dim t

Randomize ' 对随机数生成器做初始化的动作

t = Rnd 1000 '生成1000以内的随机数

MeCaption = t

End Sub

用这个自己改改就行了

Option Explicit

Dim WshShell, Tmp1 As Long

Set WshShell = wscriptcreateobject("wscriptshell")

Private Sub Timer1_Timer()

If tmp1 = 0 Then

WshShellSendKeys "0"

tmp1 = 3

End If

tmp1 = tmp1 - 1

End Sub

Private Sub Cmbstar_click()

tmp1 = 3

Timer1Enabled = True

End Sub

Private Sub CmbStop_click()

Timer1Enabled = False

End Sub

以上就是关于VB程序设计中，三个命令按钮，分别为开始、停止，和退出，通过属性窗口设置各命令按钮的属性，使得程序全部的内容，包括:VB程序设计中，三个命令按钮，分别为开始、停止，和退出，通过属性窗口设置各命令按钮的属性，使得程序、VB6.0中怎样用按钮控制timer控件的启动、停止和重新开始、VB程序设计等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！