VB °æ (¾«»ªÇø)
·¢ÐÅÈË: bloom (©À©Á©Â©Ã©Ä©Æ©Ç¨), ÐÅÇø: VB
±ê Ìâ: GetKeyboardType(Ó²¼þÓëϵͳ)(תÔØ)
·¢ÐÅÕ¾: ¹þ¹¤´ó×϶¡Ïã (2000Äê09ÔÂ07ÈÕ18:38:03 ÐÇÆÚËÄ), תÐÅ
¡¾ ÒÔÏÂÎÄ×ÖתÔØ×Ô cnTemp ÌÖÂÛÇø ¡¿
¡¾ ÔÎÄÓÉ catchy Ëù·¢±í ¡¿
·¢ÐÅÈË: yucheng (ÎÞ»°¿É˵), ÐÅÇø: VisualBasic
·¢ÐÅÕ¾: BBS ˮľÇ廪վ (Wed Mar 29 23:47:20 2000) WWW-POST
GetKeyboardType
VBÉùÃ÷
Declare Function GetKeyboardType Lib "user32" Alias "GetKeyboardType" (ByVal
nTypeFlag As Long) As Long
˵Ã÷
Á˽âÓëÕýÔÚʹÓõļüÅÌÓйصÄÐÅÏ¢
·µ»ØÖµ
Long£¬Áã±íʾ³ö´í¡£·ñÔò·µ»ØÏÂÊöÖµÖ®Ò»
nTypeFlag=0 1¡ª¡ªPC»ò¼æÈݵÄ83¼ü¼üÅÌ£»2¡ª¡ªOlivetti102¼ü¼üÅÌ£»3¡ª¡ªAT»ò¼æÈÝ84¼ü
¼üÅÌ£»4¡ª¡ªÔöÇ¿ÐÍ£¨IBM£©101»ò102¼ü¼üÅÌ£»5¡ª¡ªNokia1050¼üÅÌ£»6¡ª¡ªNokia9140¼üÅÌ
£»7¡ª¡ªÈÕÎļüÅÌ
nTypeFlag=1 ÈκÎÖµ£¬Óɳ§É̾ö¶¨
nTypeFlag=2 1¡ª¡ª10¸ö¹¦Äܼü£¨¼´ F? ¼ü£©£»2¡ª¡ª12»ò18¸ö¹¦Äܼü£»3¡ª¡ª10¸ö¹¦Äܼü
£»4¡ª¡ª12¸ö¹¦Äܼü£»5¡ª¡ª10¸ö¹¦Äܼü£»6¡ª¡ª24¸ö¹¦Äܼü£»7¡ª¡ªÓɳ§É̾ö¶¨
²ÎÊý±í
²ÎÊý ÀàÐͼ°ËµÃ÷
nTypeFlag Long£¬¿ÉÉèΪÏÂÊöÖµÖ®Ò»
0¡ª¡ª·µ»Ø¼üÅÌÀàÐÍ
1¡ª¡ª·µ»Ø¼üÅÌ×ÓÀàÐÍ
2¡ª¡ª·µ»Ø¼üÅÌÉϵŦÄܼüÊýÁ¿
--
--
¡î À´Ô´:£®¹þ¹¤´ó×϶¡Ïã bbs.hit.edu.cn£®[FROM: casi.bbs@smth.org]
--
¡ù תÔØ:£®¹þ¹¤´ó×϶¡Ïã bbs.hit.edu.cn£®[FROM: 202.118.247.254]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
Ò³ÃæÖ´ÐÐʱ¼ä£º2.715ºÁÃë