vbÏîÄ¿»»ÁË·¾¶´ò²»¿ª£¬Ð»Ð»¡£ - VB / »ù´¡Àà
ÎÒµçÄÔÉϵÄvbÏîÄ¿£¬ÏÖÔڵķ¾¶ÊÇ£ºC:\abc\VB\Mobile.vbg
ÕâÊÇÊÇÕý³£µÄ£¬¾ÍÊÇÖ±½ÓË«»÷Mobile.vbgÊdzɹ¦´ò¿ªµÄ£¬Ò»Çж¼ÊÇÕý³£µÄ¡£
²»¹ý£¬µ±ÎÒ»»¸ö·¾¶£¬¸ÄΪÕâ¸öʱ£ºC:\def\VB\Mobile.vbg£¬ÔÙË«»÷Mobile.vbgʱ£¬¾Í³öÏÖÒÔϵĴíÎó£º
Path not found :'c:\abc\VB\clsCommonTables\frmManCOMCrConFat.frm' -- Continue Loading Project?
¶¼ÊDZ¨frmÕÒ²»µ½µÄ´íÎó£¬Ã»ÓÐÆäËüµÄ´íÎóÁË¡£
µ±ÎÒ°Ñdef¸Ä»Øabcʱ£¬ÓÖÒ»Çж¼Õý³£ÁË¡£
лл´ó¼Ò¡£ÎÒÏÖÔÚ¾ÍÊÇÒª¸Ä·¾¶µÄ¡£
Äã³ÌÐòµÄÎļþ¿Ï¶¨²»È«.
ÓüÇʱ¾´ò¿ªvbpÎļþ£¬Ìæ»»Ð޸ġ£
Íü¼Ç˵ÁË£¬ÎÒ֮ǰÊÇ×öjavaµÄ£¬´ÓÀ´Ã»×ö¹ýû¿´¹ývb£¬ÏÖÔÚÒª×öÁË¡£
Çë´ó¼ÒÏêϸµã½âÊÍ°¡£¬Ð»Ð»ÁË¡£Ò»²½Ò»²½µÄ½ÌÎÒÔõô×ö°¡¡£
»¹ÓУ¬Õâ¸öÏîÄ¿¿Ï¶¨ÊÇÈ«µÄ£¬ÊǺõġ£ÒòΪÔÚabcÕâ¸ö·¾¶Ï£¬ÊǺÜÕý³£µÄ¡£Ö»ÊÇ»»ÁË·¾¶ºó£¬²ÅÓÐÕÒ²»µ½frmµÄ´íÎó¡£Ð»Ð»´ó¼Ò¡£
ÄÜ·ñÏêϸµã˵£¬ÔõôÊÖ¹¤Ìí¼ÓfrmÂð£¿
Ê×ÏÈ£¬frmÊÇÕý³£µÄ£¬ÔÚÓ²ÅÌÉÏÊÇÓеġ£ÔÚabcÕâ¸ö·¾¶ÊÇ¿ÉÒÔÕý³£´ò¿ªµÄ¡£
µ±ÎÒ»»³ÉdefÕâ¸ö·¾¶ºó£¬¾ÍÕÒ²»µ½ÁË¡£
Õû¸öÏîÄ¿£¬Ê²Ã´¶¼Ã»±ä£¬¾ÍÊÇ·¾¶±»ÎÒ±äÁËһϡ£
ÎÒÏÖÔÚÊÇË«»÷Mobile.vgbÁË£¬È»ºó¾Í²»Í£µÄµ¯³ö˵ÕÒ²»µ½frmµÄ´íÎó£¬ÎÊÎÒÒª²»Òª¼ÌÐø£¬
ÎÒµã»÷yes£¬µÈÏîÄ¿¼ÓÔØÍêºó£¬ÔõôÌí¼ÓfrmÄØ£¿Ð»Ð»¡£
ÒÔǰû½Ó´¥¹ývb°¡£¬Ð»Ð»ÁË¡£
ÊÇÔÚȱÉÙµÄformÉÏ£¬ÓÒ¼ü£¬Ñ¡Ôñ"Add" -> "Add File" -> È»ºóÑ¡ÖÐûÕÒµ½µÄfrm£¬"open"Âð£¿
ÔÚÄãÄÜ´ò¿ªµÄ·¾¶ÏÂÆô
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìøתºó£¬ÔõôȡµÃÌøתºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......