Question

vb页面上有个label标签，我想让窗体打开时上面的字闪烁几下，该怎么弄

是在页面上加timer么，具体该怎么写啊

Answer 1

呵呵...给你个不要TIMER的..闪一下下..

Public Sub FlashTXT(StartTime As Long)
Dim TStart As Single, r As Byte, g As Byte, b As Byte
Dim i&
TStart = Timer
Randomize
While (Timer - TStart) < (StartTime / 1000)
i = i + 1
If i Mod 40000 = 0 Then
r = Int(256 * Rnd)
g = Int(256 * Rnd)
b = Int(256 * Rnd)
Label1.ForeColor = RGB(r, g, b)
End If
DoEvents
Wend
End Sub

Private Sub Form_Load()
Label1.FontSize = 14
Label1.AutoSize = True
Label1 = "这是一个无Timer的闪烁测试!!"
Me.Show
FlashTXT (2000)
Label1.ForeColor = 0
End Sub

Answer 2

在窗口中加一个Timer，名为Timer1,假设你那个标签为Label1,那么
在通用声明里写上：
Dim tmp as string
Dim cout as integer
在窗体的load事件中写上:
Timer1.Interval=500
在Timer1的Timer事件中写上:
if Label.caption<>"" then
tmp=Label1.caption
Label1.caption=""
else
Label1.caption=""
end if
cout=cout+1
if cout=8 then Timer1.Enabled=false

追我分！！！