英数字の入力制御

最新推荐文章于 2024-12-14 23:18:10 发布

fmsgx

最新推荐文章于 2024-12-14 23:18:10 发布

阅读量808

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： function string c

本文链接：https://blog.youkuaiyun.com/fmsgx/article/details/5514683

VB 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一个用于验证字符是否为字母、数字及特定符号的公共函数。该函数还检查了从剪贴板粘贴的字符串是否符合规定的字符集，确保输入的有效性和安全性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Public Function InputNumAndCharCheck(ByVal pChar As Char) As Boolean
        Dim reg As New System.Text.RegularExpressions.Regex("^[A-Za-z0-9,/-,//,/|,/$,/+,/%,/&,/',/(,/),/*,/x20-/x2f,/x3a-/x40,/x5b-/x60,/x7b-/x7e,/x80-/xff,/u3000-/u3002,/u300a,/u300b,/u300e-/u3011,/u2014,/u2018,/u2019,/u201c,/u201d,/u2026,/u203b,/u25ce,/uff01-/uff5e,/uffe5,/x08,/x16,/x03]+$")

        If pChar.Equals(Chr(22)) Then
            Dim iData As DataObject = Clipboard.GetDataObject()
            '文字列がクリップボードにあるか
            If (iData.GetDataPresent(DataFormats.Text)) Then
                '文字列があるので取得しチェック
                Dim clipStr As String = iData.GetData(DataFormats.Text).ToString()
                If reg.IsMatch(clipStr) = False Then
                    Return False
                End If
            End If
        Else
            If reg.IsMatch(pChar) = False Then
                Return False
            End If
        End If

        Return True

    End Function