WebBrowser VB2005

VB Tips And Sample(HOME)(VB.NET Sample インデックス)

WebBrowser VB2005
webbrowser 特殊文字
 
WebBrowserを作ってみる。
そこで、ちょっと問題となるのが、「戻る」「進む」「リロード」等の記号です。
これらは、実は記号ではなく、文字で出すことができます。
リロードは、Wingdings 3の「Shift+P」で出すことができます。

P
 

Imports System
Imports System.ComponentModel
Imports System.Windows.Forms

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(Me.TextBox1.Text)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'リロード 現在の Web ページの最新バージョンを要求する更新。 
        WebBrowser1.Refresh(WebBrowserRefreshOption.Completely)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '戻る
        Me.WebBrowser1.GoBack()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '進む
        Me.WebBrowser1.GoForward()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'HOME
        Me.WebBrowser1.GoHome()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'リンク抜き出し
        Me.TextBox2.Text = "" '初期化

        '@IT参照 http://www.atmarkit.co.jp/fdotnet/dotnettips/687nondispbrowser/nondispbrowser.htmlの
        Public Class NonDispBrowser などを使用します。
    End Sub
    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        'URL取得
        Me.TextBox1.Text = Me.WebBrowser1.Url.ToString
    End Sub
End Class







VB Tips And Sample(HOME)(VB.NET Sample インデックス)