VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 输入限制确认
发表评论(0)作者:, 平台:, 阅读:12295, 日期:2000-03-12
输入限制确认

在某些应用程序中,我们需要限制在文本框或其它一些控件中只能输入数字或一些特定的

字符,现在我们可以通过下面的一个函数来实现此功能:

Function ValiText(KeyIn As Integer, ValidateString As String, _

Editable As Boolean) As Integer

Dim ValidateList As String

Dim KeyOut As Integer

If Editable = True Then

ValidateList = UCase(ValidateString) & Chr(8)

Else

ValidateList = UCase(ValidateString)

End If

If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then

KeyOut = KeyIn

Else

KeyOut = 0

Beep

End If

ValiText = KeyOut

End Function

在工程中加入此函数后,你就可以使用它了。方法:在需要限制输入的控件的 KeyPress

加入以下代码:

KeyAscii=ValiText(Keyascii, "0123456789/-",True)

现在你就可以过虑掉你不希望的字符了。在此例中,我们只接受第二个参数提供的字符,

即:"0123456789/-", 而此函数的第三个函数就决定了能否使用 [Backspace] 键。最后

值得一提的是此函数对大小写是不敏感的。