1个回答
推荐于2018-04-18
展开全部
文字写在label的caption属性中,调用timer()函数
附上我写的左右往复运动代码,实现image1在picture1中左右往复运动
Private Sub Timer1_Timer()
If Image1.Left >= Picture1.ScaleWidth - Image1.Width Then k = 1
If k = 1 Then
Image1.Left = Image1.Left - 50
Else
Image1.Left = Image1.Left + 50
End If
If Image1.Left <= 0 Then k = 0
End Sub
附上我写的左右往复运动代码,实现image1在picture1中左右往复运动
Private Sub Timer1_Timer()
If Image1.Left >= Picture1.ScaleWidth - Image1.Width Then k = 1
If k = 1 Then
Image1.Left = Image1.Left - 50
Else
Image1.Left = Image1.Left + 50
End If
If Image1.Left <= 0 Then k = 0
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询