VB °æ (¾«»ªÇø)
·¢ÐÅÈË: bloom (©À©Á©Â©Ã©Ä©Æ©Ç¨), ÐÅÇø: VB
±ê Ìâ: CreateIC(É豸³¡¾°)(תÔØ)
·¢ÐÅÕ¾: ¹þ¹¤´ó×϶¡Ïã (2000Äê09ÔÂ07ÈÕ18:35:45 ÐÇÆÚËÄ), תÐÅ
¡¾ ÒÔÏÂÎÄ×ÖתÔØ×Ô cnTemp ÌÖÂÛÇø ¡¿
¡¾ ÔÎÄÓÉ catchy Ëù·¢±í ¡¿
·¢ÐÅÈË: yucheng (ÎÞ»°¿É˵), ÐÅÇø: VisualBasic
·¢ÐÅÕ¾: BBS ˮľÇ廪վ (Sun Apr 2 23:51:47 2000) WWW-POST
CreateIC
VBÉùÃ÷
Declare Function CreateIC Lib "gdi32" Alias "CreateICA" (ByVal lpDriverName
As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData
As DEVMODE) As Long
˵Ã÷
ΪרÓÃÉ豸´´½¨Ò»¸öÐÅÏ¢³¡¾°¡£ÐÅÏ¢³¡¾°¿ÉÓÃÀ´¿ìËÙ»ñȡijÉ豸µÄÐÅÏ¢¶øÎÞÐë´´½¨É豸³¡
¾°ÕâÑùµÄϵͳ¿ªÏú¡£Ëü¿É×÷Ϊ²ÎÊý´«µÝ¸øGetDeviceCapsÒ»ÀàµÄÐÅÏ¢º¯ÊýÒÔÌæ´úÉ豸³¡¾°
²ÎÊý
·µ»ØÖµ
Long£¬Ö´Ðгɹ¦ÎªÐÅÏ¢³¡¾°¾ä±ú£¬Ê§°ÜÔòΪÁã
²ÎÊý±í
²ÎÊý ÀàÐͼ°ËµÃ÷
lpDriverName String£¬ÓÃvbNullString´«µÝnullÖµ¸ø¸Ã²ÎÊý£¬³ý·Ç£º1¡¢ÓÃDISPLAY£¬ÊÇ
»ñÈ¡Õû¸öÆÁÄ»µÄÉ豸³¡¾°£»2¡¢ÓÃWINSPOOL£¬ÔòÊÇ·ÃÎÊ´òÓ¡Çý¶¯
lpDeviceName String£¬ËùÓÃרÃÅÉ豸µÄÃû³Æ¡£¸ÃÃûÓÉ´òÓ¡¹ÜÀíÆ÷·ÖÅäÏÔʾ
lpOutput String£¬ÓÃvbNullString´«µÝnullÖµ¸ø¸Ã²ÎÊý
lpInitData DEVMODE£¬Õâ¸ö½á¹¹±£´æ³õʼֵ
×¢½â
Long£¬²»ÓÃʱһ¶¨ÒªÓÃDeleteDCº¯Êýɾ³ýÉ豸³¡¾°¡£½øÒ»²½µÄ˵Ã÷²Î¿¼CreateDCº¯Êý
ʾÀý£ºÎªÒ»¸öÃûΪ¡°Color Stylus¡±µÄ´òÓ¡»úÈ¡»ØÐÅÏ¢³¡¾°
dc& = CreateICBynum("WINSPOOL", "Color Stylus", vbNullString,0)
--
--
¡î À´Ô´:£®¹þ¹¤´ó×϶¡Ïã 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.257ºÁÃë