VB經驗談：限制輸入的文本框

2019-11-18 17:40:00

字體：大中小

來源：轉載

供稿：網友

PublicClassMyTextBox
　　InheritsSystem.Windows.Forms.TextBox
　　　　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
　　'注意:以下　　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->

上一篇：FileSystemObject讀寫文件

下一篇：VB編程：WindwosAPI全攻略