VB.NET文本框特殊操作方法分享

VB.NET文本框的操作方式多样化，应用起来也比较简单，开发人员可以根据不同的需求任意选择一种方法来帮助自己实现所需要的功能。那么今天介绍的VB.NET文本框的操作方法，则是针对中文输入的限制等。

下面是VB.NET文本框操作的相关代码：

 
 
 

  
  
  
'sunnyxing2004－04－01***修改   
  
  
  
Public Class MyTextBox   
  
  
  
Inherits System.Windows.Forms.TextBox   
  
  
  
Private m_strValidText As String = "0123456789.+-" 
& Chr(13).ToString   
  
  
  
Private m_blnEditable As Boolean = True   
  
  
  
#Region " Windows 窗体设计器生成的代码 "   
  
  
  
Public Sub New()   
  
  
  
MyBase.New()  
 
 
 

该调用是 Windows 窗体设计器所必需的。

 
 
 

  
  
  
InitializeComponent()   
  
  
  
'在 InitializeComponent() 
调用之后添加任何初始化   
  
  
  
End Sub   
  
  
  
'UserControl1 重写 dispose 以清理组件列表。   
  
  
  
Protected Overloads Overrides 
Sub Dispose(ByVal disposing As Boolean)   
  
  
  
If disposing Then   
  
  
  
If Not (components Is Nothing) Then   
  
  
  
components.Dispose()   
  
  
  
End If   
  
  
  
End If   
  
  
  
MyBase.Dispose(disposing)   
  
  
  
End Sub  
 
 
 

Windows 窗体设计器所必需的

 
 
 

  
  
  
Private components As System.ComponentModel.IContainer   
  
  
  
'注意: 以下过程是 Windows 窗体设计器所必需的   
  
  
  
'可以使用 Windows 窗体设计器修改此过程。   
  
  
  
'不要使用代码编辑器修改它。   
  
  
  
<System.Diagnostics.DebuggerStepThrough()> 
Private Sub InitializeComponent()   
  
  
  
components = New System.ComponentModel.Container   
  
  
  
End Sub   
  
  
  
#End Region   
  
  
  
Private Sub MyTextBox_KeyPress(ByVal sender As Object, 
ByVal e As System.Windows.Forms.KeyPressEventArgs) 
Handles MyBase.KeyPress   
  
  
  
Dim strLocalString As String   
  
  
  
If EditAble Then   
  
  
  
strLocalString = m_strValidText & Chr(8).ToString   
  
  
  
Else   
  
  
  
strLocalString = m_strValidText   
  
  
  
End If   
  
  
  
If UCase(strLocalString).IndexOf(UCase(e.KeyChar)) < 0 Then   
  
  
  
e.Handled = True   
  
  
  
Beep()   
  
  
  
Else   
  
  
  
End If   
  
  
  
End Sub   
  
  
  
Public Property ValidText() As String   
  
  
  
Get   
  
  
  
Return m_strValidText   
  
  
  
End Get   
  
  
  
Set(ByVal Value As String)   
  
  
  
m_strValidText = Value   
  
  
  
End Set   
  
  
  
End Property   
  
  
  
Public Property EditAble() As Boolean   
  
  
  
Get   
  
  
  
Return m_blnEditable   
  
  
  
End Get   
  
  
  
Set(ByVal Value As Boolean)   
  
  
  
m_blnEditable = Value   
  
  
  
End Set   
  
  
  
End Property   
  
  
  
Public Sub CheckText(ByVal sender As Object, ByVal e 
As System.EventArgs) Handles MyBase.TextChanged   
  
  
  
Dim cha As Char   
  
  
  
Try   
  
  
  
cha = CType(Me.Text.Substring(Me.SelectionStart - 1, 1), Char)   
  
  
  
If m_strValidText.IndexOf(cha) < 0 Then   
  
  
  
MeMe.Text = Me.Text.Remove(Me.SelectionStart - 1, 1)   
  
  
  
End If   
  
  
  
Catch ex As Exception   
  
  
  
End Try   
  
  
  
End Sub   
  
  
  
End Class  
 
 
 

VB.NET文本框中限制中文输入的方法就为大家介绍到这里。

【编辑推荐】

1. VB.NET变量生存周期基本概念详解
2. VB.NET静态托盘程序编写方式浅谈
3. VB.NET操作Word经验总结
4. VB.NET判断数组维数具体实现方法探讨
5. VB.NET制作图片按钮实现步骤一一讲解