VB ·µ»ØASCÂë ³ö´í
ÓÃAsc("")·µ»ØASCÂëΪ163µÄ×Ö·ûʱΪ0£¬ÇëÎÊÊÇʲôÔÒò³ö´íÄØ£¬ÓÐÆäËüº¯ÊýÄÜʵÏÖ·µ»ØASCÄÚÂëÂð
AscW ÓÃAscW()Ò²²»ÐÐ ÄÇÎҾͲ»ÖªµÀÁË,°ï¶¥ ÒýÓà ÓÃAscW()Ò²²»ÐÐ ±ê×¼ASCII±íÀïÓÐΪ163Âð,½¨Ò鲹ϰһÏÂASCII±í Hex(Asc("")) chr°É? ÒýÓà Hex(Asc("")) Õâ¸ö±àÂë²»ÊÇASCII±àÂëÊÇUniCode±àÂ룬ʹÓãºChrW(163) ascw(chrw(163)) Ö»ÓÐÓà ChrW() ºÍ AscW() ²ÅÄÜÕýÈ··µ»Ø½á¹û¡£ VB code: Public Sub Main() Dim strC$ strC = ChrW$(163) Debug.Print AscW(strC) End Sub ÒýÓà ֻÓÐÓà ChrW() ºÍ AscW() ²ÅÄÜÕýÈ··µ»Ø½á¹û¡£ VB codePublicSub Main()Dim strC$ strC= ChrW$(163) Debug.Print AscW(strC)End Sub up~~~ ͬÒâÂ¥É쵀 ChrB,AscB ChrW,AscW StrConv
Ïà¹ØÎÊ´ð£º
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ? °´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ ²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ. ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£ û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£ XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£ Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£ Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc) Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷ Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command] @= ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬ http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html Éæ¼°µ½Ëã·¨£¬goog ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......