vb标签的左右移动
vb标签的左右移动
笔者之前上网搜索了好多资料,对于vb标签的左右移动,各位编程者都使用timer控件来实现。当然,这是编程者习惯使用最简单的方法。本人则从数学角度思考,vb标签的左右移动不就是周期函数吗?那我们就可以用sin或cos结合timer来实现。废话少说啦,看实例吧!分6.0版和2008版。
(2008版)
Public Class Form1
Dim i As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 90
Label1.Left = System.Math.Sin(i)
End Sub
End Class
(6.0版)
Dim i As Integer
Private Sub Timer1_Tick
i = i + 90
Label1.Left =100*Sin(i) ,乘以适当倍数,放大效果
End Sub
很简单吧!尤其是6.0版的。
赞 (0)