vbÒì²½ÎÊÌâ - VB / »ù´¡Àà
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄʵÏÖ£¬Ï£Íû¸ßÊÖ¸ø³öÏà¹Ø´úÂ룡
ÒýÓà ²»ÐС£Òì²½±ØÐëÔÚ±»µ÷Ó÷½ÊµÏÖ¡£ ¿ÉÒÔ²ÉÓöàÏ̷߳½Ê½——½«Íⲿµ÷Óò¿·ÖÓà ActiveX EXE ·â×°ÆðÀ´¡£ ÓÉÖ÷½çÃæµ÷Óà ActiveX EXE ÂíÉÏ·µ»Ø£» ActiveX EXE ÉÔ×÷ÑÓʱºóµ÷ÓÃÍⲿ dll£¬ÊÕµ½·µ»ØÊý¾ÝºóÔÙ´«Ë͸øÖ÷½çÃæ¡£ ²Î¿¼ http://topic.csdn.net/u/20090227/14/55bf85db-2c84-4c36-9a32-82420bc¡¡ ¸Ðл»Ø¸´£¬ÎÒ¿´¿´ºó¸øÄã»Ø¸´£¡ ¸Ð¾õ»¹ÊDz»Ôõô¶®¡£ ¸Ð¾õÓÐЩÀ§ÄÑ£¬¶àÏ߳̿϶¨²»¿ÉÈ¡¡£ ºÜÏëÖªµÀÔõôÒì²½ Ò²¾ÍÊÇͬʱִÐÐ2¸öº¯Êý ½«ÐèÒªÒì²½Íê³ÉµÄ¹¦Äܵ¥¶Àд³ÉÒ»¸ö¹¤³Ì²¢Éú³Éexe Ö÷³ÌÐò½«Òì²½ÈÎÎñÓÃshellÆô¶¯£¬²¢ÓÃÃüÁîÐвÎÊý´«µÝÈë²Î£¬¸Ã½ø³ÌµÃµ½½á¹ûºó½«Æä·ÅÔÚÁÙʱÎļþÀïÃæ¹©Æô¶¯ËüµÄÖ÷³ÌÐò¶ÁÈ¡¡£Ö÷³ÌÐòÈç¹û·¢ÏÖÒì²½ÈÎÎñ³¬Ê±£¬¿ÉÓÃÀàËÆshell("taskkill ½ø³ÌPID")µÄ·½·¨Ç¿ÖƽáÊøËü¡£ ²Î¿¼¡¶Unix±à³ÌÒÕÊõ¡·
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1 text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£© µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦ ²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ· ¶¥Ï¶¥Ï ÒýÓà BeforeNavigate2 ºÃÏñûÓÐÕâ¸ö°É vb6.0 BeforeNavigate2 Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£ ......