C# と VB.NET の質問掲示板

■No8335 (河童３０ さん) に返信

Public Class Form1

    Private WithEvents tm As New Timer
    Private WithEvents treeview1 As New TreeView()
    Private WithEvents webbrowser1 As New WebBrowser()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim splitter As New SplitContainer()

        treeview1.Dock = DockStyle.Fill
        webbrowser1.Dock = DockStyle.Fill

        splitter.Panel1.Controls.Add(treeview1)
        splitter.Panel2.Controls.Add(webbrowser1)

        splitter.Dock = DockStyle.Fill

        Me.Controls.Add(splitter)

        Dim tn1 As TreeNode = New TreeNode(My.Resources.PDF1)
        Dim tn2 As TreeNode = New TreeNode(My.Resources.PDF2)
        Dim tn3 As TreeNode = New TreeNode(My.Resources.PDF3)

        tn1.Tag = My.Settings.PDF_FILE1
        tn2.Tag = My.Settings.PDF_FILE2
        tn3.Tag = My.Settings.PDF_FILE3

        TreeView1.Nodes.Add(tn1)
        TreeView1.Nodes.Add(tn2)
        TreeView1.Nodes.Add(tn3)

        tm.Interval = 500

        AddHandler treeview1.AfterSelect, AddressOf treeview1_onchanged
        AddHandler webbrowser1.DocumentCompleted, AddressOf webbrowser1_completed

    End Sub


    Private Sub treeview1_onchanged(ByVal sender As Object, ByVal e As TreeViewEventArgs)
        Dim selectedNode As TreeNode = TreeView1.SelectedNode
        WebBrowser1.Navigate(DirectCast(selectedNode.Tag, System.Uri))

    End Sub

    Private Sub webbrowser1_completed(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        Me.Update()
        Me.Focus()
        TreeView1.Focus()
        ''このタイマーが肝;;
        tm.Start()
    End Sub
    Private Sub tm_tick(ByVal sender As Object, ByVal e As EventArgs) Handles tm.Tick
        tm.Stop()
        'Me.Update()
        treeview1.Focus()

    End Sub
End Class

リソースと設定は、MyProject ダブクリして設定して下さい。
設定は、型に System.Uri を指定しておくとほんのちょびっと手間が省けます。

とりあえず、サンプルなんで、ご自分で利用する際は、GetFiles() して、Uri を TreeNode.Tag に
入れることになりそうですね。