程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB經驗談:限制輸入的文本框

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

編輯:VB綜合教程
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->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved