Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB ʹÓÃCÓïÑÔEscapeµÄ·½·¨

ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
 "ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) & ChrW(&H56FD) & ChrW(&H4E00) & ChrW(&H5B9A) & ChrW(&H5F3A)
ËùÒÔÎÒдÁËÒ»Ìõ¶Ì¶ÌµÄfunction:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Public Function EscToStr(ByVal c As String) As String
        Dim tmp, str1, str2, str3, str4 As String
        Dim i, outend1, outend2 As Integer
        i = 1
        outend1 = 1
        Do While outend1 <> 0
            str1 = c
            outend1 = InStr(i, str1, "\x")
            i = outend1 + 1
            outend2 = InStr(i, str1, "\x")
            If outend2 = 0 Then
                outend2 = Len(str1) + 1
            End If
            str2 = Mid(str1, outend1 + 2, outend2 - outend1 - 2)
            str3 = "&H" & str2
            str4 = ChrW(str3)
            tmp = tmp &


Ïà¹ØÎĵµ£º

CÑÕÉ«±ÈÕÕ±í


·½Ê½ ·ûºÅ³£Á¿ ÏÔʾÁÐ×ÐÐÊýºÍÑÕÉ«
0 BW40 40×25 ºÚ°×ÏÔʾ
1 C40 40×25 ²ÊÉ«ÏÔʾ
2 BW80 80×25 ºÚ°×ÏÔʾ
3 C80 80×25 ²ÊÉ«ÏÔʾ
7 MONO 80×25 µ¥É«ÏÔʾ
-1 LASTMODE ÉÏÒ»´ÎµÄÏÔʾ·½Ê½
Turbo C Ò²¿ÉÒÔÈÃÓû§¸ù¾Ý×Ô¼ºµÄÐèÒªÖØÐÂÉ趨ÏÔʾ´°¿Ú£¬Ò²¾ÍÊÇ˵£¬Í¨¹ýʹÓô°¿ÚÉè
Öú¯Êýwi ......

C ÑÕÉ«±ÈÕÕ±í


---------------------------------------------------
Ãû          µÈ¼ÛÖµ           º¬ Òå
BLACK             0           ºÚ
BLUE               1     ......

ÉîÈëÈÏʶTurbo C±àÒëÆ÷[ת]

1 ±àÒëÆ÷ ÓÐË­ÕæÕýµÄÀí½â¹ýÒ»¸ö±àÒëÆ÷ÄØ£¿Ðí¶àÈËÈÏΪTCºÜ¼òµ¥ºÜÂäºó£¬µ«ÊǼ´±ãÊÇÕâÑù¼òµ¥µÄ¹¤¾ß£¬µ½µ×Óм¸¸öÈËÕæÕýµÄÉîÈëÀí½âÁËÄØ£¿Ò»¸ö¼òµ¥µÄ±àÒëÆ÷¶¼²»ÄÜÀí½â£¬ÈçºÎÄܳÉΪ¸ßÊÖ£¬ÈçºÎÄÜÉîÈëµÄʹÓøü¼Ó¸ß¼¶µÄ¹¤¾ßÄØ£¿²»ÒªÒÔΪ×Ô¼ºÊ¹ÓõÄÊÇVC¾ÍºÜÁ˲»Æð£¬ÒòΪʹÓÃÕâÑùɵ¹Ï»¯µÄ¹¤¾ßÖ»ÄÜÈÃÄã¿´²»µ½ÊÂÎïµÄ±¾ÖÊ¡£½ÓÏÂÀ´ÎÒÃǾÍÀ´ ......

ʹÓÃVMware¹¹½¨¿ì²Éµ÷ÊÔ»·¾³(C/S½á¹¹)

²Ù×÷²½Ö裺
1.ÎïÀí»ú°²×°VMWare£¬ÔÚÐéÄâ»úÖа²×°Windows XP Professional + SP2
2.VM->Install VMware Tools...
3.ÔÚVMwareÖ÷½çÃæË«»÷Ethernet£¬²¢Ñ¡¶¨Host-onlyÑ¡Ïî
4.ÔÚÎïÀí»úÍøÂçÁ¬½ÓÖУ¬ÉèÖÃVMware Network Adapter VMnet1µÄIPµØÖ·Îª£º130.0.0.50£¬×ÓÍøÑÚÂ룺255.255.0.0£¬ÆäÓàΪ¿Õ£¬×÷Ϊ²Ù×÷վʹÓá£Í¬Ê±½ûÓÃVM ......

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â

VB´´½¨ACCESSÊý¾Ý¿âÈ«½â ¶¯Ì¬´´½¨Êý¾Ý¿â¡¢´´½¨±í£¬´´½¨¼Ç¼ ADO¡¢ADOX2009Äê04ÔÂ20ÈÕ ÐÇÆÚÒ» 10:17ÕªÒª£º ±¾ÎIJûÊöÁËÔÚVB³ÌÐòÖÐÀûÓÃADO¶ÔÏó¶¯Ì¬´´½¨Êý¾Ý¿âºÍÊý¾Ý±íµÄ·½·¨£¬ÕâЩ·½·¨ÔÚ¿ª·¢VBÊý¾Ý¿âÓ¦ÓóÌÐòÖкÜÓÐʵÓüÛÖµ£¬Ëü¿ÉÒÔÌá¸ßÊý¾Ý¿â³ÌÐòÁé»îÐÔ¡£
¡¡¡¡¹Ø¼ü´Ê£ºÊý¾Ý¿â¡¢Êý¾Ý±í¡¢ADO¡¢ADOX
¡¡¡¡1: ÎÊÌâµÄÌá³ö
¡¡¡¡Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ