温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

VB.NET文本框的操作方法是什么

发布时间:2021-10-27 17:59:50 阅读:168 作者:柒染 栏目:编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

VB.NET文本框的操作方法是什么,很多新手对此不是很清楚,为了帮助大家解决这个难题,下面小编将为大家详细讲解,有这方面需求的人可以来学习下,希望你能有所收获。

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

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

'sunnyxing20040401***修改   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 - 11), Char)   If m_strValidText.IndexOf(cha) < 0 Then   MeMe.Text = Me.Text.Remove(Me.SelectionStart - 11)   End If   Catch ex As Exception   End Try   End Sub   End Class  

看完上述内容是否对您有帮助呢?如果还想对相关知识有进一步的了解或阅读更多相关文章,请关注亿速云行业资讯频道,感谢您对亿速云的支持。

亿速云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI

开发者交流群×