写出往文本框顺序键入”H4E3”后,显示在窗体上的内容。
Private Sub Text1_Change()
Print Text1.Text
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii = Asc("0") And KeyAscii <= Asc("9") Then Print Chr(KeyAscii) + Text1.Text End If End Sub 按键事件: 文本框输入H时候,不满足...