vb中如何使图片从窗体上移动,到边缘时,左边进,右边出来呢,要具体代码
4个回答
展开全部
Dim x As Long, y As Long
Private Sub Form_Load()
x = Me.ScaleWidth
y = Me.ScaleWidth + Picture1.Width + 1200
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
x = x - 200
y = y - 200
If x <= 0 - Picture1.Width Then x = Me.ScaleWidth
If y <= 0 - Picture1.Width Then y = Me.ScaleWidth
Picture1.Move x, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
Picture2.Move y, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
End Sub
Private Sub Form_Load()
x = Me.ScaleWidth
y = Me.ScaleWidth + Picture1.Width + 1200
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
x = x - 200
y = y - 200
If x <= 0 - Picture1.Width Then x = Me.ScaleWidth
If y <= 0 - Picture1.Width Then y = Me.ScaleWidth
Picture1.Move x, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
Picture2.Move y, Me.ScaleHeight / 2, Me.ScaleWidth / 8, Me.ScaleHeight / 8
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在Timer1_Timer中
IF Image1.Left>=0 Then
Image1.Left=Image1.Left-100
Else
Image1.Left=Me.Width-Image1.Width
End If
在Form_Load中
Image1.picture=LoadPicture("图片路径")
IF Image1.Left>=0 Then
Image1.Left=Image1.Left-100
Else
Image1.Left=Me.Width-Image1.Width
End If
在Form_Load中
Image1.picture=LoadPicture("图片路径")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主是要跑马灯程序是吧 您要一张图片移动还是两张图片移动的
追问
两张以上最好了,差不多吧
追答
等一下 我来找一下 上次做的不知道放哪了
不好意思我不是用VB写的,我用c#写的
我把原理给你说下吧
在time事件里面写,当图片的left=0时,它的left=窗体的宽度,然后每次left-1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询