ÎÒÏëÓÃvb×öÒ»¸ö³¤Ê±¼ä²É¼¯Êý¾ÝµÄ³ÌÐò£¬²É¼¯¼ä¸ô×îС100ms£¬Ôõô²ÅÄÜ×öµ½Ê±¼äÉϵľ«È·ÄØ£¿
¸Õ¿ªÊ¼°Ñ¼ÆʱÆ÷¼ä¸ôÉèΪ10ms£¬È»ºóÓÃGetTickCount¼ÆË㣬µ½´ïʱ¼ä¾Í½øÐвɼ¯£¬²É¼¯¼ä¸ôΪ1SµÄʱºòÒÀÈ»ÓÐÎó²î£¬²¢ÇÒGetTickCountµ½49.7ÌìµÄʱºò¾ÍÇåÁãÁË£¬µ½Ê±ºò¿Ï¶¨»áÔì³Éʱ¼ä¼ÆËãÉϵĻìÂÒ¡£
ÏÖÔÚÓÃQueryPerformanceCou ......
ÓÐVBµ÷Óö¯Ì¬Á¬½Ó¿âµÄÀý×ÓÂð£¿
ÔõôûÈ˻شð£¿
ÏÈÉùÃ÷º¯Êý,ÔÙµ÷ÓÃ.
[Private|Public] Declare [Sub|Function] [º¯ÊýÃû|¹ý³ÌÃû] Lib "ËùÔÚ¿âÃû³Æ" ( _
[²ÎÊý]) [As ·µ»ØÖµÀàÐÍ]
Àý×Ó:
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds ......
ÈçÌâ
m_CardIDTemp.CARDTYPE(5)ֵΪ 161
m_CardIDTemp.CARDTYPE(4)ֵΪ 87
m_CardIDTemp.CARDTYPE(3)ֵΪ 209
m_CardIDTemp.CARDTYPE(2)ֵΪ 46
m_CardID.CardID = CLng(m_CardIDTemp.CARDTYPE(5)) * &H1000000 + CLng(m_CardIDTemp.CARDTYPE(4)) * &H10000 + CLng(m_CardIDTemp.CARDTYPE(3)) * ......
rnd µÄ½á¹ûÊÇ Çø¼ä[ 0£¬1£© £¬¿ÉÒÔµÈÓÚ0£¬ ¶ø²»»áµÈÓÚ1£¬ ¶Ôô£¿£¿
ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐ
Rnd º¯Êý·µ»ØСÓÚ 1 µ«´óÓÚ»òµÈÓÚ 0 µÄÖµ
ÒªµÈÓÚ0¾ÍÈ¡Õû¡£
ÒýÓÃ
rnd µÄ½á¹ûÊÇ Çø¼ä[ 0£¬1£© £¬¿ÉÒÔµÈÓÚ0£¬ ¶ø²»»áµÈÓÚ1£¬ ¶Ôô£¿£¿
ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐ
[0,1)ÕýÈ·!
......
ÈçºÎ»ñÈ¡»î¶¯´°¿ÚµÄnameÊôÐÔ£¬¶ø²»ÊDZêÌâÃû³Æ¡£
ʲô´°¿Ú?Äã×Ô¼ºµÄ»¹ÊDZðÈ˵Ä?ÊÇMDI×Ó´°ÌåµÄ?
VB code:
Private Sub Command1_Click()
Debug.Print Command1.Name
End Sub
ÎÒÏëͨ¹ýÊó±êÔÚÆÁÄ»ÉÏÒƶ¯£¬¶øÔÚ×ÔÖƳÌÐòµÄÎı¾¿òÖÐÏÔʾÊó±êËùÔÚµã¶ÔÓ¦´°¿ÚµÄnameÊôÐÔÖµ¡£
±ðÈ˱àд³ÌÐò½ÐʲôÃû×Ö±àÒëºó¾Í²»ÖØÒªÁ ......
Èç¹ûÊÇÏÖÔÚÎÒÓÐA¡¢BÁ½Ì¨´òÓ¡»ú£¬AÊǵ±Ç°ÏµÍ³Ä¬ÈÏʹÓõĴòÓ¡»ú£¨HP LaserJet 5000 Series PCL£©£¬ÎÒÏÖÔÚ³ÌÐòÖÐÓиö±í´òӡʱÏëʹÓÃB»ú£¨hp LaserJet 1010£©£¬»¹²»ÄܸıäϵͳµÄĬÈÏÉ趨£¬¸ÃÈçºÎ´¦Àí
ÎÒÔÚ´òÓ¡±í¸ñʱ ÓÃPrinter.DeviceName = "hp LaserJet 1010"ʱÔËÐÐÕý³£ µ«ÊDZàÒëʱ±¨´í£¨´íÎóµÄ²ÎÊýºÅ»òÎÞЧ ......