VB两张图片走动？

来源：百度知道 编辑：UC知道 时间：2024/07/06 17:33:22
意思就是说两张图片都在各左-右边框来回移动， 一张图片自动往左，另一张图片往自动右。。请问可以实现吗？
意思就是说 有两张图片, 那两张图片都在边框里面 然后 两张,一张在左边框,另一张在右边框里. 然后两张图片走到中间就停住.就是这样。.

弄两个TIMER, 实时修改PICTURE控件的LEFT就可以了.
要想效果好看,还得好好调试一下.

可以实现。如何实现：主要用到TIMER控件和图片的top width 和left属性。详细实例可以参考大学通用VB教程：《VB程序设计简明教程》161页

不用timer也可以实现,下面是我帮你写的代码(我已经加上了详细的注释),你只要复制过去运行就OK啦..

在窗体上创建两个picture框,和一个command

Private KillLoop As Boolean, p1 As Long, p2 As Long

Private Sub Command1_Click()
KillLoop = True '停止图片的移动
'初始化窗体位置
Picture1.Left = p1: Picture2.Left = p2
End Sub

Private Sub Form_Click()
KillLoop = False
Do: DoEvents
Picture1.Left = Picture1.Left - 30 '图片1向左移动
Picture2.Left = Picture2.Left + 30 '图片2向右移动
'如果图片1移出窗体外面就返回原始位置重新移动
If Picture1.Left < 0 - Picture1.Width Then
Picture1.Left = p1
End If
'如果图片2移出窗体外面就返回到原始位置重新移动
If Picture2.Left > Me.Width + Picture2.Width Then
Picture2.Left = p2
End If
Loop Until KillLoop = True
End Sub

Private Sub Form_Load()
Me.Sho