Evet Arkadaşlar Visual Studio 2010'da Yeni Sekme Yapmayi Göstercem
5 button " 1 tabcontrol " 1 textbox ekliyoruz
Sonra Buttonların "Name" İsmini Verdim Şekilde Ekliyoruz.
İsimleri Böyle Yazdından Sonra Grafiklerimizi Ayarladıkdan Sonra "Form1" Sağ Tıklayıp "Wiew Code" Tuşuna Basıp Ordaki Tum Yazıları Siliyoruz Boş Bir Alan Olucaktır. Sonra Alt'da Verdim Kodu Kopyalıyoruz Ve Yapıştırıyoruz Sonra Yeni Sekmen Olmuş Durumdadır.
Kodu Anlamayan Varsa Özelden Ulaşabilir Eğer Yapan Varsa Teşekkür Edebilir
5 button " 1 tabcontrol " 1 textbox ekliyoruz
Sonra Buttonların "Name" İsmini Verdim Şekilde Ekliyoruz.
Kod:
[COLOR="White"][B]Geri Button: geri
İleri Button: ileri
Git Button: git
Yeni Sekme Button: yenisekme
Sekmeyi Kapat: sekmekapat[/B][/COLOR]
İsimleri Böyle Yazdından Sonra Grafiklerimizi Ayarladıkdan Sonra "Form1" Sağ Tıklayıp "Wiew Code" Tuşuna Basıp Ordaki Tum Yazıları Siliyoruz Boş Bir Alan Olucaktır. Sonra Alt'da Verdim Kodu Kopyalıyoruz Ve Yapıştırıyoruz Sonra Yeni Sekmen Olmuş Durumdadır.
Kod:
[COLOR="White"][B]Public Class Form1
Dim sekme As Integer = -1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim webbrowser As New WebBrowser
sekme = sekme + 1
TabControl1.TabPages.Add("Yeni sekme " & sekme)
webbrowser.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(webbrowser)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ileri.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekmekapat.Click
sekme = sekme - 1
TabControl1.TabPages.Remove(TabControl1.SelectedTab)
End Sub
Private Sub btnYeniSekme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenisekme.Click
Dim webbrowser As New WebBrowser
sekme = sekme + 1
TabControl1.TabPages.Add("Yeni sekme " & sekme)
TabControl1.SelectedTab = (TabControl1.TabPages(sekme))
TabControl1.SelectedTab.Controls.Add(webbrowser)
webbrowser.Dock = DockStyle.Fill
End Sub
End Class[/B][/COLOR]
Kodu Anlamayan Varsa Özelden Ulaşabilir Eğer Yapan Varsa Teşekkür Edebilir
Son düzenleme: