vb图片移动停止后让图片移动的代码（vb中用按钮使图片停止运动）

今天给各位分享vb图片移动停止后让图片移动的代码的知识，其中也会对vb中用按钮使图片停止运动进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB 图片移动
• 2、vb图片移动问题
• 3、vb 通过按键使图像移动 请教高手
• 4、vb 如何让图片向上移动(打开后自动向上移动无需点击)求代码
• 5、VB左右移动图像代码

VB 图片移动

picture1.left = fix ((上限-下限+1)* Rnd + 下限)

其中上限是窗体宽度，下限是0，这样就在整个窗体里面随机移动，怎么会每次移动的长度为1？

vb图片移动问题

'该代码经过测试，运行正确

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'如图中所显示的那样创建窗体，我使用了Image控件装载图片

'再添加三个Timer控件

'将每个Timer的Interval属性设置为一个适当的值（如100，就是每100毫秒执行一次代码）

'图片的top属性是指其与窗体上边界的距离，left属性是指其与窗体左边界的距离

'在对象窗口先将Image1的left和top属性都设置为480（就是起始的坐标）

Private Sub Timer1_Timer()

Image1.Left = Image1.Left + 100 '右移

If Image1.Left  2280 Then

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Image1.Top = Image1.Top + 100 '下移

If Image1.Top  2280 Then

Timer2.Enabled = False

Timer3.Enabled = True

End If

End Sub

Private Sub Timer3_Timer()

Image1.Left = Image1.Left - 100 ' 左移

If Image1.Left  480 Then

Timer3.Enabled = False

End If

End Sub

vb 通过按键使图像移动 请教高手

新建一个picture控件，设置picture属性，双击控件，把

Private Sub Picture1_Click()

End Sub

撤销掉，再输入：

Private Sub Form_Load()

Picture1.AutoSize = True

Picture1.BorderStyle = 0

End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 37 Then Picture1.Left = Picture1.Left - 100

If KeyCode = 38 Then Picture1.Top = Picture1.Top - 100

If KeyCode = 39 Then Picture1.Left = Picture1.Left + 100

If KeyCode = 40 Then Picture1.Top = Picture1.Top + 100

End Sub

这些代码的意思是：

加载窗体的时候

设置Picture1的AutoSize属性为True

设置Picture1的BorderStyle属性为0

结束这个事件

键盘按键按下的时候

当按下的是←时，Picture1向左移动100个像素

当按下的是↑时，Picture1向上移动100个像素

当按下的是→时，Picture1向右移动100个像素

当按下的是↓时，Picture1向下移动100个像素

结束这个事件

（ps：在这个程序里好像没有出现方法吧？）

vb 如何让图片向上移动(打开后自动向上移动无需点击)求代码

在窗体的load事件里面写代码；

代码大致是这样的：

p.top=p.top-x

这里p是你放图片的那个容器名字，x是你每次的移动量；

如果你想让它持续移动，就添加一个timer，在load事件里面打开timer，在timer事件里面写上面的代码；

VB左右移动图像代码

将图像放在图像框内，更改图像框的left属性的值就行了。

Private Sub Command1_Click()

Image1.Left = Image1.Left + 200 '向右移动

End Sub

Private Sub Command2_Click()

Image1.Left = Image1.Left - 200 '向左移动

End Sub

关于vb图片移动停止后让图片移动的代码和vb中用按钮使图片停止运动的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。