如何：在 DHTML 代码和客户端应用程序代码之间实现双向通信
更新：2007 年 11 月
可以使用 WebBrowser 控件向 Windows 窗体客户端应用程序添加现有的动态 HTML (DHTML) Web 应用程序代码。在投入大量的开发时间创建基于 DHTML 的控件，并希望利用丰富的 Windows 窗体用户界面功能而无需重写现有的代码时，该控件十分有用。
使用 WebBrowser 控件，可以通过 ObjectForScripting 和 Document 属性在客户端应用程序代码和网页脚本代码之间实现双向通信。此外，可以对 WebBrowser 控件进行配置，使 Web 控件可以与应用程序窗体上的其他控件进行无缝整合，从而隐藏其 DHTML 实现。若要使控件无缝整合，请对所显示页的格式进行设置，使其背景颜色和视觉样式与窗体的其余部分匹配，然后使用 AllowWebBrowserDrop、IsWebBrowserContextMenuEnabled 和 WebBrowserShortcutsEnabled 属性禁用标准浏览器功能。
在 Windows 窗体应用程序中嵌入 DHTML
将 WebBrowser 控件的 AllowWebBrowserDrop 属性设置为 false，以防止 WebBrowser 控件打开拖放到其上的文件。
webBrowser1.AllowWebBrowserDrop = FalsewebBrowser1.AllowWebBrowserDrop = false;将该控件的 IsWebBrowserContextMenuEnabled 属性设置为 false，以防止 WebBrowser 控件在用户右击它时显示其快捷菜单。
webBrowser1.IsWebBrowserContextMenuEnabled = FalsewebBrowser1.IsWebBrowserContextMenuEnabled = false;将该控件的 WebBrowserShortcutsEnabled 属性设置为 false，以防止 WebBrowser 控件响应快捷键。
webBrowser1.WebBrowserShortcutsEnabled = FalsewebBrowser1.WebBrowserShortcutsEnabled = false;在窗体的构造函数或 Load 事件处理程序中设置 ObjectForScripting 属性。
下面的代码将窗体类自身用于脚本对象。
.gif "说明")
说明：组件对象模型 (COM) 必须能够访问脚本对象。若要使窗体对 COM 可见，请将 ComVisibleAttribute 属性添加到窗体类中。
webBrowser1.ObjectForScripting = MewebBrowser1.ObjectForScripting = this;在应用程序代码中实现脚本代码将使用的公共属性或方法。
例如，如果要使用脚本对象的窗体类，请向窗体类添加以下代码。
Public Sub Test(ByVal message As String) MessageBox.Show(message, "client code") End Subpublic void Test(String message) { MessageBox.Show(message, "client code"); }使用脚本代码中的 window.external 对象访问指定对象的公共属性和方法。
下面的 HTML 代码演示如何通过单击按钮对脚本对象调用方法。将此代码复制到 HTML 文档的 BODY 元素中，该文档使用控件的 Navigate 方法加载或被分配给控件的 DocumentText 属性。
<button onclick="window.external.Test('called from script code')"> call client code from script code </button>在脚本代码中实现应用程序代码将使用的函数。
下面的 HTML SCRIPT 元素提供了一个示例函数。将此代码复制到 HTML 文档的 HEAD 元素中，该文档使用控件的 Navigate 方法加载或被分配到控件的 DocumentText 属性。
<script> function test(message) { alert(message); } </script>使用 Document 属性从客户端应用程序代码访问脚本代码。
例如，将下面的代码添加到按钮 Click 的事件处理程序中。
webBrowser1.Document.InvokeScript("test", _ New String() {"called from client code"})webBrowser1.Document.InvokeScript("test", new String[] { "called from client code" });调试完 DHTML 之后，将该控件的 ScriptErrorsSuppressed 属性设置为 true，以防止 WebBrowser 控件显示脚本代码问题的错误信息。
' Uncomment the following line when you are finished debugging. 'webBrowser1.ScriptErrorsSuppressed = True// Uncomment the following line when you are finished debugging. //webBrowser1.ScriptErrorsSuppressed = true;
示例
下面的完整代码示例提供了一个演示应用程序，可用于理解此功能。HTML 代码通过 DocumentText 属性加载到 WebBrowser 控件中，而不是从单独的 HTML 文件加载。
Imports System
Imports System.Windows.Forms
Imports System.Security.Permissions
<PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class Form1
Inherits Form
Private webBrowser1 As New WebBrowser()
Private WithEvents button1 As New Button()
<STAThread()> _
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub
Public Sub New()
button1.Text = "call script code from client code"
button1.Dock = DockStyle.Top
webBrowser1.Dock = DockStyle.Fill
Controls.Add(webBrowser1)
Controls.Add(button1)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
Handles Me.Load
webBrowser1.AllowWebBrowserDrop = False
webBrowser1.IsWebBrowserContextMenuEnabled = False
webBrowser1.WebBrowserShortcutsEnabled = False
webBrowser1.ObjectForScripting = Me
' Uncomment the following line when you are finished debugging.
'webBrowser1.ScriptErrorsSuppressed = True
webBrowser1.DocumentText = _
"<html><head><script>" & _
"function test(message) { alert(message); }" & _
"</script></head><body><button " & _
"onclick=""window.external.Test('called from script code')"" > " & _
"call client code from script code</button>" & _
"</body></html>"
End Sub
Public Sub Test(ByVal message As String)
MessageBox.Show(message, "client code")
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles button1.Click
webBrowser1.Document.InvokeScript("test", _
New String() {"called from client code"})
End Sub
End Class
using System;
using System.Windows.Forms;
using System.Security.Permissions;
[PermissionSet(SecurityAction.Demand, Name="FullTrust")]
[System.Runtime.InteropServices.ComVisibleAttribute(true)]
public class Form1 : Form
{
private WebBrowser webBrowser1 = new WebBrowser();
private Button button1 = new Button();
[STAThread]
public static void Main()
{
Application.EnableVisualStyles();
Application.Run(new Form1());
}
public Form1()
{
button1.Text = "call script code from client code";
button1.Dock = DockStyle.Top;
button1.Click += new EventHandler(button1_Click);
webBrowser1.Dock = DockStyle.Fill;
Controls.Add(webBrowser1);
Controls.Add(button1);
Load += new EventHandler(Form1_Load);
}
private void Form1_Load(object sender, EventArgs e)
{
webBrowser1.AllowWebBrowserDrop = false;
webBrowser1.IsWebBrowserContextMenuEnabled = false;
webBrowser1.WebBrowserShortcutsEnabled = false;
webBrowser1.ObjectForScripting = this;
// Uncomment the following line when you are finished debugging.
//webBrowser1.ScriptErrorsSuppressed = true;
webBrowser1.DocumentText =
"<html><head><script>" +
"function test(message) { alert(message); }" +
"</script></head><body><button " +
"onclick=\"window.external.Test('called from script code')\">" +
"call client code from script code</button>" +
"</body></html>";
}
public void Test(String message)
{
MessageBox.Show(message, "client code");
}
private void button1_Click(object sender, EventArgs e)
{
webBrowser1.Document.InvokeScript("test",
new String[] { "called from client code" });
}
}
编译代码
此代码需要：
- 对 System 和 System.Windows.Forms 程序集的引用。
有关从 Visual Basic 或 Visual C# 的命令行生成此示例的信息，请参见从命令行生成 (Visual Basic) 或在命令行上使用 csc.exe 生成。也可以通过将代码粘贴到新项目，在 Visual Studio 中生成此示例。 如何：使用 Visual Studio 编译和运行完整的 Windows 窗体代码示例
如何：使用 Visual Studio 编译和运行完整的 Windows 窗体代码示例
如何：使用 Visual Studio 编译和运行完整的 Windows 窗体代码示例
如何：使用 Visual Studio 编译和运行完整的 Windows 窗体代码示例
如何：使用 Visual Studio 编译和运行完整的 Windows 窗体代码示例