UC知道要是我想把一个无参函数写成公用的？
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:47:29
要是我想把一个无参函数写成公用的？
例如我现在要在很多text框中限制其输入的是数字，我想把这个限制条件作成公用的，怎么写啊。
我想把这个函数写成公用的
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub '输入数字是0~9就不退出
If KeyAscii = 46 Then Exit Sub '输入的是小数点
If KeyAscii = 8 Then Exit Sub '输入的是backspace删除
KeyAscii = 0
End Sub
例如我现在要在很多text框中限制其输入的是数字，我想把这个限制条件作成公用的，怎么写啊。
我想把这个函数写成公用的
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub '输入数字是0~9就不退出
If KeyAscii = 46 Then Exit Sub '输入的是小数点
If KeyAscii = 8 Then Exit Sub '输入的是backspace删除
KeyAscii = 0
End Sub
public function 函数名（输入的字符串 as string） As Boolean
'这个过程里检查你的字符 如果是数字返回 true 否则返回 false
End Function
在textbox的事件中调用就可以了
最好使用文本框数组。