GeckoFX示例

Question

我下载了GeckoFX (版本16)，这是在winForms (VB.NET)应用程序中使用的XULRunner Dotnet包装器，但是在任何地方都没有使用说明(只有Initialize命令)。

我将该控件添加到我的窗体中，并在窗体load事件中输入以下内容：

私有子Form1_Load(发送者作为System.Object，e作为System.EventArgs)处理MyBase.Load

    Xpcom.Initialize(My.Application.Info.DirectoryPath & "/xulrunner")
    InitializeComponent()

    Me.GeckoWebBrowser1.Enabled = True
    Me.GeckoWebBrowser1.Navigate("http://www.google.com")

End Sub

什么都没发生。该控件不可见，不会进行导航。只需要一个简单的项目(C#也可以)来展示控件的实际工作效果会很好(请不要回复另一个指向GeckoFx的wiki页面的网址，因为它是无用的，并且没有显示任何示例)

Answer 1

Imports Gecko

Public Class Form1

Private myBrowser As GeckoWebBrowser

Public Sub New()
    InitializeComponent()
    Xpcom.Initialize(My.Application.Info.DirectoryPath & "\xulrunner")
    myBrowser = New GeckoWebBrowser()
    myBrowser.Parent = Me.SplitContainer1.Panel2
    myBrowser.Dock = DockStyle.Fill
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    myBrowser.Navigate(TextBox1.Text)
End Sub

End Class

Answer 2

只要使用事件就可以了。我说的是withEvents:D导入壁虎

Public Class Form1

Private WithEvents myBrowser As GeckoWebBrowser

Public Sub New()
InitializeComponent()
Xpcom.Initialize(My.Application.Info.DirectoryPath & "\xulrunner")
myBrowser = New GeckoWebBrowser()
myBrowser.Parent = Me.SplitContainer1.Panel2
myBrowser.Dock = DockStyle.Fill
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
myBrowser.Navigate(TextBox1.Text)
End Sub

End Class