shapeを点滅させるには？

解決

ゆい 2005-12-03 22:44:50 No: 128539

vb6
すごい初歩的なことを聞いてすいません。

Commandを押したら
shapeを一秒おきに点滅させたいのですが
(Timerをいじるってことはわかるんですが)
どのように書けばよいのでしょうか？

よろしくお願いします。

座布団 2005-12-03 23:25:50 No: 128540

私だったら…。

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    If (Shape1.Visible = True) Then
        Shape1.Visible = False
    Else
        Shape1.Visible = True
    End If
End Sub

こんな感じに書きます。

くりちゃん URL 2005-12-03 23:44:44 No: 128541

Not演算子を使う方法があります。

Private Sub Timer1_Timer()
Shape1.Visible = Not Shape1.Visible
End Sub

ゆい 2005-12-05 04:47:42 No: 128542

どうもありがとうございます！！！

バッチリうまくできました。
本当にご親切にありがとうございました。