VB.NET 中的 KeyPress 事件

2025年3月17日 | 阅读 3 分钟

当用户在控件获得焦点期间按下字符、空格或退格键时，Windows 窗体中使用 KeyPress 事件。此外，keypress 事件仅在可打印键或数字（如字母 (a, b, c)）被 Windows 窗体处理时才会引发。非字符键（如 Esc、Shift、Ctrl 等）不会触发 KeyPress 事件。非字符键与 VB.NET Windows 应用程序中的 KeyDown 和 KeyUp 事件一起使用。

KeyDown 事件： 当用户按下键盘上的键时，会发生 KeyDown 事件。当用户一直按住该键时，它会重复。KeyDown 事件由 VB.NET 应用程序中的 Keyboard 事件提供。

KeyUp 事件： 当用户释放键盘上的键时，会引发 KeyUp 事件。KeyUp 事件由 VB.NET 应用程序中的 Keyboard 事件提供。

让我们创建一个简单的程序来显示 VB.NET Windows 窗体中的 KeyPressEvent。

KeyPressEvent.vb

Public Class KeyPressEvent
    Private Sub KeyPress_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpoint.com" 'Set the title for the Windows form
        Label1.Text = "See KeyPress Event"
        Label2.Text = "Enter a single character"
        Button1.Text = "Press" 'Name of button
    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) > 1 Then ' Asc function returns the ANSI value
            Button1.Focus() 'Transfer control to the button
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(" You have Pressed " & TextBox1.Text)
    End Sub
End Class

输出

按任意可打印键。我们按下了键 A。

插入字符后，单击“按下”按钮，它会显示以下输出。

KeyDown 事件示例

让我们创建一个简单的程序来显示 VB.NET Windows 窗体中 KeyDown 事件的用法。

KeyDownEvent1.vb

Public Class KeyDownEvent1
    Private Sub KeyDownEvent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpoint.com" 'Set the title for the Windows form
        Label1.Text = "Press Enter to use KeyDown Event"
    End Sub

    Private Sub KeyDownEvent1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then ' If the condition is true if the block is executed.
            MsgBox("You have Pressed Enter")
        End If
    End Sub
End Class

输出

按下 Enter 按钮，它会显示如下图所示的图像。

KeyUp 事件示例

让我们创建一个简单的程序来显示 VB.NET Windows 窗体中 KeyUp 事件的用法。

KeyUp.vb

Public Class KeyUp
    Private Sub KeyUp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javatpoint.com" 'Set the title for the Windows form
        Label1.Text = "Use of KeyUp Event"
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub KeyUp_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Enter Then ' If the condition is true if the block is executed.
            MsgBox(" Enter Key is up or released.")
        End If
    End Sub
End Class

输出

从键盘上释放 Enter 键后，它会显示下图。

下一主题VB.NET 中的动态控件

VB.NET 中的 KeyPress 事件

KeyDown 事件示例

KeyUp 事件示例

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET 中的 KeyPress 事件

KeyDown 事件示例

KeyUp 事件示例

相关帖子

CheckedListBox 控件

For Each 循环

VB.NET Exit 语句

ListView 控件

With & With 语句

Menu 控件

VB.NET Continue 语句

TreeView 控件

VB.NET vs Java

VB.NET 枚举

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器