文本框中输入带小数的数字时遇到了问题。这是一种简单的方法，只允许数值，同时只允许输入一个小数

' USAGE

' In Keypress event of Textbox

ForceNumeric(KeyAscii,Me.ActiveControl)


Function ForceNumeric(KeyAscii, CONTROL As CONTROL)

Dim intKeyAscii As Integer

' MAKE SURE IT'S A DIGIT

intKeyAscii = 0

If KeyAscii >= Asc(0) And KeyAscii <= Asc(9) Then intKeyAscii = KeyAscii

If KeyAscii = 8 Then intKeyAscii = 8

' THIS ALLOWS A DECIMAL TO BE ENTERED...
' IF ONE NOT ENTERED ALREADY

If KeyAscii = 46 And InStr(CONTROL, ".") Then

KeyAscii = 0

ElseIf KeyAscii = 46 Then

intKeyAscii = 46

End If

KeyAscii = intKeyAscii

End Function
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。