[原创]限制用户窗体中文本框的输入

fanjy

以下是Chip Pearson关于如何限制用户窗体中文本框输入的文章,试译了一下,供参考.

主要是用VBA代码实现在文本框中只允许输入哪类字符,不允许输入哪类字符.但我应用了之后,发现句点不能输入,中文字符可以输入,与作者所说的有点小差异,是不是语言版本的问题?

文档 9SMnsExc.rar (4.33 KB, 下载次数: 504)

2006-6-22 16:01 上传

点击文件名下载附件
[原创]限制用户窗体中文本框的输入

hhzjxss

限制文本框的输入

如果你运用过VBA用户窗体，那么你肯定使用过文本框控件。在某些情况下，你可能想限制用户在文本框中输入某类型的数据，比如在文本框中仅能输入数字。不巧的是，没有内置的属性能限制在文本框中只能输入数字。但你能在文本框对象的KeyPress事件过程中使用一些简单的代码来测试能输入哪类字符，然后(作修改后)仅允许数字字符输入。

例如，假设将用户窗体中的文本框命名为TextBox1，下面的代码将允许在文本框中输入数字0-9、一个句点和负号。代码限制用户输入的数据中包含小数点，并且只局限于将负号作为第一个字符输入。

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc("-")
        If Instr(1,Me.TextBox1.Text,"-") > 0 Or Me.TextBox1.SelStart > 0 Then
            KeyAscii = 0
        End If
    Case Asc(".")
        If InStr(1, Me.TextBox1.Text, ".") > 0 Then
            KeyAscii = 0
        End If
    Case Else
        KeyAscii = 0
End Select
End Sub
 

如果想在文本框中允许其它类型的字符输入，在代码的第一个Case语句中列出(允许输入的字符)即可。

(译者注：该代码能允许中文字符的输入，但不能输入句点。By fanjy in 2006-6-22)

附：原文

Restricting Entry In Text Box 

If you are using a VBA Userform, you are almost surely using the TextBox control, and in many of these circumstances you may wish to restrict what sort of data the user is allowed to enter, such as numeric only. Unfortunately, there is no built-in property to restrict a text box to numeric only. However, you can use some simple code in the KeyPress event procedure of the TextBox object to test which character was entered, and allow only numeric (and supporting) characters.

For example, suppose your textbox is named TextBox1. The following code will allow the digits 0-9, a period (.) and a negative sign. The code also limits the user to including a single decimal point, and restricts the minus sign to the first character.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc("-")
        If Instr(1,Me.TextBox1.Text,"-") > 0 Or Me.TextBox1.SelStart > 0 Then
            KeyAscii = 0
        End If
    Case Asc(".")
        If InStr(1, Me.TextBox1.Text, ".") > 0 Then
            KeyAscii = 0
        End If
    Case Else
        KeyAscii = 0
End Select
End Sub
 

To allow other characters, list them in the first Case statement.

(By Chip Pearson)

向您问好

谢谢分享

xq1234

支挂

yuanzhuping

不错正用得着，下来研究研究，谢谢。

dtglexcel

挺好的，我正学习用户窗体，收藏了研究一下，谢谢！

gdzsk

好象只能防止键盘敲入非法字符，但不能防止通过Ctrl+V粘贴一个非法字符。

我是这样做的，请参考：

窗体中有一个TextBox，一个“确定”按钮。要求在TextBox中输入到一个合法的文件名：

在声明段中：
Private ErrTxt() As String

Private Sub UserForm_Initialize()
    ReDim ErrTxt(9)
    ErrTxt(0) = Chr(34)
    ErrTxt(1) = "\"
    ErrTxt(2) = "/"
    ErrTxt(3) = ":"
    ErrTxt(4) = "*"
    ErrTxt(5) = "?"
    ErrTxt(6) = "<"
    ErrTxt(7) = ">"
    ErrTxt(8) = "\"
    ErrTxt(9) = "-"
End Sub

Private Sub TextBox1_Change()
    Dim i As Integer
    If TxtName.Value = "" Then      '如果空，“确定”按钮不可用
        CmdOK.Enabled = False
    Else
        '判断输入的名称是否有非法字符，如果无，“确定按钮”可用，否则不可用
        For i = 0 To 9
            If InStr(TxtName.Value, Txt(i)) > 0 Then
                CmdOK.Enabled = False
                Exit Sub
            End If
        Next i
     End If
End Sub

也可以通过错误陷阱检测，这是应“限制输入非法字符”要求的一种方法，请参考。

jdmlw

各位太有才华了

danysy

下载先，谢谢分享

goldowl2011

Thanks  a lot.