我想用个键控制timer，可以实现暂停地功能，可是该怎么写代码呢？希望有人帮帮我

Question

Private Sub cmd_pause_Click()
     
     frmtxtshow.Timer1.Enabled = False
     
End Sub
我现在这个键只能停止，
但要怎么样才可以按这个键后再重新开始呢，就再把timer.enabled＝true
谢谢大家帮帮忙！

Answer 1

如果是单纯的只是这样，只用
frmtxtshow.Timer1.Enabled= Not frmtxtshow.Timer1.Enabled
如果要中间所作事情也有这样效果，用Timer不行

Answer 2

blnEnable as boolean 
sub form_load()
      blnEnable=True
end sub
Private Sub cmd_pause_Click()
     
     
     blnEnable=not blnEnable
     frmtxtshow.Timer1.Enabled = blnEnable     
End Sub

Answer 3

Option Explicit
Private Sub cmd_pause_Click_Click()
      If cmd_pause_Click.Caption = "暂停" Then
            Timer1.Enabled = False
            cmd_pause_Click.Caption = "继续"
      Else
            Timer1.Enabled = True
            cmd_pause_Click.Caption = "暂停"
      End If
End SubPrivate Sub Form_Load()
      cmd_pause_Click.Caption = "暂停"
End Sub