VB录入字符时限制格式和字符 第2页

Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
    If Text1(Index).Text <> "" Then
        If Text1(Index).SelStart = 0 Then
            If Index > 0 Then Text1(Index - 1).SetFocus
        ElseIf Text1(Index).SelStart = 2 Then
            If Index < 5 Then Text1(Index + 1).SetFocus
        End If
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim L As Long
    L = Text1.SelStart
    If L < 18 Then
        If KeyAscii = 8 Then Exit Sub
        If L Mod 3 = 2 Then
            If KeyAscii <> Asc("-") Then KeyAscii = 0
        Else
            If Not ((Asc("0") <= KeyAscii And KeyAscii <= Asc("9")) Or (Asc("A") <= KeyAscii And KeyAscii <= Asc("F")) Or (Asc("a") <= KeyAscii And KeyAscii <= Asc("f"))) Then
                KeyAscii = 0
            Else
                KeyAscii = Asc(UCase(Chr(KeyAscii)))
            End If
        End If
    Else
        If KeyAscii <> 13 And KeyAscii <> 8 Then KeyAscii = 0
    End If

End Sub

上一页  [1] [2]