在VB中如何进行程序的数据输入有效性验证？

Question

给你个函数
Public 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
然后再text的keypress事件中
KeyAscii = ValiText(KeyAscii, "0123456789.", True)
其中上面的式子中" "可以填入你限制的字符等
此函数通用。这里就只能是数字和小数点

Answer 1

if text1.text<>"" then
    if not isnumeric(txt1.text) then
        msgbox "请输入数值型数据！",48,"提示"
        txet1.setfocus
    endif
endif