关于VB编程问题

我想在公共类写了一个函数，用来控制文本框输入的内容必须为数字，包括小数（精确到1位），如果输入得数不为数字，文本框就不会显示输入的数据。我想这个函数可以应用在不同窗体里的任意文本框，感怎样做？

思路我是有的，但不会一些函数，也可以只说说需要用到的函数就行了

答案：Public Function KeyAsci(KeyAscii As Integer) As Integer
 If (KeyAscii &gt;= 48 And KeyAscii &lt;= 57) Or KeyAscii = 8 Or KeyAscii = 13 Or KeyAscii = 46 Then
  
KeyAsci = KeyAscii
  
Else
  
   MsgBox "只能输入数字", vbOKOnly, "提示"
  
   KeyAsci = 0
   End If
 End Function
 在窗台中调用就行了
  Private Sub txtlxdh_KeyPress(KeyAscii As Integer) '判断只能输入数字
 If KeyAsci(KeyAscii) = 0 Then
    KeyAscii = 0
  
Me.txtlxdh.Text = ""
 Else
 End If
 End Sub
  在给你是不提示的 是能输入字母和数字的
 Select Case KeyAscii
  
  
   Case 48 To 57
  
  
  Exit Sub
  
    Case 65 To 90
  
  
  Exit Sub
  
    Case 97 To 122
  
  
  Exit Sub
  
    Case 8
  
  
  Exit Sub
  
    Case 46
  
  
  Exit Sub
  
    Case 64
  
  
  Exit Sub
  
    Case Else
  
  
  KeyAscii = 0 '输入无效
  
 End Select文本框的PRESSDOWN事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
IF KEYASCII <48 OR KEYASCI>57 THEN '通过按下的键码确定是否是数值,要添加小数点添加空格后部分
ELSE
'       IF KEYASCII <46 THEN
'        ELSE
'         KEYASCI =0
'         END IF
END IF






还有 一个MASKED EDIT控件,自己百度下

上一个：VB 缂栫▼闂 - 宸茶В鍐?- 鎼滄悳闂棶
下一个：VB编程入门

更多图片编程知识: