vb picture控件

来源：百度知道 编辑：UC知道 时间：2024/07/07 16:05:01
在一个窗体里，有5个picture控件和5个command控件，还有time，用time让picture在窗体里运动，每单击一下command就有相应的picture运动，（不单击command，picture都是静止的）运动到某处停下来，停下以后再单击command就没反应了，我希望单击command时，再从新运动，请VB高手答得详细点......
还有，当5个picture运动到重叠在一起的时候，我想让最后一个运动过去的picture显示在最上边...
希望高手把代码说的详细点，先说声谢谢了....
单击command时，再从新运动，这里的从新运动你们没明白，举个例子吧，一个picture从a运动到c，中间要经过b，经过就是a→b→c，到c出停止，当pic运动到b时，单击command，pic又从a出发，向c运动，到c停止后，再单击command，又从a出发，就是说，不管pic在那里，只要单击command就从a出发....各位，明白了吗...........

5个pic控件运动是一样的，下面以一个为例：
首先要设置一下timer属性，根据你的需要设置
在timer事件中加入以下代码：
picture1.left=picture1.left-300'让图片向左移动,可以向右，上，下移动都可以
if picture1.left+picture1.width<0 then picture1.left=me.width

然后在command1的单击事件中加入代码：
if timer1.enabled＝false then '用按钮控制图片的移动或停止
timer1.enabled＝true
else
timer1.enabled=false
end if
picture1.zorder

其他按钮雷同！

你补充的内容也容易实现，我的代码比较基础，见笑，我再改下还是以一个按钮，一个图片，一个timer为例：
在form1_load事件中加入：
p1＝picture1.left '记录一下初始位置
p2＝picture2.left
p3＝picture3.left
p4＝picture4.left
p5＝picture5.left

然后在按钮单击事件中加入：
if timer1.enabled＝false then '用按钮控制图片的移动或停止
timer1.enabled＝true
else
timer1.enabled=false
picture1.left=p1'让图片复位！
end if
picture1.zorder

其他雷同

在窗体上添加5个图片框,5个命令按钮(都是控件数组),再加一个计时器,添加如下按钮,试试看

Dim NowMove As Integer
Private Sub Command1_Click(Index As Integer)
NowMove = Inde