最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

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

成都創(chuàng)新互聯(lián)專注于黑山企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè)公司,購物商城網(wǎng)站建設(shè)。黑山網(wǎng)站建設(shè)公司,為黑山等地區(qū)提供建站服務(wù)。全流程專業(yè)公司，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

下面是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   
  
  
  
'注意: 以下過程是 Windows 窗體設(shè)計(jì)器所必需的   
  
  
  
'可以使用 Windows 窗體設(shè)計(jì)器修改此過程。   
  
  
  
'不要使用代碼編輯器修改它。   
  
  
  
 
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文本框中限制中文輸入的方法就為大家介紹到這里。

本文標(biāo)題：VB.NET文本框特殊操作方法分享
網(wǎng)頁地址：http://fisionsoft.com.cn/article/cdiipod.html