VB.NET文本框的操作方法是什么，很多新手對(duì)此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來(lái)學(xué)習(xí)下，希望你能有所收獲。

10多年專注成都網(wǎng)站制作，成都定制網(wǎng)頁(yè)設(shè)計(jì)，個(gè)人網(wǎng)站制作服務(wù)，為大家分享網(wǎng)站制作知識(shí)、方案，網(wǎng)站設(shè)計(jì)流程、步驟,成功服務(wù)上千家企業(yè)。為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù),專注于成都定制網(wǎng)頁(yè)設(shè)計(jì),高端網(wǎng)頁(yè)制作,對(duì)成都社區(qū)文化墻等多個(gè)方面，擁有豐富的營(yíng)銷推廣經(jīng)驗(yàn)。

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

下面是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è)計(jì)器生成的代碼 "   
Public Sub New()   
MyBase.New()  

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

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è)計(jì)器所必需的

Private components As System.ComponentModel.IContainer   
'注意: 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的   
'可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。   
'不要使用代碼編輯器修改它。   
<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  

看完上述內(nèi)容是否對(duì)您有幫助呢？如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對(duì)創(chuàng)新互聯(lián)的支持。

文章標(biāo)題：VB.NET文本框的操作方法是什么
轉(zhuǎn)載來(lái)于：http://www.chinadenli.net/article32/jigcpc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計(jì)、Google、商城網(wǎng)站、品牌網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)