急！！１００分请教高手！！

[chenkangli]

两个ＴＩＭＥＲ控件，一个用来控制表（ＴＩＭＥＲ１）的指针，一个用来控制动画（ＴＩＭＥＲ５）．
１）假如先让Timer1.Enabled = True，然后Timer５.Enabled = True，timer5为true后，timer1控制的指针就不动了．
２）假如让两个同时为true,指针就根本不动！
请教高手！！

'叶片的动画
Dim d As Boolean
Dim angle1 As Double
'压力表
Dim x2 As Double
Dim y2 As Double

Private Sub Form_Load()
angle1 = -90
End Sub

Private Sub Image19_Click()
Timer1.Enabled = True
Timer5.Enabled = True
End Sub

Private Sub Timer1_Timer()
angle1 = angle1 + 1
Call cosangle(angle1 * 3.1415 / 180, Line1.x1, Line1.y1, 225)
Line1.x2 = x2
Line1.y2 = y2
End Sub
Private Sub Timer5_Timer()
If d = True Then
Image14.Visible = True
Image15.Visible = False
d = False
Else
Image14.Visible = False
Image15.Visible = True
d = True
End If
End Sub


Function cosangle(myangle As Double, x1 As Double, y1 As Double, r As Double)
Dim X As Double
Dim Y As Double
X = r * Cos(myangle)
Y = r * Sin(myangle)
x2 = x1 - X
y2 = y1 - Y
End Function

[DaiLM]

将动画改成gif文件吧

[danielinbiti]

就上面的这段程序，按照你上面说的两点，我怎么做都能照常，按照要求运行

[道素]

或者你用多线程

[chenkangli]

to:danielinbiti(金)
指针在两个ＴＩＭＥＲ控件为ＴＲＵＥ时候，比他在单独运行的时候慢了很多，为什么呢？

[yjmking]

那是，Timer控件在vb中可以说是个类似多线程的东西，但是也不至于那么慢，但是肯定要慢的

[chenkangli]

to:yjmking(Privacy
请教如何在ＶＢ中实现多线程？谢谢

[leswang107]

在两个TIMER控件的事件中都加上DOEVENTS试试！