VB如何在text的keypress中调用模块中的函数?
现在已经在textbox的keypress中限制了只能输入一个小数点。如何在每个窗体的文本框都这样限制呢?若要添加函数那该如何调用呢?
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Text1.Text, ".") And KeyAscii = 46 Then
KeyAscii = 0
End If
End Sub
目前是想把这段代码写在模块当中,但是不知道每个文本框如何调用?新手。