VB.NET文本框的操作方式多樣化，應(yīng)用起來也比較簡單，開發(fā)人員可以根據(jù)不同的需求任意選擇一種方法來幫助自己實現(xiàn)所需要的功能。那么今天介紹的VB.NET文本框的操作方法，則是針對中文輸入的限制等。

下面是VB.NET文本框操作的相關(guān)代碼：

'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 窗體設(shè)計器生成的代碼 "   
Public Sub New()   
MyBase.New()  

該調(diào)用是 Windows 窗體設(shè)計器所必需的。

InitializeComponent()   
'在 InitializeComponent() 
調(diào)用之后添加任何初始化   
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 窗體設(shè)計器所必需的

Private components As System.ComponentModel.IContainer   
'注意: 以下過程是 Windows 窗體設(shè)計器所必需的   
'可以使用 Windows 窗體設(shè)計器修改此過程。   
'不要使用代碼編輯器修改它。   
<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靜態(tài)托盤程序編寫方式淺談
3. VB.NET操作Word經(jīng)驗總結(jié)
4. VB.NET判斷數(shù)組維數(shù)具體實現(xiàn)方法探討
5. VB.NET制作圖片按鈕實現(xiàn)步驟一一講解