web browsera sekme eklerken bu kodları yazıyorum yanlış diyo.
Tam olarak düzenler misin ?
Birde browser. değilde webbrowser1. yı kabul ediyo.
Bunlar kodları
Public Class Form1 Dim a As Integer = 1
Private Sub git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)
End Sub Private Sub geri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub Private Sub ileri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub Private Sub yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
End Sub Private Sub dur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dur.Click CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Stop()
End Sub Private Sub sekmesil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmesil.Click sekme.TabPages.RemoveAt(sekme.SelectedIndex) sekme.SelectTab(sekme.TabPages.Count - 1) a = a - 1
End Sub Private Sub sekmeekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmeekle.Click Dim browse As New WebBrowser sekme.TabPages.Add(1, "sayfa" & a) sekme.SelectTab(a - 1) browse.Name = "WbBrowser" browse.Dock = DockStyle.Fill sekme.SelectedTab.Controls.Add(browse) a = a + 1
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim browse As New WebBrowser sekme.TabPages.Add(1, "Sayfa" & a) sekme.SelectTab(a - 1) browse.Name = "WbBrowser" browse.Dock = DockStyle.Fill sekme.SelectedTab.Controls.Add(browse) a = a + 1
End Sub End Class
----------
Sorun çözülmüştür