关于闪动效果的问题。

[canacy]

如果我有一个picturebox
picturebox1.CurrentX = 100
picturebox1.CurrentY = 100
picturebox1.print "aaaa"

我想让打印出来的"aaaa"字符出现闪动效果该怎么解决啊？
(就是一闪一闪的)
THS!

[faysky2]

可以用Timer控制吧

[canacy]

如何控制？？？

[脆皮大雪糕]

窗体放一个timer 一个picturebox

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static flag As Boolean
Picture1.CurrentX = 100
Picture1.CurrentY = 100
flag = Not flag
If flag Then
Picture1.ForeColor = vbBlack
Else
Picture1.ForeColor = Picture1.BackColor
End If
Picture1.Print "aaaa"
End Sub

[faysky2]

笨方法：你放两个Timer控件，时间间隔都设置为1000毫秒：
Private Sub Timer1_Timer()
Label1.Visible = False
End Sub
Private Sub Timer2_Timer()
Label1.Visible = True
End Sub

[faysky2]

直接写Label1.Caption="aaaa"来代替picturebox1.print "aaaa"

[canacy]

多谢两位!