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

質問

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

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

回答No.2

noname#22222 · ベストアンサー

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

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

お礼

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

回答No.1

invalid

参考URLの２－１３辺りにTimerコントロールの
説明があります。

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

手抜きな回答でごめん。

参考URL：

http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard16.htm

お礼

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