2013-01-29 2 views
1

Я загрузил GeckoFX (ver 16), оболочку XULRunner Dotnet для использования в приложении winForms (VB.NET), но нет инструкций по использованию в любом месте (только команда Initialize).пример GeckoFX

Я добавил контроль на моей форме и в случае загрузки формы, поставить в следующем:

Private Sub Form1_Load (отправителем As System.Object, е Как 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# это тоже хорошо), что показывает управление на самом деле работает бы неплохо (пожалуйста, не отвечайте с другим URL, который указывает на вики-странице GeckoFx как это бесполезно, и никакие примеры где-нибудь не показаны)

ответ

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 
+0

3-й линии должны быть Частные WithEvents myBrowser Как GeckoWebBrowser этот контроль не работает как элемент набора инструментов перетащить-н-капли, я обнаружил, - это может быть определен только в коде (почему никто не упоминал об этом раньше, это чья-то догадка) – MC9000

1

Просто сделайте это с помощью событий. Im говорить для withEvents: D Импорт Gecko

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 
+0

Добро пожаловать в Stack Overflow! Хотя это может быть верным ответом, вы гораздо чаще помогаете другим, объясняя, что делает код и как он работает. Ответы только на код, как правило, получают меньше положительного внимания и не так полезны, как другие ответы. – Aurora0001

+0

@ Aurora0001 1-й. Почему вы думаете, что я новичок? И хорошо, спасибо за информацию! – DimitarGraphics

+0

У вас мало репутации и только недавно зарегистрирован, поэтому это справедливое предположение (хотя я, конечно, ошибаюсь!). Кроме того, если вы еще не читали [ответ], стоит прочитать, чтобы помочь вам написать ответы, которые действительно полезны. – Aurora0001