| 投稿日 | ： 2005/02/09(Wed) 12:04 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: タイマーイベントによるタスクの切り替え |
試せば解る話ではないでしょうか？ 何よりも貴方の環境で試す事大事ですから。
その上で何か問題があれば質問されたらいかがですか？
自分ができる事、やれる事は、自分でやってから質問するように
して下さい。
（そうすれば少なくても質問の内容が変ってくるかと思います。）
Option Explicit
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
Label1.Refresh
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Command2_Click()
Timer2.Enabled = Not Timer2.Enabled
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer2.Interval = 1000
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Val(Label2.Caption) + 1
Label2.Refresh
End Sub