Этот пример демонстрирует работу компонентов WebBrowser,Splitter и LinkLabel .The .NET Compact Framework (.NET CF) 2.0 and Visual Studio 2005 облегчает написание программ для мобильных устройств.

С помощью компонента WebBrowser можно просматривать как локальные так и удаленные странички(Интернет).

Для полноценной проверки программы её нужно установить на физическое устройство.

После компеляции программ для кпк нужно создать установочный CAB файл который соберёт все необходимые библиотеки и файлы для корректной установки на устройство, после чего просто запустите программу

Требования:

• Visual Studio 2005 Beta 2.
• .NET Compact Framework v2.0 (installed on physical device).
• Интернет на физическом устройстве.

Пример исходного кода

---

'############################################################
'#      Примеры, уроки и статьи для VB                      #
'#      http://xod.in.ua
'#                                                          #
'############################################################
Option Strict On
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Показать только кнопку ОК для закрытия приложения.
        MinimizeBox = False
        ' Заполняем страничку содержимым
        Dim builder As New StringBuilder
        builder.Append("")
        builder.Append("
Справка
")
        builder.Append("
Вы можете использовать компонент WebBrowser для отображения локальных файлов
")
        builder.Append("Splitter: Используйте splitter(разделитель) для изменения высоты браузера.
")
        builder.Append("URL: Введите адрес и нажмите на кнопку >> . У вас должен быть интернет.")
        builder.Append("")
        WebBrowser1.DocumentText = builder.ToString()
    End Sub

    Private Sub LoadUrl(ByVal url As String)
        ' Проверяем правильность ссылки
        If String.IsNullOrEmpty(url) Or url.Equals("about:blank") Then
            MessageBox.Show("Неправильная ссылка")
            Return
        End If
        ' Добавим Http для удобства
        If Not url.StartsWith("http://") Then
            url = "http://" & url
        End If
        ' Перейти на желаемую страницу
        Try
            Cursor.Current = Cursors.WaitCursor ' Установить курсор загрузки
            WebBrowser1.Navigate(New Uri(url)) ' Перейти по указаному адресу
        Catch ex As System.UriFormatException
            MessageBox.Show("Ошибка: Неверная ссылка. " & ex.Message)
        Catch ex As Exception
            MessageBox.Show("Ошибка: " & ex.Message)
        Finally
            Cursor.Current = Cursors.Default ' Restore Default Cursor
        End Try
    End Sub

    Private Sub GoButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoButton.Click
        LoadUrl(URLTextBox.Text) ' Получаем адрес 
    End Sub

    Private Sub PocketPCLinkLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PocketPCLinkLabel.Click
        LoadUrl("http://xod.in.ua/")
    End Sub
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Try
            'вернутся назад
            WebBrowser1.SendToBack()
        Catch
        End Try
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Try
            'Вернутся вперёд
            WebBrowser1.GoForward()
        Catch
        End Try
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Try
            'обновить страничку
            WebBrowser1.Refresh()
        Catch
        End Try
    End Sub

    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Try
            'остановить загрузку
            WebBrowser1.Stop()
        Catch
        End Try
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        'Разварачиваем программу на весь экран
        Me.WindowState = FormWindowState.Maximized
        MenuItem3.Checked = True
        MenuItem4.Checked = False
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Me.WindowState = FormWindowState.Normal
        MenuItem4.Checked = True
        MenuItem3.Checked = False
    End Sub
End Class

Скачать исходный код примера