vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó¦¸ÃËõ·Å
·fixed dialog ´øÓй̶¨±ß¿òµÄ´°Ìå¿ÉÒÔ£¨²¢Ó¦¸Ã£©ÓµÓÐÒ»¸ö±êÌâÀ¸£¬²¢ÇÒ¿ÉÒÔÓÐÒ»¸ö¿Ø¼þ²Ëµ¥¿ò
·none ûÓб߿òºÍ±êÌâÀ¸£¨Ê¹ÓõÄÇé¿ö¼«ÉÙ£©
·fixed single ¿ÉÒÔ×îС»¯ºÍ×î´ó»¯
·sizable ÓÃÓÚËõ·Å´°ÌåÖеÄÄÚÈÝ£¨Õâ¸ö´°ÌåʹÓõÄʱºòÒªÌØ±ð×¢Òâ×î´ó»¯Ê±ºòµÄºÜ´óµÄ»ÒÉ«ÇøÓòÎÊÌ⣩
·¹Ì¶¨¹¤¾ß´°¿ÚºÍ¿ÉËõ·Å¹¤¾ß´°¿Ú£¨²»»á¾³£Ê¹Ó㩱êÌâÀ¸ºÍ±êÌâÀ¸µÄÎı¾±ÈÆÕͨµÄ´°¿Ú¸üϸ
·Ê¹¿Ø¼þ¾ß±¸±ê×¼Íâ¹Û
·Ê¹Îı¾¿òºÍÆäËû“µ¥Ðпؼþ”µÄ¸ß¶ÈÓë±ê×¼×éºÏ¿òÏàͬ
·Ñ¡¶¨Ò»¸ö×éºÏ¿ò£¬È»ºóÀ©´óÑ¡Ôñ·¶Î§ÒÔ±ã°üÀ¨ËùÓÐÎı¾¿ò
·²»ÒªÏòÓû§Òþ²Ø°´Å¥£¬¶øÓ¦¸ÃÈ¡ÏûÆä¼¤»î״̬£¬±íʾÕâʱÕâЩ°´Å¥²»ÄÜʹÓÃ
·Ôڹ涨µÄÇé¿öÏÂʹÓÃ×î¼Ñ½çÃæ×é¼þ
·Ìṩ±ãÓÚÀí½âºÍʹÓõIJ˵¥
·¾¡¿ÉÄÜʹÓÃϵͳÑÕÉ«
Ïà¹ØÎĵµ£º
½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
Asc º¯Êý
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 &ndas ......