UC知道vb移动图片
来源：百度知道 编辑：UC知道 时间：2024/06/04 06:48:46
我使用的是VB2005，按其他玩友所说的方式输入代码：
Private Sub Form2_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
Select Case KeyCode
Case KeyCode = 37
Label1.Left = Label1.Left - 10 '左由于只向左移,TOP不变,所以也可以这样(Image1.Left=Image1.Left - 10)直接减小LEFT就行了.下面也一样.
Case 38
Label1.Top = Label1.Top - 10 '上
Case 39
Label1.Left = Label1.Left + 10 '右
Case 40
Label1.Top = Label1.Top + 10 '下
End Select
但我的“label1”还是不动。
请教高手，我该怎么做？
对不起，我用的是VB2005的
“Label1.Move”不被承让为合法格式
我试了
还是不会动
Private Sub Form2_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
Select Case KeyCode
Case KeyCode = 37
Label1.Left = Label1.Left - 10 '左由于只向左移,TOP不变,所以也可以这样(Image1.Left=Image1.Left - 10)直接减小LEFT就行了.下面也一样.
Case 38
Label1.Top = Label1.Top - 10 '上
Case 39
Label1.Left = Label1.Left + 10 '右
Case 40
Label1.Top = Label1.Top + 10 '下
End Select
但我的“label1”还是不动。
请教高手，我该怎么做？
对不起，我用的是VB2005的
“Label1.Move”不被承让为合法格式
我试了
还是不会动
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Show
Select Case KeyCode
Case 37
Label1.Move Label1.Left - 30, Label1.Top '左
Case 38
Label1.Move Label1.Left, Label1.Top - 30 '上
Case 39
Label1.Move Label1.Left + 30, Label1.Top '右
Case 40
Label1.Move Label1.Left, Label1.Top + 30 '下
End Select
End Sub
Private Sub Form_Load()
Label1.Caption = "DAFSAFDSA"
End Sub
移动的公式格式不对头
·····················vb2005 和VB6.0的区别我不清楚，你找下2005的公式，按公式办事，肯定可以的~
10 太小，改大一点试试看？
所有 上下左右 加减的数字都 乘以15 看看~
VB2005我不是很清楚。
我知道vs2008里面默认按像素算。
VB6里面则移动像素*15的距离才是1像素。