VB制作的可以限制输入的文本框

原创 2004年03月30日 19:26:00

通过继承TextBox,添加了一个ValidText属性,用来获取和设置有效的文本输入

还有一个EditAble属性,决定文本框是否支持退格编辑。

我是刚学习VB.Net,希望和大家交流,我得QQ:36745349

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
End Class

VB制作的可以限制输入的文本框

通过继承TextBox,添加了一个ValidText属性,用来获取和设置有效的文本输入 还有一个EditAble属性,决定文本框是否支持退格编辑。 我是刚学习VB.Net,希望和大家交流,我得QQ:3...
  • jevylau
  • jevylau
  • 2007年02月25日 09:41
  • 243

VB文本框限制输入类型

VB文本框可以利用Ascii字符来限定输入的内容类型,这里我分了两大部分来阐述怎样限制数据类型,其实原理都是一样的,都是Ascii字符范围设定的问题,大家可以根据Ascii表来限制数据类型。 一、...
  • YYZZHC999
  • YYZZHC999
  • 2016年05月22日 15:08
  • 876

VB制作外挂示例

       使用 Visual Basic 制作修改器       作者:Bean(beans@gamehacking.com)       HeYu,Flyinsky 翻译        "对不起...
  • hyblusea
  • hyblusea
  • 2006年11月05日 22:19
  • 4641

VB文本框textbox的那点事

1、限制文本框中只允许输入数字 在textbox的keypress事件里面写上 (1)判断输入的数字是否为小数 IfkeyAscii=46 and not(InStr(txtnumber,"."...
  • IstarI
  • IstarI
  • 2015年08月10日 10:43
  • 1959

C#文本框输入限制

文本框输入限制: function regInput(obj, reg, inputStr) {  var docSel = document.selection.createRange()  if ...
  • zhf777
  • zhf777
  • 2005年06月17日 16:29
  • 1129

VB编写病毒

Private n盘 Private n路径1$ Private n路径2$ Private Sub Command1_Click() End End Sub Private Sub Form_Loa...
  • kzh4435
  • kzh4435
  • 2007年09月30日 13:35
  • 540

vb 操作textBox内的内容

、、、、、、、、、、、、、、、
  • boys1999
  • boys1999
  • 2014年04月16日 12:09
  • 440

文本框 限制输入

function test(){      document.getElementById("test1").onkeydown  = function(e) {     e = e || event...
  • huasheng_007
  • huasheng_007
  • 2011年07月28日 22:42
  • 173

文本框限制输入

1.文本框只能输入数字代码(小数点也不能输入)◎   --------------------------------------------------------------- ◎   -----...
  • jeefchen
  • jeefchen
  • 2009年06月04日 20:01
  • 515

[C#] TextBox限制输入长度(中文字算2码)

TextBox本身有一个MaxLength的属性可以限制输入长度  但他计算长度的方式是不论中文字还英文字都算1码  如果要配合SQL Server的Varchar栏位做长度限制  那遇到中文字的部份...
  • liujiahaol123
  • liujiahaol123
  • 2014年03月18日 10:11
  • 2609
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB制作的可以限制输入的文本框
举报原因:
原因补充:

(最多只允许输入30个字)