首页 > 解决方案 > VB.net 使用箭头键移动子窗体内的图片框

问题描述

我有一个表单,它是主表单面板的子表单。这个子表单中有一个图片框,我想使用向上/向下箭头键移动它。我尝试了以下代码:

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    Select Case e.KeyCode
        Case Keys.Up
            If PictureBox1.Top > Me.Top Then
                Me.PictureBox1.Top -= 1
            End If
        Case Keys.Down
            If PictureBox1.Bottom < Me.Bottom Then
                Me.PictureBox1.Top += 1
            End If
    End Select
End Sub

但是图片框没有移动可能是因为它不是主窗体的一部分,而是属于一个子窗体,该子窗体是主窗体的面板的子窗体。子窗体中只有三个图片框,没有其他控件。子表单是使用以下内容动态创建的:

Dim winForm As New Form2
winForm.Parent = Me.PnlMain

这样做的解决方法是什么?任何人帮助。

标签: vb.netarrow-keys

解决方案


推荐阅读