急!!100分请教高手!!

chenkangli 2003-05-14 09:40:33
两个TIMER控件,一个用来控制表(TIMER1)的指针,一个用来控制动画(TIMER5).
1)假如先让Timer1.Enabled = True,然后Timer5.Enabled = True,timer5为true后,timer1控制的指针就不动了.
2)假如让两个同时为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

...全文
10 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
leswang107 2003-05-14
在两个TIMER控件的事件中都加上DOEVENTS试试!
回复
chenkangli 2003-05-14
to:yjmking(Privacy
请教如何在VB中实现多线程?谢谢
回复
yjmking 2003-05-14
那是,Timer控件在vb中可以说是个类似多线程的东西,但是也不至于那么慢,但是肯定要慢的
回复
chenkangli 2003-05-14
to:danielinbiti(金)
指针在两个TIMER控件为TRUE时候,比他在单独运行的时候慢了很多,为什么呢?
回复
道素 2003-05-14
或者你用多线程
回复
danielinbiti 2003-05-14
就上面的这段程序,按照你上面说的两点,我怎么做都能照常,按照要求运行
回复
DaiLM 2003-05-14
将动画改成gif文件吧
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-14 09:40
社区公告
暂无公告