两段代码 老师给的

简介: 给一个文本框,只能输入数字、小数点和负号,其他的按键输入将不显示。 1.普通程序代码控制Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.

给一个文本框,只能输入数字、小数点和负号,其他的按键输入将不显示。

 

1.普通程序代码控制

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim c As Char
        c = e.KeyChar
        If c = "."c Then
            If InStr(TextBox1.Text, e.KeyChar) > 0 Or (InStr(TextBox1.Text, "-") > 0) And (TextBox1.SelectionStart = 0) Then
                e.KeyChar = ""
            End If
        ElseIf
c = "-"c Then
            If InStr(TextBox1.Text, c) > 0 Or TextBox1.SelectionStart > 0 Then
                e.KeyChar = ""
            End If
        ElseIf
c = "0"c Then
            If
(TextBox1.SelectionStart = 0 And Not TextBox1.Text.StartsWith("0") And TextBox1.Text.Length <> 0) Or (TextBox1.SelectionStart <= 1 And TextBox1.Text.StartsWith("0")) Then
                e.KeyChar = ""
            End If
        ElseIf c = ControlChars.Back Then
        ElseIf
InStr("123456789", e.KeyChar) <= 0 Then
            e.KeyChar = ""
        End If
    End Sub

 

2.正则表达式控制//正则表达式不对

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        '利用正则表达式验证
        'System.Text.RegularExpressions.Regex.IsMatch(TextBox2.Text, "^(-?\\d+)(\\.\\d+)?$")    ''''该表达式来源与网上,未经证实

    End Sub

//  ^[+-]?(?:\d+\.?\d*|\d*\.?\d+)[\r\n]*$  据说这个是对的。未验证。

 

3.使用MaskedTextBox//不能输入-和。

Mask属性设置的是自定义掩码为999999999999999

 

===============================================

 

将窗体中所有TextBox的text全部清空,其他的CheckBox啊RadioButton啊这些照旧

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tp As TabPage
        Dim
text As Control

        For Each tp In TabControl1.TabPages
            For Each text In tp.Controls
                If TypeOf text Is TextBox Then
                    text.Text = ""
                End If
            Next
        Next

    End Sub

目录
相关文章
|
7月前
|
Java API 数据安全/隐私保护
杨校老师课堂之Java面向对象知识点整理集锦2
杨校老师课堂之Java面向对象知识点整理集锦
50 0
|
7月前
|
机器学习/深度学习 Java API
杨校老师课堂之Java面向对象知识点整理集锦3
杨校老师课堂之Java面向对象知识点整理集锦
28 0
|
7月前
|
Java 编译器 开发工具
杨校老师课堂之Java面向对象知识点整理集锦1
杨校老师课堂之Java面向对象知识点整理集锦
28 0
|
7月前
|
Java 数据库连接 网络安全
杨老师课堂之基于注解的SSH整合案例
杨老师课堂之基于注解的SSH整合案例
21 0
|
C++ Sentinel
【C++】考研408代码题【必会】【收藏】
【C++】考研408代码题【必会】【收藏】
182 0
【C++】考研408代码题【必会】【收藏】
|
算法
如何看懂一个程序(郝斌老师)
如何看懂一个程序(郝斌老师)
157 0
教师节,感谢这些“特殊”的老师们!
他们是《你好!低代码》栏目的15位分享嘉宾,他们的分享课程已累计为20,000+人带去滋养!
240 0
教师节,感谢这些“特殊”的老师们!
|
C++ C语言 开发工具
收藏-赵四老师的经典语录
理解和讨论之前请先学会如何观察! 计算机组成原理→DOS命令→汇编语言→C语言(不包括C++)、代码书写规范→数据结构、编译原理、操作系统→计算机网络、数据库原理、正则表达式→其它语言(包括C++)、架构…… 对学习编程者...
1273 0
|
JavaScript 关系型数据库 应用服务中间件
丁峰老师的分享
1.ps:https://pan.baidu.com/s/1b9YFtO (gg5a) 2.html5:https://pan.baidu.com/s/1kVlAdCF (3nja) 3.JavaScript: https://pan.
1696 0

热门文章

最新文章