Brütüs Web Browser
Kaynak Kodu :
// VB. Net Programlama Dili
// zafercavdar
Public Class Form1
Dim a As Integer = 1
Dim yenisekmedeac As Boolean = False
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
yenile.BringToFront()
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
If a >= 3 Then
sekme.TabPages.RemoveAt(sekme.SelectedIndex)
sekme.SelectTab(sekme.TabPages.Count - 1)
a = a - 1
Else
Application.Exit()
End If
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
browse.IsWebBrowserContextMenuEnabled = False
sekme.SelectedTab.Controls.Add(browse)
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
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)
homepage.Enabled = False
browse.Name = "WbBrowser"
browse.Dock = DockStyle.Fill
browse.IsWebBrowserContextMenuEnabled = False
sekme.SelectedTab.Controls.Add(browse)
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.ProgressChanged, AddressOf yukleniyor
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
End Sub
Private Sub yuklemetamamlandi()
durum.Text = "Sayfa Yüklendi."
Progressbar.Value = 0
sekme.SelectedTab.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
My.Settings.gecmisliste.Add((CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString))
My.Settings.Save()
Progressbar.Visible = False
durum.Visible = False
End Sub
Private Sub yukleniyor(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
Progressbar.Visible = True
durum.Visible = True
Progressbar.Maximum = e.MaximumProgress
Progressbar.Value = e.CurrentProgress
durum.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
adrescubugu.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub
Private Sub YeniPencereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniPencereToolStripMenuItem.Click
Dim x As New Form1
x.Show()
End Sub
Private Sub YeniSekmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniSekmeToolStripMenuItem.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)
browse.IsWebBrowserContextMenuEnabled = False
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
End Sub
Private Sub SekmeyiKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SekmeyiKapatToolStripMenuItem.Click
sekme.TabPages.RemoveAt(sekme.SelectedIndex)
sekme.SelectTab(sekme.TabPages.Count - 1)
a = a - 1
End Sub
Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case ComboBox1.SelectedIndex
Case 0
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.com/search?q=" + aramacubugu.Text)
Case 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tr.search.yahoo.com/search?p=" + aramacubugu.Text)
Case 2
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bing.com/search?q=" + aramacubugu.Text)
Case 3
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://torrentz.eu/search?f=" + aramacubugu.Text)
Case 4
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tureng.com/search/" + aramacubugu.Text)
Case 5
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" + aramacubugu.Text + "&x=0&y=0")
Case 6
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://shop.ebay.com/i.html?_from=R40&_trksid=p5197.m570.l1313&_nkw=" + aramacubugu.Text + "&_sacat=See-All-Categories")
Case 7
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bestbuy.com.tr/search.aspx/" + aramacubugu.Text)
Case 8
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.hepsiburada.com/liste/search.aspx?sText=" + aramacubugu.Text)
Case 9
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tr.wikipedia.org/w/index.php?title=%C3%96zel%3AAra&search=" + aramacubugu.Text)
Case Else
MsgBox("Geçerli bir site seçiniz.")
End Select
End Sub
Private Sub AnasayfamYapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfamYapToolStripMenuItem.Click
My.Settings.Anasayfa = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
My.Settings.Save()
MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " anasayfanız olarak ayarlandı")
End Sub
Private Sub AnasayfayaGitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfayaGitToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub AraçÇubuğuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AraçÇubuğuToolStripMenuItem.Click
ColorDialog1.ShowDialog()
ToolStrip1.BackColor = ColorDialog1.Color
StatusStrip1.BackColor = ColorDialog1.Color
End Sub
Private Sub ArkaPlanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArkaPlanToolStripMenuItem.Click
ColorDialog2.ShowDialog()
Me.BackColor = ColorDialog2.Color
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
End Sub
Private Sub ToolStripDropDownButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton1.Click
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub anasayfa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anasayfa.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.facebook.com")
End Sub
Private Sub TwitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TwitterToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.twitter.com")
End Sub
Private Sub GmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GmailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.gmail.com")
End Sub
Private Sub HotmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotmailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.hotmail.com")
End Sub
Private Sub YahooMailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YahooMailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.mail.yahoo.com/")
End Sub
Private Sub aramacubugu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aramacubugu.TextChanged
Me.AcceptButton = Button1
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub homepage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles homepage.Click
'CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub YouTubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YouTubeToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com")
End Sub
Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
End Sub
Private Sub Progressbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Progressbar.Click
End Sub
Private Sub adrescubugu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adrescubugu.TextChanged
Me.AcceptButton = git
End Sub
Private Sub mnuEditCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Clipboard.SetDataObject(CType(ActiveControl, TextBox).SelectedText)
'ActiveControl.Text = String.Empty
End Sub
Private Sub mnuEditCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Clipboard.SetDataObject(CType(ActiveControl, TextBox).SelectedText)
End Sub
Private Sub mnuEditPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Dim oDataObject As IDataObject
'oDataObject = Clipboard.GetDataObject()
'If oDataObject.GetDataPresent(DataFormats.Text) Then
'CType(ActiveControl, TextBox).SelectedText = CType(oDataObject.GetData(DataFormats.Text), String)
'End If
End Sub
Private Sub ToolStripDropDownButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GeçmişSayfalarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked
End Sub
Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub ToolStripSplitButton1_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub HataBildirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HataBildirToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub Dur_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dur.Click
Dur.BringToFront()
End Sub
End Class
// zafercavdar
Public Class Form1
Dim a As Integer = 1
Dim yenisekmedeac As Boolean = False
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
yenile.BringToFront()
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
If a >= 3 Then
sekme.TabPages.RemoveAt(sekme.SelectedIndex)
sekme.SelectTab(sekme.TabPages.Count - 1)
a = a - 1
Else
Application.Exit()
End If
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
browse.IsWebBrowserContextMenuEnabled = False
sekme.SelectedTab.Controls.Add(browse)
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
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)
homepage.Enabled = False
browse.Name = "WbBrowser"
browse.Dock = DockStyle.Fill
browse.IsWebBrowserContextMenuEnabled = False
sekme.SelectedTab.Controls.Add(browse)
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.ProgressChanged, AddressOf yukleniyor
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
End Sub
Private Sub yuklemetamamlandi()
durum.Text = "Sayfa Yüklendi."
Progressbar.Value = 0
sekme.SelectedTab.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
My.Settings.gecmisliste.Add((CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString))
My.Settings.Save()
Progressbar.Visible = False
durum.Visible = False
End Sub
Private Sub yukleniyor(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
Progressbar.Visible = True
durum.Visible = True
Progressbar.Maximum = e.MaximumProgress
Progressbar.Value = e.CurrentProgress
durum.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
adrescubugu.Text = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
End Sub
Private Sub YeniPencereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniPencereToolStripMenuItem.Click
Dim x As New Form1
x.Show()
End Sub
Private Sub YeniSekmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniSekmeToolStripMenuItem.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)
browse.IsWebBrowserContextMenuEnabled = False
a = a + 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
End Sub
Private Sub SekmeyiKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SekmeyiKapatToolStripMenuItem.Click
sekme.TabPages.RemoveAt(sekme.SelectedIndex)
sekme.SelectTab(sekme.TabPages.Count - 1)
a = a - 1
End Sub
Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case ComboBox1.SelectedIndex
Case 0
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.com/search?q=" + aramacubugu.Text)
Case 1
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tr.search.yahoo.com/search?p=" + aramacubugu.Text)
Case 2
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bing.com/search?q=" + aramacubugu.Text)
Case 3
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://torrentz.eu/search?f=" + aramacubugu.Text)
Case 4
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tureng.com/search/" + aramacubugu.Text)
Case 5
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" + aramacubugu.Text + "&x=0&y=0")
Case 6
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://shop.ebay.com/i.html?_from=R40&_trksid=p5197.m570.l1313&_nkw=" + aramacubugu.Text + "&_sacat=See-All-Categories")
Case 7
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.bestbuy.com.tr/search.aspx/" + aramacubugu.Text)
Case 8
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.hepsiburada.com/liste/search.aspx?sText=" + aramacubugu.Text)
Case 9
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://tr.wikipedia.org/w/index.php?title=%C3%96zel%3AAra&search=" + aramacubugu.Text)
Case Else
MsgBox("Geçerli bir site seçiniz.")
End Select
End Sub
Private Sub AnasayfamYapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfamYapToolStripMenuItem.Click
My.Settings.Anasayfa = CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
My.Settings.Save()
MsgBox(CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString + " anasayfanız olarak ayarlandı")
End Sub
Private Sub AnasayfayaGitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfayaGitToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub AraçÇubuğuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AraçÇubuğuToolStripMenuItem.Click
ColorDialog1.ShowDialog()
ToolStrip1.BackColor = ColorDialog1.Color
StatusStrip1.BackColor = ColorDialog1.Color
End Sub
Private Sub ArkaPlanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArkaPlanToolStripMenuItem.Click
ColorDialog2.ShowDialog()
Me.BackColor = ColorDialog2.Color
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles geri.Click
End Sub
Private Sub ToolStripDropDownButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDropDownButton1.Click
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub anasayfa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anasayfa.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.facebook.com")
End Sub
Private Sub TwitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TwitterToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.twitter.com")
End Sub
Private Sub GmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GmailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.gmail.com")
End Sub
Private Sub HotmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotmailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.hotmail.com")
End Sub
Private Sub YahooMailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YahooMailToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.mail.yahoo.com/")
End Sub
Private Sub aramacubugu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aramacubugu.TextChanged
Me.AcceptButton = Button1
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub homepage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles homepage.Click
'CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
End Sub
Private Sub YouTubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YouTubeToolStripMenuItem.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.youtube.com")
End Sub
Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
End Sub
Private Sub Progressbar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Progressbar.Click
End Sub
Private Sub adrescubugu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles adrescubugu.TextChanged
Me.AcceptButton = git
End Sub
Private Sub mnuEditCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Clipboard.SetDataObject(CType(ActiveControl, TextBox).SelectedText)
'ActiveControl.Text = String.Empty
End Sub
Private Sub mnuEditCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Clipboard.SetDataObject(CType(ActiveControl, TextBox).SelectedText)
End Sub
Private Sub mnuEditPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Dim oDataObject As IDataObject
'oDataObject = Clipboard.GetDataObject()
'If oDataObject.GetDataPresent(DataFormats.Text) Then
'CType(ActiveControl, TextBox).SelectedText = CType(oDataObject.GetData(DataFormats.Text), String)
'End If
End Sub
Private Sub ToolStripDropDownButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub GeçmişSayfalarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked
End Sub
Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub ToolStripSplitButton1_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub HataBildirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HataBildirToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub Dur_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dur.Click
Dur.BringToFront()
End Sub
End Class