Dim Str As String = "" Private Sub txtRecond_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtRecond.KeyUp txtRecond.Text = Regex.Replace(txtRecond.Text, "[^0-9]", "") If txtRecond.Text = &quo
我们知道VB.NET中的文本框是不支持Ctrl+A的快捷键的. 如果让它支持呢? Private Sub txtSQL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSQL.KeyDown If e.KeyCode = Keys.A AndAlso (e.KeyData And Keys.Control) Then '全选 txtSQL.SelectAll() En