窗体与WebBrowse交互（从todaynew学来的）

zhuyiwen · 发表于 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

复制代码

新建一个窗体，在窗体上放一个Microsoft Web控件和一个命令按钮，分别命名为 WebBrowse0 和 Command1，在窗体的 VBA 模块中输入上述代码。运行窗体，得到如下效果：
当点击 Command1 时：

当点击WebBrowse控件中的按钮时：

意思是点击Access的按钮执行页面的javascript函数，而点击页面中的按钮则执行Access窗体中的方法。

更好的示例： （2012-08-28 添加）
Todaynew：WebBrowser控件与数据库交互示例

zhuyiwen · 发表于 2012-8-27 10:59:32

很有意思，我们可以通过 WebBrowse.Document.parentWindow这个对象来实现交互。

有了这个，再实现歌逸新平台：MS Access 和 JQuery 打造最炫界面
http://www.office-cn.net/forum.p ... 088&fromuid=625

就应该不是很困难了。

t小宝 · 发表于 2012-8-27 11:28:36

Access的Web化浪潮来了...

gnoy · 发表于 2012-8-27 11:39:20

不错，不用说从谁那里学来的，代码我看得很熟悉，天下文章都是抄来的，哈哈。。。

对于带超链接的还有一个更简单的，就是捕捉URL

todaynew · 发表于 2012-8-27 12:03:26

WebBrowser0.Document.Write 似乎可以遍历数据库做出各种各样的数据呈现形式。

另外，提供的关于WebBrowser0方面资料的链接地址上的文字不是我写的，我只是找来学习了一下，呵呵。

tmtony · 发表于 2012-8-27 12:09:29

很强，我也弄了半天，也大同小异。
看来gnoy勾起了大伙们的兴趣。

叶海峰 · 发表于 2012-8-27 13:10:45

但在access里面用WebBrowse,有时候会很灵异.曾经试过用wb(WebBrowse)去navitegate本地的一个swf文件,失败.同样的代码,同样是调用wb控件,在vb,excel的userform里面做却可以加载成功.把userform导出frm在access导入,还是失败.不知道是什么原因导致失败.可能是跟Acess的运行环境有关,因为有的电脑是加载成功的
所以至今Access里面用这个控件,还是有点怕怕的.不知道会有什么不可预料的事情发生.

todaynew · 发表于 2012-8-27 14:20:20

有个奇怪的问题想问一下：
dim txt as string
txt="将html代码逐段的写给这个变量"
WebBrowser0.Document.Write txt
到此为止，WebBrowser0可以显示出写入的html代码。

但是，下面的语句就会报错：
Set WebBrowser0.Document.parentWindow.accForm = Me
这是什么原因？

zhuyiwen · 发表于 2012-8-27 15:36:59

todaynew 发表于 2012-8-27 14:20
有个奇怪的问题想问一下：
dim txt as string
txt="将html代码逐段的写给这个变量"
WebBrowser0.Document.Write txt
到此为止，WebBrowser0可以显示出写入的html代码。

但是，下面的语句就会报错：
Set WebBrowser0.Document.parentWindow.accForm = Me
这是什么原因？

accForm 是网页中的一个对象变量

应该这样写

dim txt as string
txt="<script>var accForm;</script>" & _
"将html代码逐段的写给这个变量"
WebBrowser0.Document.Write txt
' 这样就不会报错了：
Set WebBrowser0.Document.parentWindow.accForm = Me

复制代码

目的，是把当前窗体对象传递到网页。

叶海峰 · 发表于 2012-8-27 15:41:26

没报错啊

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 窗体与WebBrowse交互（从todaynew学来的）

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)