vb中如何使图片从窗体上移动,到边缘时,左边进,右边出来呢,要具体代码

 我来答
syx54
2011-11-04 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2755万
展开全部
基本原理就是改变控件的Left属性
添加1个图片框Picture1,然后在其中间插入图片狂Picture2,然后插入1个时钟控件Timer1,
在Timer1_Timer()中编写代码:
Picture2.left = Picture2.left + 100
注意:设置Timer1的Interval属性为1000时,相当于1秒钟移动1下,这个数字越小,频率越高.
tianqing20wen

推荐于2016-04-05 · TA获得超过2.4万个赞
知道大有可为答主
回答量:8226
采纳率:88%
帮助的人:5131万
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
@十八楼.
2022-10-29
知道答主
回答量:1
采纳率:0%
帮助的人:308
展开全部
在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("图片路径")
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
limyyan890609
2011-11-04 · TA获得超过1564个赞
知道小有建树答主
回答量:1484
采纳率:100%
帮助的人:873万
展开全部
楼主是要跑马灯程序是吧 您要一张图片移动还是两张图片移动的
追问
两张以上最好了,差不多吧
追答
等一下 我来找一下 上次做的不知道放哪了
不好意思我不是用VB写的,我用c#写的
我把原理给你说下吧
在time事件里面写,当图片的left=0时,它的left=窗体的宽度,然后每次left-1
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式