设计一个vb程序,使得label1在form1上按照sin函数轨迹移动
1个回答
展开全部
Private Sub Command1_Click()
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Static x
Label1.Top = Form1.Height * 0.4 * (1 - Sin(x))
If Label1.Left + 20 + Label1.Width > Form1.Width Then
Label1.Left = 0
Else
Label1.Left = Label1.Left + 20
End If
x = x + 0.05
End Sub
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Static x
Label1.Top = Form1.Height * 0.4 * (1 - Sin(x))
If Label1.Left + 20 + Label1.Width > Form1.Width Then
Label1.Left = 0
Else
Label1.Left = Label1.Left + 20
End If
x = x + 0.05
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
