文字の点滅はどうやるのですか？

VB6.0で、コマンドクリック後、文字（ラベル部）を点滅させたいのです。タイマーを使うのは分かったんですが、どうやって書けばいいかわかりません。

初心者の質問ですみませんが、分かる方ご指導お願いします。

No.2 ベストアンサー 回答者： noname#22222 回答日時： 2006/05/15 08:35

No.1さんの回答は、あながち手抜きとも思われませんが...

Private Sub Command1_Click()
　　Dim isClick As Boolean
　　
　　If Not isClick Then
　　　　isClick = True
　　　　Me.Timer1.Interval = 100
　　　　isClick = False
　　End If
End Sub

Private Sub Timer1_Timer()
　　Me.Label1.ForeColor = IIf(Me.Label1.ForeColor = RGB(0, 0, 0), Me.BackColor, RGB(0, 0, 0))
End Sub

点滅を終了させる場合は、

Me.Timer1.Interval = 0

を適当なイベントに書きます。

この回答へのお礼

点滅させることができました。
詳しく書いていただいてありがとうございました！

お礼日時：2006/05/15 16:17

No.1 回答者： invalid 回答日時： 2006/05/15 05:59

参考URLの２－１３辺りにTimerコントロールの

説明があります。

コマンドボタンがクリックされたら
TimerをIntervalとEnableを設定して
Timerイベント発生毎に文字の色を変えるとか
でしょうか。

手抜きな回答でごめん。

参考URL：http://homepage1.nifty.com/rucio/main/dotnet/sho …

この回答へのお礼

参考になりました。
どうもありがとうございました。

お礼日時：2006/05/15 16:15