建立一个窗体,添加一个timer,放置一个picture控件picture1 ,然后在picture1中放置picture2,picture2中就随便你放什么东西,比如label、image、shape之类的,反正就是你想展示给别人看的东西,然后添加一下代码。测试了一下几乎没有系统占用Option ExplicitPrivate Sub Form_Load() Picture2.Width = Picture1.Width Picture2.BorderStyle = 0 Timer1.Enabled = True Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() Picture2.Top = Picture2.Top - 3 If Picture2.Top < 0 - Picture2.Height Then Picture2.Top = Picture1.Height End Sub
我的E-mail:[email protected]
Picture2.Width = Picture1.Width
Picture2.BorderStyle = 0
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 3
If Picture2.Top < 0 - Picture2.Height Then Picture2.Top = Picture1.Height
End Sub