Question

我用vb写一个程序，有主窗体和三个子窗体，三个子窗体里都有很多文本框，该怎样写代码可以让所有子窗体

我用vb写一个程序，有主窗体和三个子窗体，三个子窗体里都有很多文本框，该怎样写代码可以让所有子窗体的所有文本框都只能输入数字？我现在是每个文本框都在keypress事件中写代码，感觉重复太多了

Answer 1

建议你把每个窗体的所有文本框都弄成控件数组（如Text1(0)、Text1(1)、Text1(2)……），那么每个窗体只需一个事件过程即可：

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 46 And InStr(Text1(Index), ".")) = 0 Then Exit Sub
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

   

如果不是控件数组，那么就只能这样：

Function chkkey(t As String, k As Integer) As Integer
chkkey = k
If k = 46 And InStr(t, ".")) = 0 Then Exit Function
If k = 8 Then Exit Function
If k < 48 Or k > 57 Then chkkey = 0
End Function
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = chkkey(Text1.Text, KeyAscii)
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = chkkey(Text2.Text, KeyAscii)
End Sub
 
Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = chkkey(Text3.Text, KeyAscii)
End Sub
 
'...依此类推

 也可以把上述chkkey函数放到标准模块（Module）文件中，这样每个窗体就可以不放了。

Answer 2

1.你可以把代码写在一个过程里，然后在每个文本框的keypress事件中调用。
2.对原文本框进行改造，自己建一个可以进行只输入数字字符限制的文本框控件，那就行了啥