¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk
- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk
¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk¡yܾe¡z
¦p¦ó¦bTextBox2¤¤Åã¥Ü¿é¤Jªk¡yª`µ¡z
¨C¦¸³£n«·s¤Á´«...vba¥i§_°µªº¨ì©O ???? |
|
|
|
|
|
|
- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
·PÁÂluhpro ¤Îg¤jª©¥Dªº¦^ÂÐ..Åý¤p§Ì¤j°ª²´¬É.. |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2013-9-4 23:11 ½s¿è
¦^´_ 1# sillykin
ºô¸ô¤W§ä¨ìªº¤èªk, §Q¥Î SendKeys -
¨Ï¥Î«e¥²¶·¥ý³]©w¦n¿é¤Jªkªº§Ö³t¤Á´«Áä :
ܾe Ctrl + Shift + 1
ª`µ Ctrl + Shift + 3 ¦p¥k¹Ï :
¦]¬° TextBox ¨S¦³Ãþ¦ü GotFocus ©Î¬O Activate ¤§Ãþªº¨Æ¥ó¨Ó¹ê§@è¶i¤J®É¤Á´«¿é¤Jªkªº°Ê§@,
³o¸Ì§Ú³z¹L¦UTextBox ªº MouseUp ¨Æ¥ó¨Ó¤Á´«¿é¤Jªk,
¤£¹L, ¦¹ªk¥u¯à¥Î©ó·Æ¹«ÂIÀ»ªº¤è¦¡¨Ó°µ¤Á´« TextBox ªº°Ê§@,
Y¬O¨Ï¥ÎªÌ¨Ï¥Î Tab Áä¨Ó¤Á´«ªº¸Ü´N¥u¯à¤Á´«¬O§_¬°¤¤¤å¿é¤Jª¬ºAÅo.- Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- 'SendKeys ("^+0") ' ¥i¤£¥Î¥[¦¹¦æ, ¦]¬°§Ú³Ìªì¬O³]©w¤Á´«^¼Æªº§Ö³tÁ䬰 Ctrl + Shift + 0 , ¦Ó³oÓ¤w¥i¥Ñ TextBox1.IMEMode = fmIMEModeOff ¨Ó¹ê²{¤F.
- End Sub
- Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- SendKeys ("^+1")
- End Sub
- Private Sub TextBox3_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- SendKeys ("^+3")
- End Sub
- Private Sub UserForm_Initialize()
- TextBox1.IMEMode = fmIMEModeOff ' ^¼Æ
- TextBox2.IMEMode = fmIMEModeOn ' ܾe
- TextBox3.IMEMode = fmIMEModeOn ' ª`µ
- End Sub
½Æ»s¥N½X
¦p¦ó¦bTextBox1¤¤Åã¥Ü¿é¤Jªk-a.zip (9.66 KB)
|
-
1
µû¤À¤H¼Æ
-
|
|
|
|
|
|
- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
|
|
|
|
|
|