VB.net Перемещение Picturebox внутри дочерней формы с помощью клавиш со стрелками - PullRequest
Новая
       11

VB.net Перемещение Picturebox внутри дочерней формы с помощью клавиш со стрелками

0 голосов
/ 24 августа 2018

У меня есть форма, которая является дочерней по отношению к панели основной формы. Внутри этой дочерней формы есть графическое поле, которое я хочу переместить с помощью клавиш со стрелками вверх / вниз. Я пробовал следующий код: 

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

Какой обходной путь для этого? кто-нибудь помочь.

...