ウェブブラウザの切り替えができません。 (ID:124429)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

途中で変な物が足跡つけたので気が散った。
TabStripのSelectedItem.Indexは１ベースで、
WebBrowserの配列は０ベースの為、其のままだと
１つずつずれるのね、昔作ったタブブラウザーを参考にどうぞ。
Option Explicit
Dim url(0 To 1, 0 To 3) As String
Const NoOfTab = 4
Private Sub Form_Load()
    Dim n As Integer
    Me.Caption = "タブブラウザー"
    url(0, 0) = "google": url(1, 0) = "http://www.google.co.jp/"
    url(0, 1) = "yahoo": url(1, 1) = "http://www.yahoo.co.jp/"
    url(0, 2) = "goo": url(1, 2) = "http://www.goo.ne.jp/"
    url(0, 3) = "msn": url(1, 3) = "http://www.msn.co.jp/home.armx"
    For n = 1 To NoOfTab - 1
        Load WebBrowser1(n)
        TabStrip1.Tabs.Add
        TabStrip1.Tabs(n + 1).Caption = url(0, n)
    Next
    TabStrip1.Tabs(1).Caption = url(0, 0)
    With WebBrowser1(0)
        .Visible = True
        .Navigate2 url(1, 0)
        .ZOrder 0
    End With
    Form_Resize
End Sub
Private Sub Form_Resize()
    Dim n As Integer
    With TabStrip1
        .Left = 0
        .Top = 0
        .Width = Me.Width - 100
        .Height = Me.Height - 500
    End With
    For n = 0 To TabStrip1.Tabs.Count - 1
        With WebBrowser1(n)
            .Top = TabStrip1.ClientTop
            .Left = TabStrip1.ClientLeft
            .Width = TabStrip1.ClientWidth
            .Height = TabStrip1.ClientHeight
        End With
    Next
End Sub
Private Sub TabStrip1_Click()
    Dim n As Integer
    For n = 0 To TabStrip1.Tabs.Count - 1
        WebBrowser1(n).Visible = False
    Next
    WebBrowser1(TabStrip1.SelectedItem.Index - 1).Visible = True
    WebBrowser1(TabStrip1.SelectedItem.Index - 1).ZOrder 0
    WebBrowser1(TabStrip1.SelectedItem.Index - 1).Navigate2 _
    url(1, TabStrip1.SelectedItem.Index - 1)
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る