ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃÇ°´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖظ´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇôÎÒÃÇÔõÑù²ÅÄÜÓÃVBÀ´Ð´Ò»¸ö³ÌÐò£¬´ïµ½Óë°´¼ü¾«ÁéÀàËƵŦÄÜÄØ£¿ÄǾÍÈÃÎÒÃÇÀ´ÏÈÁ˽âÒ»ÏÂwindowsÖÐÏìÓ¦¼üÅÌʼþµÄ»úÖÆ¡£
µ±Óû§°´Ï¼üÅÌÉϵÄÒ»¸ö¼üʱ£¬¼üÅÌÄÚµÄоƬ»á¼ì²âµ½Õâ¸ö¶¯×÷£¬²¢°ÑÕâ¸öÐźŴ«Ë͵½¼ÆËã»ú¡£ÈçºÎÇø±ðÊÇÄÄÒ»¸ö¼ü±»°´ÏÂÁËÄØ£¿¼üÅÌÉϵÄËùÓа´¼ü¶¼ÓÐÒ»¸ö±àÂ룬³Æ×÷¼üÅÌɨÃèÂë¡£µ±Äã°´ÏÂÒ»¸ö¼üʱ£¬Õâ¸ö¼üµÄɨÃèÂë¾Í±»´«¸øϵͳ¡£É¨ÃèÂëÊǸú¾ßÌåµÄÓ²¼þÏà¹ØµÄ£¬Í¬Ò»¸ö¼ü£¬ÔÚ²»Í¬¼üÅÌÉϵÄɨÃèÂëÓпÉÄܲ»Í¬¡£¼üÅÌ¿ØÖÆÆ÷¾ÍÊǽ«Õâ¸öɨÃèÂë´«¸ø¼ÆËã»ú£¬È»ºó½»¸ø¼üÅÌÇý¶¯³ÌÐò¡£¼üÅÌÇý¶¯³ÌÐò»áÍê³ÉÏà¹ØµÄ¹¤×÷£¬²¢°ÑÕâ¸öɨÃèÂëת»»Îª¼üÅÌÐéÄâÂ롣ʲôÊÇÐéÄâÂëÄØ£¿ÒòΪɨÃèÂëÓëÓ²¼þÏà¹Ø£¬²»¾ßÓÐͨÓÃÐÔ£¬ÎªÁËͳһ¼üÅÌÉÏËùÓмüµÄ±àÂ룬ÓÚÊǾÍÌá³öÁËÐéÄâÂë¸ÅÄî¡£ÎÞÂÛʲô¼üÅÌ£¬Í¬Ò»¸ö°´¼üµÄÐéÄâÂë×ÜÊÇÏàͬµÄ£¬ÕâÑù³ÌÐò¾Í¿ÉÒÔʶ±ðÁË¡£¼òµ¥µã˵£¬ÐéÄâÂë¾ÍÊÇÎÒÃǾ³£¿ÉÒÔ¿´µ½µÄÏñVK_A,VK_BÕâÑùµÄ³£Êý£¬±ÈÈç¼üAµÄÐéÄâÂëÊÇ65£¬Ð´³É16½øÖƾÍÊÇ&H41£¬×¢Ò⣬ÈËÃǾ³£ÓÃ16½øÖÆÀ´±íʾÐéÄâÂë¡£µ±¼üÅÌÇý¶¯³ÌÐò°ÑɨÃèÂëת»»ÎªÐéÄâÂëºó£¬»á°ÑÕâ¸ö¼üÅ̲Ù×÷µÄɨÃèÂëºÍÐéÄâÂ뻹ÓÐÆäËüÐÅÏ¢Ò»Æ𴫵ݸø²Ù×÷ϵͳ¡£È»ºó²Ù×÷ϵͳÔò»á°ÑÕâЩÐÅÏ¢·â×°ÔÚÒ»¸öÏûÏ¢ÖУ¬²¢°ÑÕâ¸ö¼üÅÌÏûÏ¢²åÈëµ½ÏûÏ¢Áжӡ£×îºó£¬ÒªÊDz»³öÒâÍâµÄ»°£¬Õâ¸ö¼üÅÌÏûÏ¢×îÖջᱻË͵½µ±Ç°µÄ»î¶¯´°¿ÚÄÇÀ»î¶¯´°¿ÚËùÔÚµÄÓ¦ÓóÌÐò½ÓÊÕµ½Õâ¸öÏûÏ¢ºó£¬¾ÍÖªµÀ¼üÅÌÉÏÄĸö¼ü±»°´Ï£¬Ò²¾Í¿ÉÒÔ¾ö¶¨¸Ã×÷³öʲôÏìÓ¦¸øÓû§ÁË¡£Õâ¸ö¹ý³Ì¿ÉÒÔ¼òµ¥µÄÈçϱíʾ£º
Óû§°´Ï°´¼ü-----¼üÅÌÇý¶¯³ÌÐò½«´Ëʼþ´«µÝ¸ø²Ù×÷ϵͳ-----²Ù×÷ϵͳ½«¼üÅÌʼþ²åÈëÏûÏ¢¶ÓÁÐ-----¼üÅÌÏûÏ¢±»·¢Ë͵½µ±Ç°»î¶¯´°¿Ú
Ã÷°×ÁËÕâ¸ö¹ý³Ì£¬ÎÒÃǾͿÉÒÔ±à³ÌʵÏÖÔÚÆäÖеÄij¸ö»·½ÚÀ´Ä£Äâ¼üÅ̲Ù×÷ÁË¡£ÔÚVBÖУ¬ÓжàÖÖ·½·¨¿ÉÒÔʵÏÖ¼üÅÌÄ£Ä⣬ÎÒÃǾͽéÉܼ¸ÖֱȽϵäÐ͵ġ£
1.¾Ö²¿¼¶Ä£Äâ
´ÓÉÏÃæµÄÁ÷³Ì¿ÉÒÔ¿´³ö£¬¼üÅÌʼþÊÇ×îÖÕ±»Ë͵½»î¶¯´°¿Ú£¬È»ºó²
Ïà¹ØÎĵµ£º
ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉÏ°æ±¾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄÜ°²×°MSDN¡£ ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......
VB³ÌÐòÆƽâ
VB ³ÌÐò¼ò½é
¡¡¡¡ÏÖÔÚ²»ÉÙ³ÌÐòÊÇÓà VB дµÄ£¬Äãͨ¹ý·´»ã±à»ò¸ú×Ùµ÷ÊÔʱºÜÈÝÒ×¼ø±ðij¸ö³ÌÐòÊÇ·ñΪ VB ³ÌÐò£¬VB µÄ EXE Îļþ²¢²»ÊÇÕæÕýµÄ±àÒë¿ÉÖ´ÐÐÎļþ£¬ËüÃÇÐèÆ䶯̬Á´½Ó¿â²ÅÄÜÕý³£ÔËÐУ¬¸÷°æ±¾µÄÁ´½Ó¿âÈçÏ£º
VB3 Á´½Ó¿âΪ vbrun300.dll £»
VB4 Á´½Ó¿âΪ vb40016.dll £» - 16 룬½ÏÉÙ¼û£»
VB4 ......
½ñÌìÔÚ¹«Ë¾·þÎñÆ÷ÉÏ¿´Ò»¸öÀϵôÑÀµÄasp³ÌÐò£¬·¢ÏÖ¾¹È»µ÷ÓÃÁË×Ô¶¨Òåcom×é¼þ£¬ÊÇvbдµÄ£¬·â×°ÁËÊý¾Ý¿âÁ¬½ÓÓë²Ù×÷£¬ÎĵµÉÏдÕâÑù×öÊÇΪʲôÓû§µ½·þÎñÆ÷Ò²¿´²»µ½Êý¾Ý¿âµÄÓû§ÃûÓëÃÜÂ룬Ҳ¶Ô°¡£¬Õâ¸öÊDzÆÎñµÄ·þÎñÆ÷£¬µ±È»²»ÄÜÈÃÎÒÃÇitËæ±ã¿´ÁË£¬ºÇºÇ£¡£¨itºöÓÆfinance£¬ÈÃfinanceÏàÐÅit¿´²»µ½Êý¾Ý¿âÓû§ÃûÓëÃÜÂ룬my god£©ÓÉÓÚ£¬ ......