Ⅰ 在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進行動態控制，圖片就會動起來。
所謂動態控制，例如樓上說的時間空間控制一下。當然當位置到達臨界點的
時候記得追加判斷處理。