.NET [TUT]The Implementation of GeckoFX[TUT]

Code

'**

'*    *

'* Author: RK  *

'* Example provider: ident    *

'*    *

'* Contact: [email protected]    *

'*    *

'* DESCRIPTION    *

'*    *

'* Implements Gecko engine.  *

'*    *

'**



Option Strict On



Public Class MainForm

    Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem.Click

  MessageBox.Show("Give it a few seconds to load up the webpage.")

  GeckoWebBrowser1.Navigate("https://hackforums.net")

    End Sub



    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

  Me.Dispose()

    End Sub

End Class



'IMPLENTATION NOTES:

'

' 1) http://en.wikipedia.org/wiki/Gecko_%28layout_engine%29

' 2) http://releases.mozilla.org/pub/mozilla.org/xulrunner/releases/

Code

Imports System.IO

Imports Skybound.Gecko



Namespace My



    ' The following events are available for MyApplication:

    ' 

    ' Startup: Raised when the application starts, before the startup form is created.

    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.

    ' UnhandledException: Raised if the application encounters an unhandled exception.

    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 

    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.

    Partial Friend Class MyApplication



  Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean



    Dim ProfileDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\xulrunner\DefaultProfile"



    If Not Directory.Exists(ProfileDirectory) Then

    Directory.CreateDirectory(ProfileDirectory)

    End If

    Xpcom.ProfileDirectory = ProfileDirectory



    Dim xrPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location

    xrPath = xrPath.Substring(0, xrPath.LastIndexOf("\") + 1) & "\xulrunner"

    Xpcom.Initialize(xrPath)



    Return True

  End Function



    End Class



End Namespace