WebBrowser source

Last post 12-18-2005 7:37 by Anonymous. 0 replies.
Page 1 of 1 (1 items)
Sort Posts: Previous Next
  • 12-18-2005 7:37

    WebBrowser source

    WebBrowser is really great if the pocketPC only support compact framework 1.0

    From Sunday Lau

    1) - import
    Imports OpenNETCF.Windows.Forms
    Imports System.Net
    Imports System.IO

    2) - declare
    Public Class Main
    Friend WithEvents viewer As OpenNETCF.Windows.Forms.WebBrowser

    3) - initialize and add
    Private Sub InitializeComponent()
    Me.viewer = New OpenNETCF.Windows.Forms.WebBrowser
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.Add(Me.MenuItem3)
    Me.MainMenu1.MenuItems.Add(Me.MenuItem4)
    Me.MainMenu1.MenuItems.Add(Me.MenuItem1)
    Me.MainMenu1.MenuItems.Add(Me.MenuItem2)
    '
    'MenuItem3
    '
    Me.MenuItem3.Text = "Backpage"
    '
    'MenuItem4
    '
    Me.MenuItem4.Text = "Refresh"
    '
    'MenuItem1
    '
    Me.MenuItem1.Text = ""
    '
    'MenuItem2
    '
    Me.MenuItem2.Text = ""
    '
    'WebBrowser
    '
    viewer.Parent() = Me
    viewer.CreateControl()
    viewer.ClientSize = New System.Drawing.Size(240, 268)
    Cursor.Current = Cursors.WaitCursor
    viewer.Navigate("file://\windows\default.htm")
    Cursor.Current = Cursors.Default
    '
    'Main
    '
    Me.ClientSize = New System.Drawing.Size(240, 245)
    Me.Menu = Me.MainMenu1
    Me.Text = "PCCW"

    End Sub

    #End Region


    I hope someone will enjoy it.[:D]
Page 1 of 1 (1 items)