在VB中如何把开始和暂停放在同一个按钮里

发布时间：2020-12-17 07:32:16 所属栏目：百科来源：网络整理

导读：在之前验百例的时候，师傅问我，一个暂停的，一个开始的如果做成一个按钮，是不是就方便而且美观很多，我觉得很有道理，而且还非常高大上，但是，这几天因为很多事情把这件事放下了，今天终于有时间，静下心来，好好琢磨琢磨这个问题。 Private Sub Form_Loa

在之前验百例的时候，师傅问我，一个暂停的，一个开始的如果做成一个按钮，是不是就方便而且美观很多，我觉得很有道理，而且还非常高大上，但是，这几天因为很多事情把这件事放下了，今天终于有时间，静下心来，好好琢磨琢磨这个问题。

Private Sub Form_Load()
Label1.Left = 0 'Label离左边的距离为0
Timer1.Enabled = False '时间控件在这个过程很重要
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255,Rnd * 255,Rnd * 255)

'随机产生颜色，也可以用QBcolor（Rnd*15）
If Label1.Left < Me.Width Then
Label1.Left = Label1.Left + 60 'Label向左移动

Else
Label1.Left = 0
End If
End Sub
Private Sub Command1_click() '这就是可以用一个按钮解决问题的过程啦
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "暂停"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub

哈哈哈！做出exe好像不能在这里发表，太遗憾了，看一下成品，说不定，大家对它更感兴趣了呢！

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!