vbÈçºÎµ÷ÓÃocx - VC/MFC / ATL/ActiveX/COM
ÓÃvc×öÁËÒ»¸öocx¿Ø¼þ£¬ÔÚvcºÍjsÀïÃæ²âÊÔ¶¼Ã»ÓÐÎÊÌâ
µ«Êǿͻ§ËµÔÚvbÏÂÃæ²âÊÔÓÐÎÊÌ⣬²»ÄÜÕýÈ·µÄ³õʼ»¯£¬
ÇëÎÊһϣ¬vbÔõôµ÷ÓÃocxÄØ£¿
ÎÒÒªÔÚvbÏÂÃæ²âÊÔһϣ¬Ð»Ð»¡£¡£¡£¡£¡£
up~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ð龪һ³¡°¡£¬¿Í»§ÖØÐÂ×¢²áÁËÒ»ÏÂocx£¬¾ÍºÃÓÃÁË£¬µ«ÊǾßÌåÎÊÌâÔÒòÉñ¹í²»Öª°¡¡£¡£¡£¡£
Ïà¹ØÎÊ´ð£º
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Îļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......