不太理解,各种参数我还不会灵活使用。
module里是:
Public Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 And InStr(1, aaaa.Text1.Text, ".") > 0 Then '这里把我难住了。。。。。
KeyAscii = 0
End If
End Sub
aaaa窗体Text1_KeyPress要用,bbbb窗体Text1_KeyPress也要用,怎么办?
再问下窗体里是这样写吗?参数啥的对吗?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call Module1.Text1_KeyPress(KeyAscii)
End Sub