Ⅰ 在vb里面用上下左右怎么控制图片的移动
Private Sub Command1_Click()
Static n As Integer
Picture1.Left = Picture1.Left + n
n = n + 10
End Sub
这是向右移，还可以把left改为right、top、
Ⅱ VB 让图片移动
'以下是代码 需创建4个按钮(ommand1,ommand2,ommand3,ommand4) 和一个TIMER控件(Timer1) 一个图片框(Picture1)
不知道是不是你说的那种效果？有问题发消息， 12点了 睡觉了。。拜拜
Dim i
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 1
Timer1.Enabled = True
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 2
Timer1.Enabled = True
End Sub
Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 3
Timer1.Enabled = True
End Sub
Private Sub Command4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 4
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Select Case i
Case 1
Picture1.Top = Picture1.Top - 10
Case 2
Picture1.Top = Picture1.Top + 10
Case 3
Picture1.Left = Picture1.Left - 10
Case 4
Picture1.Left = Picture1.Left + 10
End Select
End Sub
Ⅲ VB里怎么用键盘的方向键来控制图片的移动啊
1）在窗体上布置一个Image控件并载入图片
OptionExplicit
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
'按下箭头键，改变图片的位置
SelectCaseKeyCode
CasevbKeyUp'上箭头键
Image1.Top=Image1.Top-1
CasevbKeyDown'下箭头键
Image1.Top=Image1.Top+1
CasevbKeyLeft'左箭头键
Image1.Left=Image1.Left-1
CasevbKeyRight'右箭头键
Image1.Left=Image1.Left+1
EndSelect
EndSub
PrivateSubForm_Load()
'允许窗体截获键盘
Me.KeyPreview=True
'将窗体的度量单位从默认的Twips改为Pixels（像素）
Me.ScaleMode=vbPixels
EndSub
Ⅳ vb中如何实现键盘事件控制图片的移动。想要的效果就是每按下字母a键一次则图片就会向窗体的右边移动一小段
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Or KeyCode = 97 Then
Picture1.Move Picture1.Left + 100
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Ⅳ VB 图片移动
picture1.left = fix ((上限-下限+1)* Rnd + 下限)
其中上限是窗体宽度，下限是0，这样就在整个窗体里面随机移动，怎么会每次移动的长度为1？
Ⅵ 求vb图片移动的代码
我这里用的是picturebox
Private
Sub
Picture1_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
'这是控件的KEY_DOWN事件
Select
Case
(KeyCode)
Case
37
'向左
Picture1.Left
=
Picture1.Left
-
20
'向左就是让控件的left属性不断减小
Case
38
'向上
Picture1.Top
=
Picture1.Top
-
20
'top属性减小
Case
39
'向右
Picture1.Left
=
Picture1.Left
+
20
'向右就是left不断增加
Case
40
'向上
Picture1.Top
=
Picture1.Top
+
20
'top属性增加
End
Select
End
Sub
另外给你附上vb的坐标系统，以便你更好的理解left和top的原理
Ⅶ vb中怎么样让图片左右动
用加载图片控件的move属性
或者用最简单的，修改加载图片的控件的 left，改变图片的位置即可！如果要不断移动可以用timer控制
Ⅷ VB如何实现图片在某一区域移动
拉一个pictuerbox然后点击的时候它就会跟鼠标一起动再点的时候就会停下来
,就实现了你说的效果.要拉一个timer控件.
Dim
k
As
Integer
Private
Sub
Form_Load()
k
=
0
End
Sub
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
If
Timer1.Enabled
=
True
And
k
Mod
2
<>
0
Then
Picture1.Left
=
X
-
250
Picture1.Top
=
Y
-
250
Else
Timer1
=
False
End
If
End
Sub
Private
Sub
Picture1_Click()
Timer1.Enabled
=
True
k
=
k
+
1
End
Sub
以下是限定图片移动范围,比如要让他在5000*5000范围内移动就按以下输入.
注:如果移动范围是5000*5000则窗体的大小应该是
5000+图片宽度*5000+图片高,比如图片是100*100限定范围是3000*3000则窗体大小为3100*3100,如果每个图片不一样大则只要更改单个图片的移动范围就可以达到完美效果.
Private
Sub
Timer1_Timer()
If
Picture1.Left
<=
0
Then
Picture1.Left
=
0
End
If
If
Picture1.Left
>=
5000
Then
Picture1.Left
=
5000
End
If
If
Picture1.Top
<=
0
Then
Picture1.Top
=
0
End
If
If
Picture1.Top
>=
5000
Then
Picture1.Top
=
5000
End
If
End
Sub
Ⅸ VB的图片移动问题
Picture1.Left = Picture1.Left + 1000
Picture1.Move 100, 200
将图片的容器Picture1的Top，Left进行动态控制，图片就会动起来。
所谓动态控制，例如楼上说的时间空间控制一下。当然当位置到达临界点的
时候记得追加判断处理。