Question

目前我正在建造一个小型计算器。您可以使用按钮设置计算中使用的数字。现在我正在使用键盘输入。我有以下代码，但是当应用程序启动时，我无法输入任何内容。我认为它已被打破，因为重点不在表单本身上，但我不知道如何设置它。有人能帮助我吗？

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
    Select Case e.KeyChar
        Case Convert.ToChar(48)
            Cijfer(Cijfer:="0")
        Case Convert.ToChar(49)
            Cijfer(Cijfer:="1")
        Case Convert.ToChar(50)
            Cijfer(Cijfer:="2")
        Case Convert.ToChar(51)
            Cijfer(Cijfer:="3")
        Case Convert.ToChar(52)
            Cijfer(Cijfer:="4")
        Case Convert.ToChar(53)
            Cijfer(Cijfer:="5")
        Case Convert.ToChar(54)
            Cijfer(Cijfer:="6")
        Case Convert.ToChar(55)
            Cijfer(Cijfer:="7")
        Case Convert.ToChar(56)
            Cijfer(Cijfer:="8")
        Case Convert.ToChar(57)
            Cijfer(Cijfer:="9")
        Case Convert.ToChar(44)
            TextOpNul()
            If Controleren() = True Then
            Else
                If Not (TextBox1.Text.Contains(",")) Then
                    TextBox1.Text += ","
                End If
            End If
        Case Convert.ToChar(47)
            If Controleren() = True Then
            Else
                TekenKnop(TekenNr:=1)
            End If
        Case Convert.ToChar(42)
            If Controleren() = True Then
            Else
                TekenKnop(TekenNr:=2)
            End If
        Case Convert.ToChar(45)
            If Controleren() = True Then
            Else
                TekenKnop(TekenNr:=3)
            End If
        Case Convert.ToChar(43)
            If Controleren() = True Then
            Else
                TekenKnop(TekenNr:=4)
            End If
        Case Convert.ToChar(13)
            Button11_Click(Nothing, Nothing)
        Case Convert.ToChar(8)
            Button17_Click(Nothing, Nothing)
    End Select
End Sub

Answer 1

MyControl.Select（）;

这就是你需要做的全部：）

Answer 2

在设计人员或表单的Load事件中，您可以将其KeyPreview property设置为True。即使焦点设置为子控件，这也会导致表单也接收按键。

Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
    Me.KeyPreview = True
End Sub

将重点放在表格上

2 个答案: