YaugSoft

 
Imports System
Imports System.Windows.Forms
Imports System.Security.Permissions
 
Public Class Form1
  Inherits Form
 
  Private webBrowser1 As New WebBrowser()
  Private WithEvents button1 As New Button()
 
  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 = _
		  "<script type="text/javascript"><!–mce:0–></script><button> " &amp; _
		  "call client code from script code</button>" &amp; ""
  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