部分有用的VB函数

最新推荐文章于 2023-03-21 18:28:15 发布

soft_bird

最新推荐文章于 2023-03-21 18:28:15 发布

阅读量711

点赞数

分类专栏： 4.Visual Basic 文章标签： vb function string integer

本文链接：https://blog.csdn.net/soft_bird/article/details/666786

版权

4.Visual Basic 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

'****************************************************************************************
'*功    能: 字符串的字节数
'*
'*参    数: Str String
'*
'*返回值: 字符串的字节长度
'*
'*创建日期: 2006.02.09 赵健川
'****************************************************************************************
Public Function StrByteLen(Str As String) As Long
    StrByteLen = LenB(StrConv(Str, vbFromUnicode))
End Function
'****************************************************************************************
'*功    能: 是否为字母串
'*
'*参    数: strData String
'*
'*返回值: 1 半角 ,2 全角
'*
'*创建日期: 2006.02.09 赵健川
'****************************************************************************************
Public Function HalfFull(strData As String) As Long
    HalfFull = StrByteLen(Left(strData, 1))
End Function

'****************************************************************************************
'*功    能: 是否为数字串
'*
'*参    数: strData String
'*
'*返回值: True 是数字
'*
'*创建日期: 2006.02.09 赵健川
'****************************************************************************************
Public Function IsDigit(strData As String) As Boolean
    IsDigit = False
    IsDigit = IIf(IsNumeric(strData), True, False)
End Function
'****************************************************************************************
'*功    能: 是否为字母串
'*
'*参    数: strData String
'*
'*返回值: True 是字母
'*
'*创建日期: 2006.02.09 赵健川
'****************************************************************************************
Public Function IsAlpha(strData As String) As Boolean
    Dim lStrLen As Long
    Dim lIndex As Long
    Dim strTemp As String
    IsAlpha = True
    lStrLen = Len(strData)

    For lIndex = 1 To lStrLen
        strTemp = Mid$(strData, lIndex, 1)
        If ("a" <= strTemp And strTemp <= "z") Then
            GoTo NEXTFOR
        ElseIf ("A" <= strTemp And strTemp <= "Z") Then
            GoTo NEXTFOR
        End If
        IsAlpha = False
        Exit For
NEXTFOR:
    Next lIndex
End Function

'****************************************************************************************
'*功    能: 键盘只能输入数字
'*
'*参    数: KeyAscii Integer
'*
'*返回值:
'*
'*创建日期: 2006.02.09 赵健川
'****************************************************************************************
Public Sub Key_Digit(KeyAscii As Integer)
    'Backspace or Enter
    If KeyAscii = 8 Or KeyAscii = vbKeyReturn Then
        Exit Sub
    Else
        If (KeyAscii < 48 Or KeyAscii > 57) Then
            KeyAscii = 0
        End If
    End If
End Sub