在按下开始时仅制作一次按键代码运行

Question

我正在编写一段代码，当按下一个按钮时，它会创建一个图片框，但是当您按住同一个键时，该图片框需要变大。起初我的代码重复了框的创建，但现在我已经尝试了下面的代码，而是它创建了一次，但在代码的末尾。有谁知道一些代码如何在第一次按下时执行部分按键代码，并且只执行一次？

Private Class Form1
      Dim KeyHolding As Boolean = False


Private Sub Btn_1_KeyDown(sender As Object, e As KeyEventArgs) Handles Btn_1.KeyDown
        If Not KeyHolding Then          'the events which are activated once only when the key is pressed
            KeyHolding = True

            Dim PB As New PictureBox With {.Width = Btn_1.Width - 2, .Height = 10, .Top = Btn_1.Top + 20, .Left = Btn_1.Left + 1, .BackColor = Color.Cyan}
            PB.Name = "PB_1"
            TestPanel.Controls.Add(PB)
        Else                            'the events which are constantly done when the key is held

        End If
    End Sub

Private Sub Btn_1_KeyUp(sender As Object, e As KeyEventArgs) Handles Btn_1.KeyUp
        Btn_1.BackColor = SystemColors.Control
        KeyHolding = False
    End Sub

Answer 1

试试这个

Dim KeyHolding As Boolean = False
Dim PB As PictureBox

Private Sub Btn_1_KeyDown(sender As Object, e As KeyEventArgs) Handles Btn_1.KeyDown
    If Not KeyHolding Then          'the events which are activated once only when the key is pressed
        KeyHolding = True
        PB = New PictureBox With {.Width = Btn_1.Width - 2, .Height = 10, .Top = Btn_1.Top + 20, .Left = Btn_1.Left + 1, .BackColor = Color.Cyan}
        PB.Name = "PB_1"
        TestPanel.Controls.Add(PB)
    Else                            'the events which are constantly done when the key is held
        PB.Width += 10
        PB.Height += 10
    End If
End Sub

Private Sub Btn_1_KeyUp(sender As Object, e As KeyEventArgs) Handles Btn_1.KeyUp
    Btn_1.BackColor = SystemColors.Control
End Sub

在按下开始时仅制作一次按键代码运行

Making keydown code only run once, at the START of the press

vb.net

vb.net-2010

visual-studio-code

在按下开始时仅制作一次按键代码 运行

Making keydown code only run once, at the START of the press

vb.net

vb.net-2010

visual-studio-code

在按下开始时仅制作一次按键代码运行