ÇóÖú£¬¹ØÓÚVBµÄ´®¿ÚͨÐÅ - VB / »ù´¡Àà
´ó¼ÒºÃ£¬ÎÒÓиöÄ£¿éͨ¹ý´®¿ÚºÍPC»úͨÐÅ£¬Óô®¿Úµ÷ÊÔÖúÊÖÿ´ÎÊý¾Ý½»»»¶¼ÐèÒª·¢ËÍÒ»´®16½øÖƵÄÃüÁÏëÓÃvb×ö¸ö½çÃæ¼õÉÙÿ´ÎÊäÈëµÄ¹¤×÷Á¿£¬¾ÍÊÇÏëÓü¸¸ö°´Å¥´úÌæÃ¿´ÎµÄÃüÁî³öÈ룬ÇëÎÊÔõô×ö£¬ÄÄλºÃÐÄÈËÄܰï°ïÎÒ£¡£¡£¡£¡ÎÒ¶ÔvbÒ»Çϲ»Í¨£¬ËÓгÉÊìµÄÀý×Ó¹©ÎҲο¼Ò²ÐС¡
ÒÔǰÓÃvb×ö¹ýÒ»¸ö²âÊÔÈí¼þ£¬Ö÷ÒªÓÃmscomm¿Ø¼þÓë´®¿Ú½øÐÐͨÐÅ£¬ºÜ¼òµ¥µÄ¡£ÔÚÄãµÄ´°¿Ú¼ÓÈëÒ»¸ömscomm¿Ø¼þ£¬È»ºó¶ÔËü½øÐгõʼ»¯£¨¸ù¾ÝÄã×Ô¼ºµÄÐèÇ󣩣¬Õâ¸öÍøÉϺܶàÏֳɵijÌÐò£¬¿ÉÒÔÈ¥ËÑһϡ£¿ÉÒÔʹÓÃÕâ¸ö¿Ø¼þµÄʼþÇý¶¯·½·¨ÓëÄãµÄÄ£¿éµÄ´®¿Ú½øÐÐͨÐÅ£¬¾ßÌå¿´ÄãÔõôÉè¼ÆÁË¡£Õâ·½ÃæµÄ½Ì²ÄÒ²ºÜ¶à£¬Ëæ±ãÕÒ±¾ÊéÈ¥¿´¿´°É¡£ÒýÓà ÒÔǰÓÃvb×ö¹ýÒ»¸ö²âÊÔÈí¼þ£¬Ö÷ÒªÓÃmscomm¿Ø¼þÓë´®¿Ú½øÐÐͨÐÅ£¬ºÜ¼òµ¥µÄ¡£ÔÚÄãµÄ´°¿Ú¼ÓÈëÒ»¸ömscomm¿Ø¼þ£¬È»ºó¶ÔËü½øÐгõʼ»¯£¨¸ù¾ÝÄã×Ô¼ºµÄÐèÇ󣩣¬Õâ¸öÍøÉϺܶàÏֳɵijÌÐò£¬¿ÉÒÔÈ¥ËÑһϡ£¿ÉÒÔʹÓÃÕâ¸ö¿Ø¼þµÄʼþÇý¶¯·½·¨ÓëÄãµÄÄ£¿éµÄ´®¿Ú½øÐÐͨÐÅ£¬¾ßÌå¿´ÄãÔõôÉè¼ÆÁË¡£Õâ·½ÃæµÄ½Ì²ÄÒ²ºÜ¶à£¬Ëæ±ãÕÒ±¾ÊéÈ¥¿´¿´°É¡£ ÎÒÔÚ´°¿ÚÖÐÌí¼ÓÒ»¸ö°´Å¥£¬µã»÷¾Í·¢ËÍÃüÁ±ÈÈç¡°EF010203¡±£¬Ó¦¸ÃÔõô±à³Ì°¡£¿ ¼ÓÒ»¸ö mscomm¿Ø¼þ, ³õʼ»¯´®¿Ú ·¢ËÍ´®¿Ú ½ÓÊÕʼþ ÔÚÍøÉÏÕÒһЩÀý×Ó,·Ç³£¶à,·Ç³£¼òµ¥ ÊÕÒæÀ²£¬Ì«°ôÁË¡£ ´®¿Ú¿ª·¢£¬2lµÄ×ÊÁϺÜÓÐÓÃà¸
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏ ±äÁ¿ÉùÃ÷ Dim dirName As String = "" ·½·¨ Public Sub UrlName( ......