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 窗体设计器修改此过程。     
  
  '不要使用代码编辑器修改它。     
  
   
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文本框中限制中文输入的方法就为大家介绍到这里。

分享标题：VB.NET文本框特殊操作方法分享
当前URL：http://www.csdahua.cn/qtweb/news31/286881.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容