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

ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.


ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾ­Ã»ÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
      ¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃÇ°´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖظ´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇôÎÒÃÇÔõÑù²ÅÄÜÓÃVBÀ´Ð´Ò»¸ö³ÌÐò£¬´ïµ½Óë°´¼ü¾«ÁéÀàËƵŦÄÜÄØ£¿ÄǾÍÈÃÎÒÃÇÀ´ÏÈÁ˽âÒ»ÏÂwindowsÖÐÏìÓ¦¼üÅÌʼþµÄ»úÖÆ¡£
    µ±Óû§°´Ï¼üÅÌÉϵÄÒ»¸ö¼üʱ£¬¼üÅÌÄÚµÄоƬ»á¼ì²âµ½Õâ¸ö¶¯×÷£¬²¢°ÑÕâ¸öÐźŴ«Ë͵½¼ÆËã»ú¡£ÈçºÎÇø±ðÊÇÄÄÒ»¸ö¼ü±»°´ÏÂÁËÄØ£¿¼üÅÌÉϵÄËùÓа´¼ü¶¼ÓÐÒ»¸ö±àÂ룬³Æ×÷¼üÅÌɨÃèÂë¡£µ±Äã°´ÏÂÒ»¸ö¼üʱ£¬Õâ¸ö¼üµÄɨÃèÂë¾Í±»´«¸øϵͳ¡£É¨ÃèÂëÊǸú¾ßÌåµÄÓ²¼þÏà¹ØµÄ£¬Í¬Ò»¸ö¼ü£¬ÔÚ²»Í¬¼üÅÌÉϵÄɨÃèÂëÓпÉÄܲ»Í¬¡£¼üÅÌ¿ØÖÆÆ÷¾ÍÊǽ«Õâ¸öɨÃèÂë´«¸ø¼ÆËã»ú£¬È»ºó½»¸ø¼üÅÌÇý¶¯³ÌÐò¡£¼üÅÌÇý¶¯³ÌÐò»áÍê³ÉÏà¹ØµÄ¹¤×÷£¬²¢°ÑÕâ¸öɨÃèÂëת»»Îª¼üÅÌÐéÄâÂ롣ʲôÊÇÐéÄâÂëÄØ£¿ÒòΪɨÃèÂëÓëÓ²¼þÏà¹Ø£¬²»¾ßÓÐͨÓÃÐÔ£¬ÎªÁËͳһ¼üÅÌÉÏËùÓмüµÄ±àÂ룬ÓÚÊǾÍÌá³öÁËÐéÄâÂë¸ÅÄî¡£ÎÞÂÛʲô¼üÅÌ£¬Í¬Ò»¸ö°´¼üµÄÐéÄâÂë×ÜÊÇÏàͬµÄ£¬ÕâÑù³ÌÐò¾Í¿ÉÒÔʶ±ðÁË¡£¼òµ¥µã˵£¬ÐéÄâÂë¾ÍÊÇÎÒÃǾ­³£¿ÉÒÔ¿´µ½µÄÏñVK_A,VK_BÕâÑùµÄ³£Êý£¬±ÈÈç¼üAµÄÐéÄâÂëÊÇ65£¬Ð´³É16½øÖƾÍÊÇ&H41£¬×¢Ò⣬ÈËÃǾ­³£ÓÃ16½øÖÆÀ´±íʾÐéÄâÂë¡£µ±¼üÅÌÇý¶¯³ÌÐò°ÑɨÃèÂëת»»ÎªÐéÄâÂëºó£¬»á°ÑÕâ¸ö¼üÅ̲Ù×÷µÄɨÃèÂëºÍÐéÄâÂ뻹ÓÐÆäËüÐÅÏ¢Ò»Æ𴫵ݸø²Ù×÷ϵͳ¡£È»ºó²Ù×÷ϵͳÔò»á°ÑÕâЩÐÅÏ¢·â×°ÔÚÒ»¸öÏûÏ¢ÖУ¬²¢°ÑÕâ¸ö¼üÅÌÏûÏ¢²åÈëµ½ÏûÏ¢Áжӡ£×îºó£¬ÒªÊDz»³öÒâÍâµÄ»°£¬Õâ¸ö¼üÅÌÏûÏ¢×îÖջᱻË͵½µ±Ç°µÄ»î¶¯´°¿ÚÄÇÀ»î¶¯´°¿ÚËùÔÚµÄÓ¦ÓóÌÐò½ÓÊÕµ½Õâ¸öÏûÏ¢ºó£¬¾ÍÖªµÀ¼üÅÌÉÏÄĸö¼ü±»°´Ï£¬Ò²¾Í¿ÉÒÔ¾ö¶¨¸Ã×÷³öʲôÏìÓ¦¸øÓû§ÁË¡£Õâ¸ö¹ý³Ì¿ÉÒÔ¼òµ¥µÄÈçϱíʾ£º
Óû§°´Ï°´¼ü-----¼üÅÌÇý¶¯³ÌÐò½«´Ëʼþ´«µÝ¸ø²Ù×÷ϵͳ-----²Ù×÷ϵͳ½«¼üÅÌʼþ²åÈëÏûÏ¢¶ÓÁÐ-----¼üÅÌÏûÏ¢±»·¢Ë͵½µ±Ç°»î¶¯´°¿Ú
Ã÷°×ÁËÕâ¸ö¹ý³Ì£¬ÎÒÃǾͿÉÒÔ±à³ÌʵÏÖÔÚÆäÖеÄij¸ö»·½ÚÀ´Ä£Äâ¼üÅ̲Ù×÷ÁË¡£ÔÚVBÖУ¬ÓжàÖÖ·½·¨¿ÉÒÔʵÏÖ¼üÅÌÄ£Ä⣬ÎÒÃǾͽéÉܼ¸ÖֱȽϵäÐ͵ġ£
1.¾Ö²¿¼¶Ä£Äâ
     ´ÓÉ


Ïà¹ØÎĵµ£º

[TestComplete ϵÁÐ]VB¼ì²é±àÂëÀàÐÍ

Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) Ç°Á½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......

º§ÈËÌýÎÅ,VBÓöµ½ÕâÏÖÏó,´ó¼ÒСÐÄÍÛ~

YXOnlineÒѾ­½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾ­ÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......

ASP VB.NET ÏÂÔØ·þÎñÆ÷Îļþµ½¿Í»§¶Ë


      Try
            Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
            Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
     ......

VB 5·1µÚÈýÌì

1¡¢´óµÀÖÁ¼ò
 
Ã×ÀÏʦÏȳÊÏÖÁËÒ»¸öº¯ÊýµÄͼÏñ£¬È»ºóÎÊÎÊ´ó¼ÒÏëµ½ÁËʲô¡£
¿´µ½ÕâÕÅͼ£¬ÎÒÏÈ·¢ÏÖÕâÊÇÒ»¸öÖÜÆÚº¯Êý£¬ÔÙÍùÉîÁ˾͸оõ×Ô¼ºÓ¦¸Ã²»»áÁË£¬¼ÄÏ£ÍûÓÚÊéÐŵļ¸¸öͬѧ£¬¸Ð¾õÓ¦¸ÃÊǸßÊýÀïµÄ¶«Î÷¡£µ«ÊÂʵ֤Ã÷ÊdzõÖеÄ֪ʶ£º
ËûÊÇÒÔÏÂÈý¸öº¯ÊýµÄ¸´ºÏº¯Êý£º
y=sin(x)+sin(2x)+sin(3x)
 
 
 
& ......

VB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó

±¾ÎÄÒý×Ô¡£¸Ðлԭ´´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
 
    VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËƺõÊ× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ