16,555
社区成员
发帖
与我相关
我的任务
分享
'1.新建一个 Windows窗口控件库程序
'2.在界面上放一个TextBox控件
'3.写下面的代码
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) And Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
'4.运行试试看 是不是只能输入数字
Public Class MyTextbox
Inherits TextBox
Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
MyBase.OnKeyDown(e)
MsgBox(e.KeyCode)
End Sub
End Class