- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# av8d - Option Explicit
- 'KeyDown¡BKeyUp ¨Æ¥ó'µo¥Í¦b·í¨Ï¥ÎªÌ«ö¦í¨Ã©ñ¶}«öÁä®É¡C
- 'KeyDown µo¥Í©ó¨Ï¥ÎªÌ«ö¤U«ö«öÁä¡C
- 'KeyUp µo¥Í¦b·í¨Ï¥ÎªÌ©ñ¶}«öÁä®É¡C
- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- '---Shift As Integer : SHIFTÁä =1, CTRLÁä=2,ALT Áä=4 ----
- If KeyCode = 13 Then Me.CommandButton1.SetFocus
- End Sub
- Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- MsgBox "©ñ¶}«öÁä KeyCode = " & KeyCode & " ; Shift = " & Shift
- End Sub
- 'KeyPress ¨Æ¥ó¥i¯àµo¥Í¦b«ö¤U¥H¤Uªº«öÁä®É:
- '¥ô¦ó¥i¦C¦LªºÁä½L¦r¤¸¡C
- 'CTRL »P^¤å¦r¥ÀÁ䪺²Õ¦X¡C
- 'CTRL »P¯S®í¦r¤¸ªº²Õ¦X¡C
- 'BACKSPACE¡C
- 'ESC¡C
- 'KeyPress ¨Æ¥ó¤£·|µo¥Í¦b¥H¤U´XÓ±¡ªp¤¤:
- '«ö TAB Áä¡C «ö ENTER Áä¡C «ö¤@Ó¤è¦VÁä¡C
- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
- TextBox2 = Chr(KeyAscii) '½Ð¦bªí³æ¤W ¥[¤JTextBox2
- End Sub
½Æ»s¥N½X |
|