- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
p.s. (65536 µLªk©ñ¦bVbMsgBoxSetForeground «á±¡A»yªk¿ù»~)
t8899 µoªí©ó 2013-8-27 06:14
65536 ©ñ¦b VbMsgBoxSetForeground «á±?
·íµM·|µo¥Í¿ù»~°Õ.
»¡©ú¤¤ªº¤º¤å¬O :
±`¼Æ È »¡©ú
====================================================
VbMsgBoxSetForeground 65536 «ü©w°T®§¤è¶ôµøµ¡§@¬°«e´ºµøµ¡¡C
¥¦ªº·N«ä¬O»¡ :
¦b Excel VBA ¤¤, ¤w¸g¦³©w¸q¤F VbMsgBoxSetForeground ³oÓ±`¼ÆªºÈ¬° 65536,
§A¦b MsgBox ¨ç¼Æªº buttons ¤Þ¼Æªº¦ì¸m¤W,
¥i¥H¨Ï¥Î VbMsgBoxSetForeground ³oÓ±`¼Æ ©Î¬O¥Î 65536 ³oÓÈ(¥ô¨ú¨ä¤¤¤§¤@),
¨Ó³]©w³o¦¸¨Ï¥Î MsgBox ¨ç¼Æ «ü©w¨ä °T®§¤è¶ôµøµ¡ §@¬°«e´ºµøµ¡.
§A¤]¥i¥H°Ñ¦Ò MsgBox ªº½d¨Ò±oª¾¨ä¨Ï¥Î¤è¦¡:
Style = vbYesNo + vbCritical + vbDefaultButton2 ' ©w¸q«ö¶s¡C
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
°Ñ·Ó½d¨Ò¥i±o¥X§A¥i¥H¨Ï¥Î :
MsgBox sStr, vbYesNo + VbMsgBoxSetForeground , "´£¥Ü°T®§"
©Î¬O
MsgBox sStr, 4 + 65536 , "´£¥Ü°T®§" (¥ª¦¡¤]µ¥¦P MsgBox sStr, 65540 , "´£¥Ü°T®§")
¤W¨â¦¡ªºµ²ªG¬O¬Û¦Pªº.
¤£¹L MsgBox ¨ç¼Æ¥i¥H¨Ï¥Îªº±`¼Æ¤£¤@©w´N¾A¥Î MsgBoxTest (¦b Windows API ¤¤¥¦¨ä¹êÀ³¸Ó¬O MessageBoxTimeoutA),
³on¬Ý¦b Windows API »P Excel VBA ¤¤,
MessageBoxTimeoutA ¨ç¼Æ¬O§_¦³¹ê°µ¥X¸Ó¤Þ¼Æ¬° VbMsgBoxSetForeground ȮɩÒÀ³¸Ó¥X²{ªº®ÄªG,
³Ì²³æªº¤èªk´N¬O®M¥Î¶iµ{¦¡¤¤,
µM«á¹ê»Ú¶]¶]¬Ý´Nª¾¹D¦³¨S¦³¦¹¥\¯à¤F. |
|