| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 450 人关注过本帖
标题:文本框数据合法性检验
只看楼主 加入收藏
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:2 
文本框数据合法性检验
能否编写一个函数过程或者子过程,实现对窗体内所有文本框(TextBox)数据输入合法性(例如只能输入数字)进行检验,若输入不是数字则弹出错误窗口。编写思路是什么?
谢谢!
搜索更多相关主题的帖子: 数据 合法 文本框 过程 输入 
2021-01-29 20:39
HVB6
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:15
帖 子:312
专家分:561
注 册:2013-10-30
收藏
得分:10 
中判断输入的是字符还是数字
https://bbs.
 If IsNumeric(Me.TextBox1.Text) Then
            MsgBox("是数字")
        Else
            MsgBox("不是数字")
        End If
2021-01-31 14:05
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
收藏
得分:0 
谢谢您的解答!
试了下,这段语句只能判断文本框(TextBox1)是否输入了数字,不能判断窗体内其他文本框(比如TextBox2、TextBox3……是否输入了数字)。从其他网站上搜到下列子过程,可以解决这个问题,供大家参考。
Public Class form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call IsExists(Me)
End Sub

    Public Sub IsExists(ByVal frmTestText As Windows.Forms.Form)
        Dim c As Control
        For Each c In frmTestText.Controls
            If TypeOf c Is TextBox Then
                c.Text = c.Text.Trim
                If c.Text = "" Or Not IsNumeric(c.Text) Then
                    c.Text = ""
                    MsgBox("输入数据有误,请重新输入 !")
                    c.Focus()
                    Exit Sub
                End If
            End If
        Next
    End Sub
End Class
2021-02-01 21:00
快速回复:文本框数据合法性检验
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.062926 second(s), 9 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved