VB图片移动代码

答案:2 悬赏:20 手机版

解决时间 2021-08-11 04:36

提问者网友：轻浮
2021-08-10 22:03

我想在窗体中先加入一个控件，在控件中加载入图片后，通过键盘的左右键使得图片可以在窗体中左右移动...（类似于坦克大战，不过不用变换图片，只要用键盘让图片左右移动就可以了）

要完整的代码，最好有注释！

最佳答案

五星知识达人网友：爱难随人意
2021-08-10 22:52

把Form的Keypreview设置为True

图片框,名称为p1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 37 '左
    If P1.Left >= 10 Then P1.Left = P1.Left - 10
    Case 38 '上
    If P1.Top >= 10 Then P1.Top = P1.Top - 10
    Case 39 '右
    If P1.Left < Me.ScaleWidth - P1.Width Then P1.Left = P1.Left + 10
    Case 38 '下
    If P1.Top < Me.ScaleHeight - P1.Height Then P1.Top = P1.Top + 10
End Select
End Sub

全部回答

1楼网友：duile
2021-08-10 23:52

我这里用的是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的原理

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息