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

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


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


Ïà¹ØÎĵµ£º

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

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

ìÓë¶Ü:ÓÃVB´òÔìÇý¶¯¼¶¼üÅ̼ǼÆ÷,ÄܹýQQÃÜÂë¿ò(Ô´Âë)

¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
       ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
       Ð¼¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
       DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
       µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......

VB²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode

Private Function Utf8ToUni(B() As Byte) As String
   '²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
   Dim BU As Long
  
   On Error Resume Next
   BU = -1: BU = UBound(B)
   If BU = -1 Then Exit Function
   On Error GoTo 0
 &n ......

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ºÅ