tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルtimerの点滅
記事No13127
投稿日: 2008/10/09(Thu) 15:55
投稿者J.k
Timerひとつを用いて、
テストというラベルを、赤と白で点滅させたいのですが、どのようにすればいいのでしょうか?

Private Sub Timer3_Timer()
    Label6.Visible = true
    Label6.Caption = テスト
    Timer3.Interval = 500
    'Label6.ForeColor = &HFFFFFF
End Sub

[ツリー表示へ]
タイトルRe: timerの点滅
記事No13129
投稿日: 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

[ツリー表示へ]
タイトルRe^2: timerの点滅
記事No13131
投稿日: 2008/10/09(Thu) 16:52
投稿者J.k
ご返事ありがとうございます。
コマンドボタンを使わずに、formで点滅させたいと考えています。

Private Sub Timer1_Timer() だけで、点滅処理というのは難しいのでしょうか?

[ツリー表示へ]
タイトルRe^3: timerの点滅
記事No13133
投稿日: 2008/10/09(Thu) 17:39
投稿者カムリン
> コマンドボタンを使わずに、formで点滅させたいと考えています。
>
> Private Sub Timer1_Timer() だけで、点滅処理というのは難しいのでしょうか?

点滅だけを考えるならTimer1_TimerだけでOK。
点滅の開始・終了とか、
イロイロと制御したいなら、
他にも必要になるかも・・・。   

[ツリー表示へ]
タイトルRe^4: timerの点滅
記事No13139
投稿日: 2008/10/15(Wed) 10:37
投稿者J.k
皆様 返信ありがとうございます
timer1_timerだけでできました
ありがとうございました

[ツリー表示へ]