部分有用的VB函数

'****************************************************************************************
'*功    能: 字符串的字节数
'*
'*参    数: 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

转载于:https://www.cnblogs.com/softbird/archive/2006/02/23/335932.html