【VB.NET】类绑定控件，实现文本框快捷键全选

最新推荐文章于 2025-05-12 12:33:25 发布

转载最新推荐文章于 2025-05-12 12:33:25 发布 · 191 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sunsoftresearch/p/4034060.html

本文介绍如何利用VBScript为文本框添加键盘事件监听，实现全选功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 1 Public Class KeyBinder
 2     Public Sub BindControl(ByRef CControl As TextBox)
 3         AddHandler CControl.KeyDown, AddressOf TextKeyDown
 4     End Sub
 5 
 6     Private Sub TextKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
 7         MsgBox(sender)
 8         Dim txtControl As TextBox = CType(sender, TextBox)
 9         If e.KeyCode = Keys.A AndAlso (e.KeyData And Keys.Control) Then
10             '全选
11             txtControl.SelectAll()
12         End If
13         e.SuppressKeyPress = True
14     End Sub
15 End Class

Public Class KeyBinder
    Public Sub BindControl(ByRef CControl As TextBox)
        AddHandler CControl.KeyDown, AddressOf TextKeyDown
    End Sub

    Private Sub TextKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        MsgBox(sender)
        Dim txtControl As TextBox = CType(sender, TextBox)
        If e.KeyCode = Keys.A AndAlso (e.KeyData And Keys.Control) Then
            '全选
            txtControl.SelectAll()
        End If
        e.SuppressKeyPress = True
    End Sub
End Class

转载于:https://www.cnblogs.com/sunsoftresearch/p/4034060.html