タイトル | : Re: timerの点滅 |
記事No | : 13129 |
投稿日 | : 2008/10/09(Thu) 16:28 |
投稿者 | : 花ちゃん |
Private Sub Command1_Click() '点滅開始 Timer1.Interval = 500 Timer1.Enabled = True End Sub
Private Sub Command2_Click() '点滅停止 Timer1.Enabled = False '元の色に設定 Label1.BackColor = vbWhite End Sub Private Sub Timer1_Timer() If Label1.BackColor = vbRed Then Label1.BackColor = vbWhite Else Label1.BackColor = vbRed End If End Sub
|