ChangeãKeyPressãKeyDownåKeyUpï¼å¸¸ç¨çæ¯å两个ï¼å两个ç¨çç¸å¯¹è¾å°ã触åï¼å³æ§è¡ä»£ç ï¼ç顺åºä¸ºï¼KeyDownãKeyPressãChangeãKeyUpã
KeyPressï¼å½æé®æ¶è§¦åï¼å¸¸ç¨äºéå¶/ä¿®æ¹è¾å
¥çå
容ï¼å¦ï¼
1ãä»
éäºè¾å
¥æ°åï¼
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
2ã转æ¢ä¸ºå¤§ååæ¯ï¼
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 122 Then KeyAscii = KeyAscii - 32
End Sub
Changeï¼å½å
容æ¹åæ¶è§¦åã
Private Sub Text1_Change()
ç¨æ³è¾å¤ï¼æ¯å¦ï¼
ä½ å¨å»é¢äº¤è´¹åä»·æ¶ä¼åç°ï¼å½åä»·åè¾å
¥ä»£ç æ¶ï¼ä¼åºç°ä¸æ¹è¯åå称ï¼å½ä»£ç ååæ¶ï¼è¯åå称ä¼è·çååï¼ç¨çå°±æ¯Change
www.jdjdzj.com äºä»¶ï¼ä¹å¯è½æ¯KeyPressäºä»¶æ两è
çç»åï¼å½æ°æ®åºä¸è®°å½éå¾å¤§æ¶ï¼è¿ç§æ¹æ³ä¸å¯åï¼ã
å¨Form1çªå£ä¸æä½æ¶ï¼ç»Form2çªå£çText1èµå¼ï¼æ¤æ¶å°è§¦åFrom2çªå£çText1_Changeã
End Sub