PublicClassMyTextBox
InheritsSystem.Windows.Forms.TextBox
Privatem_strValidTextAsString="0123456789. -"&Chr(13).ToString
Privatem_blnEditableAsBoolean=True
#Region"Windows窗體設計器生成的代碼"
PublicSubNew()
MyBase.New()
'該調用是Windows窗體設計器所必需的。
InitializeComponent()
'在InitializeComponent()調用之後添加任何初始化
EndSub
'UserControl1重寫dispose以清理組件列表。
ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
IfdisposingThen
IfNot(componentsIsNothing)Then
components.Dispose()
EndIf
EndIf
MyBase.Dispose(disposing)
EndSub
'Windows窗體設計器所必需的
PrivatecomponentsAsSystem.ComponentModel.IContainer
'注意:以下過程是Windows窗體設計器所必需的
'可以使用Windows窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
PrivateSubInitializeComponent()
components=NewSystem.ComponentModel.Container
EndSub
#EndRegion
PrivateSubMyTextBox_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesMyBase.KeyPress
DimstrLocalStringAsString
IfEditAbleThen
strLocalString=m_strValidText&Chr(8).ToString
Else
strLocalString=m_strValidText
EndIf
IfUCase(strLocalString).IndexOf(UCase(e.KeyChar))<0Then
e.Handled=True
Beep()
Else
EndIf
EndSub
PublicPropertyValidText()AsString
Get
Returnm_strValidText
EndGet
Set(ByValValueAsString)
m_strValidText=Value
EndSet
EndProperty
PublicPropertyEditAble()AsBoolean
Get
Returnm_blnEditable
EndGet
Set(ByValValueAsBoolean)
m_blnEditable=Value
EndSet
EndProperty
EndClass->