vb6中只允许字符串中的某些字符

Question

我只想制作预定义的字符，以便能够在 vb6 中的文本框中使用。 我怎样才能做到这一点？

预定义的字符将类似于 0-9 和 A、C、M、E 除了这些字符之外的所有其他字符都会给出一个 msgbox 作为错误。它也可以是a,c,m,e我可以使用Ucase()来解决它。

Answer 1

你可以;

private Sub atextbox_KeyPress(keyascii As Integer)
   if InStr(1, "0123456789ACME", Chr$(keyascii)) = 0 Then keyascii  = 0 '//case sensitive
End Sub

或者

if Chr$(keyascii) like "[0-9]" or Chr$(keyascii) like "[ACMEacme]"

格式化

select case true
    case chr$(keyascii) like "[0-9]"
    case chr$(keyascii) like "[ACMEacme]"
    case else
        keyascii = 0
end select

Answer 2

您可以使用 KeyPress 事件检测输入的每个字符并检查 ASCII 值。如果将其设置为 0，则按下操作将被忽略。
请务必检查 Change 事件以捕获粘贴等。

此外，不要使用消息框，因为这会惹恼用户。

Answer 3

使用 KeyPress 事件：

Private Sub txtBox_KeyPress(KeyAscii As Integer)
    Dim KeyChar As String
    If KeyAscii > 31 Then 'ignore low-ASCII characters like BACKSPACE
        KeyChar = Chr(KeyAscii)

        If Not IsAllowed(KeyChar) Then
          KeyAscii = 0
          MsgBox.Show("The allowed characters are ... ")
        End If
    End If
End Sub

IsAllowed 函数将包含允许的键代码。