# Re: 使用marquee control的方式来放.gif动画

Posted by cww on January 21, 1998 at 18:26:47:

In Reply to: 没见过 posted by 小吴 on January 21, 1998 at 01:37:40:

小弟曾被问过相同的问题，结果用marquee control来完成，程式码如下:
上面的程式码属于 marquee control的部份不可在property window中设定
，否则没有效用

Private Sub Form_Load()
Form1.ScaleMode = 3
Marquee1.DrawImmediately = 0
Marquee1.ScrollPixelsX = 0
Marquee1.ScrollPixelsY = 0
Marquee1.insertURL 0, "c:\tmp2\star.gif"
'^^^^^^^^^^^^^^^^^
'Insert the .gif that you want to show
End Sub

Private Sub Marquee1_OnStartOfImage()
Marquee1.Height = Marquee1.PageHeight
Marquee1.Width = Marquee1.PageWidth
End Sub

Follow Ups: