窗體與WebBrowse交互（從todaynew學(xué)來的）

zhuyiwen · 發(fā)表于 2012-8-27 10:57:18

先看代碼：

Option Compare Database
Option Explicit
Private Sub Command1_Click()
WebBrowser0.Document.parentWindow.test "called from Access Form"
End Sub
Private Sub Form_Load()
WebBrowser0.Navigate "about:blank"
DoEvents
Do While WebBrowser0.Busy
DoEvents
Loop
WebBrowser0.Document.Write _
"<html><head><script>" & vbCr & _
"var accForm; " & vbCr & _
"function test(message) { alert(message); }" & vbCr & _
"</script></head><body><button " & vbCr & _
"onclick=""accForm.test('called from script code')"">" & vbCr & _
"call client code from script code</button>" & vbCr & _
"</body></html>"
Set WebBrowser0.Document.parentWindow.accForm = Me
End Sub
Public Sub test(ByVal message As String)
MsgBox message
End Sub

復(fù)制代碼

新建一個(gè)窗體，在窗體上放一個(gè)Microsoft Web控件和一個(gè)命令按鈕，分別命名為 WebBrowse0 和 Command1，在窗體的 VBA 模塊中輸入上述代碼。運(yùn)行窗體，得到如下效果：
當(dāng)點(diǎn)擊 Command1 時(shí)：

當(dāng)點(diǎn)擊WebBrowse控件中的按鈕時(shí)：

意思是點(diǎn)擊Access的按鈕執(zhí)行頁面的javascript函數(shù)，而點(diǎn)擊頁面中的按鈕則執(zhí)行Access窗體中的方法。

更好的示例： （2012-08-28 添加）
Todaynew：WebBrowser控件與數(shù)據(jù)庫交互示例

zhuyiwen · 發(fā)表于 2012-8-27 10:59:32

很有意思，我們可以通過 WebBrowse.Document.parentWindow這個(gè)對象來實(shí)現(xiàn)交互。

有了這個(gè)，再實(shí)現(xiàn) 歌逸新平臺：MS Access 和 JQuery 打造最炫界面
http://ctxi.cn/forum.p ... 088&fromuid=625

就應(yīng)該不是很困難了。

t小寶 · 發(fā)表于 2012-8-27 11:28:36

Access的Web化浪潮來了...

gnoy · 發(fā)表于 2012-8-27 11:39:20

不錯(cuò)，不用說從誰那里學(xué)來的，代碼我看得很熟悉，天下文章都是抄來的，哈哈。。。

對于帶超鏈接的還有一個(gè)更簡單的，就是捕捉URL

todaynew · 發(fā)表于 2012-8-27 12:03:26

WebBrowser0.Document.Write 似乎可以遍歷數(shù)據(jù)庫做出各種各樣的數(shù)據(jù)呈現(xiàn)形式。

另外，提供的關(guān)于WebBrowser0方面資料的鏈接地址上的文字不是我寫的，我只是找來學(xué)習(xí)了一下，呵呵。

tmtony · 發(fā)表于 2012-8-27 12:09:29

很強(qiáng)，我也弄了半天，也大同小異。
看來gnoy勾起了大伙們的興趣。

葉海峰 · 發(fā)表于 2012-8-27 13:10:45

但在access里面用WebBrowse,有時(shí)候會很靈異.曾經(jīng)試過用wb(WebBrowse)去navitegate本地的一個(gè)swf文件,失敗.同樣的代碼,同樣是調(diào)用wb控件,在vb,excel的userform里面做卻可以加載成功.把userform導(dǎo)出frm在access導(dǎo)入,還是失敗.不知道是什么原因?qū)е率?可能是跟Acess的運(yùn)行環(huán)境有關(guān),因?yàn)橛械碾娔X是加載成功的
所以至今Access里面用這個(gè)控件,還是有點(diǎn)怕怕的.不知道會有什么不可預(yù)料的事情發(fā)生.

todaynew · 發(fā)表于 2012-8-27 14:20:20

有個(gè)奇怪的問題想問一下：
dim txt as string
txt="將html代碼逐段的寫給這個(gè)變量"
WebBrowser0.Document.Write txt
到此為止，WebBrowser0可以顯示出寫入的html代碼。

但是，下面的語句就會報(bào)錯(cuò)：
Set WebBrowser0.Document.parentWindow.accForm = Me
這是什么原因？

zhuyiwen · 發(fā)表于 2012-8-27 15:36:59

todaynew 發(fā)表于 2012-8-27 14:20
有個(gè)奇怪的問題想問一下：
dim txt as string
txt="將html代碼逐段的寫給這個(gè)變量"
WebBrowser0.Document.Write txt
到此為止，WebBrowser0可以顯示出寫入的html代碼。

但是，下面的語句就會報(bào)錯(cuò)：
Set WebBrowser0.Document.parentWindow.accForm = Me
這是什么原因？

accForm 是網(wǎng)頁中的一個(gè)對象變量

應(yīng)該這樣寫

dim txt as string
txt="<script>var accForm;</script>" & _
"將html代碼逐段的寫給這個(gè)變量"
WebBrowser0.Document.Write txt
' 這樣就不會報(bào)錯(cuò)了：
Set WebBrowser0.Document.parentWindow.accForm = Me

復(fù)制代碼

目的，是把當(dāng)前窗體對象傳遞到網(wǎng)頁。

葉海峰 · 發(fā)表于 2012-8-27 15:41:26

沒報(bào)錯(cuò)啊

Private Sub Form_Load()
Dim str As String

str = "<html><head><script>" & vbCr & _
      "var accForm; " & vbCr & _
      "function test(message) { alert(message); }" & vbCr & _
      "</script></head><body><button " & vbCr & _
      "onclick=""accForm.test('called from script code')"">" & vbCr & _
      "call client code from script code</button>" & vbCr & _
      "</body></html>"

WebBrowser0.Navigate "about:blank"
DoEvents

Do While WebBrowser0.Busy
      DoEvents
Loop

WebBrowser0.Document.Write str

Set WebBrowser0.Document.parentWindow.accForm = Me
End Sub

帳號		自動(dòng)登錄	找回密碼
密碼			注冊

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)2群 (163530137)
Access免費(fèi)培訓(xùn)群 (833510950)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access交流總?cè)?br/>(5004108)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒設(shè)置居住地]

[窗體] 窗體與WebBrowse交互（從todaynew學(xué)來的）

本帖子中包含更多資源

評分

本帖被以下淘專輯推薦:

群介紹
主題無相 (隨機(jī)顯示版	同地區(qū)群塊其他地區(qū))