vb2005 下webbrowser 控件调用窗体函数的注意事项

最新推荐文章于 2017-05-05 12:37:12 发布

VB.Net

最新推荐文章于 2017-05-05 12:37:12 发布

阅读量1.2k

点赞数

分类专栏： vb.net 点滴文章标签： webbrowser vb button vbscript winform class

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

本文链接：https://blog.csdn.net/UruseiBest/article/details/6003904

版权

vb.net 点滴专栏收录该内容

45 篇文章 17 订阅

订阅专栏

1、确保组件对象模型(COM)必须能够访问脚本对象：即使窗体对 COM 可见，将 ComVisibleAttribute 属性添加到窗体类中：
在窗体的构造函数中设置 <System.Runtime.InteropServices.ComVisibleAttribute(True)>
例：
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Partial Class FormShow
2、窗体启动时，设置
webBrowser1.ObjectForScripting = me
3、确保要调用的函数为 public

以下是窗体完整代码：
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.ObjectForScripting = Me
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim innerstr As String = ""
        innerstr = "<html><head><style>" & ControlChars.CrLf
        innerstr &= "body {font-size:12pt;}" & ControlChars.CrLf
        innerstr &= "</style>" & ControlChars.CrLf
        innerstr &= "<script language='vbscript'>" & ControlChars.CrLf
        innerstr &= "sub clickit()" & ControlChars.CrLf
        innerstr &= "ceshidiv.innertext=""zheshiyigeceshi""" & ControlChars.CrLf
        innerstr &= "end sub" & ControlChars.CrLf
        innerstr &= "sub testit(testindex)" & ControlChars.CrLf
        innerstr &= "window.external.testit(testindex)" & ControlChars.CrLf
        innerstr &= "end sub" & ControlChars.CrLf
        innerstr &= "</script>" & ControlChars.CrLf
        innerstr &= "</head><body>" & ControlChars.CrLf
        innerstr &= "<div id='ceshidiv'> 这是一个测试</div>" & ControlChars.CrLf
        innerstr &= "<input type='button' value='ceshi1' name='btn1' οnclick='clickit'>" & ControlChars.CrLf
        innerstr &= "<input type='button' value='ceshi2' name='btn2' οnclick='testit(1)'>" & ControlChars.CrLf
        innerstr &= "</body></html>"
        WebBrowser1.DocumentText = innerstr
    End Sub

    Public Sub testit(ByVal curpage As Integer)
        MsgBox("这是winform测试:" & curpage)
    End Sub
End Class

4、其他在设计时候需要注意的：
webBrowser1.AllowWebBrowserDrop = false '禁止拖放文件 WebBrowser 控件到其上
webBrowser1.IsWebBrowserContextMenuEnabled = false '禁止右击时显示快捷菜单（同ie中右键菜单）
webBrowser1.WebBrowserShortcutsEnabled = false '禁止控件响应快捷键
webBrowser1.ScriptErrorsSuppressed=true '禁止显示脚本代码问题的错误信息。