http://www.youtube.com/embed/k68m6_AO9XU" frameborder="0" allowfullscreen>
Kod:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/anasayfa.html") WebBrowser2.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/chat.html") WebBrowser3.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/duyuru.html") End Sub Private Sub TvKanallarıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/tv.html") End Sub Private Sub RadyoKanallarıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/radyo.html") End Sub Private Sub KapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End End Sub Private Sub AnasayfaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/anasayfa.html") End Sub Private Sub YenileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser1.Refresh() End Sub Private Sub ChatiAcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser2.Show() End Sub Private Sub YenileToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser2.Refresh() End Sub Private Sub KapatToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) WebBrowser2.Hide() End Sub Private Sub VIPTVToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIPTVToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/vip.html") End Sub Private Sub LocaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LocaToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/loca.html") End Sub Private Sub SinemaxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SinemaxToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/sine.html") End Sub Private Sub Salon1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon1ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/1.html") End Sub Private Sub Salon2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon2ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/2.html") End Sub Private Sub Salon3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon3ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/3.html") End Sub Private Sub Salon4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon4ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/4.html") End Sub Private Sub Salon5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon5ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/5.html") End Sub Private Sub Salon6ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon6ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/6.html") End Sub Private Sub Salon7ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salon7ToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/7.html") End Sub Private Sub DizimaxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DizimaxToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/dizi.html") End Sub Private Sub MacLinkleriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MacLinkleriToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/internetyayin/link.html") End Sub Private Sub MacOzetleriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MacOzetleriToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/ozet.html") End Sub Private Sub BedavaSMSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BedavaSMSToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/sms.html") End Sub Private Sub GoogleMapsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoogleMapsToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/maps.html") End Sub Private Sub OnlinePhotoshopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OnlinePhotoshopToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/foto.html") End Sub Private Sub HızTestiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HızTestiToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/hiz.html") End Sub Private Sub CeviriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CeviriToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/ceviri.html") End Sub Private Sub TeletextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TeletextToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/teletext.html") End Sub Private Sub TurkWebTVToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TurkWebTVToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/trwebtv.html") End Sub Private Sub ForumTRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForumTRToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/interaktif/frmtr.html") End Sub Private Sub CanlıKameralarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CanlıKameralarToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/extra/cam.html") End Sub Private Sub GazetelerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GazetelerToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/extra/gaste.html") End Sub Private Sub PuanDurumuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PuanDurumuToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/extra/puan.html") End Sub Private Sub İddiaProgramıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles İddiaProgramıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/extra/idda.html") End Sub Private Sub CanlıSonuclarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CanlıSonuclarToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/extra/canli.html") End Sub Private Sub DnsAyarıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DnsAyarıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/yardim/dns.html") End Sub Private Sub ChatKullanımıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChatKullanımıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/yardim/chat.html") End Sub Private Sub SıkSorulanSorularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SıkSorulanSorularToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/yardim/soru.html") End Sub Private Sub ProgramıKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgramıKapatToolStripMenuItem.Click End End Sub Private Sub AnaSayfaToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnaSayfaToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/anasayfa.html") End Sub Private Sub YayınAkışıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YayınAkışıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/akis.html") End Sub Private Sub YasalUyarıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YasalUyarıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/uyari.html") End Sub Private Sub YayınıYenileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YayınıYenileToolStripMenuItem.Click WebBrowser1.Refresh() End Sub Private Sub AcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcToolStripMenuItem.Click WebBrowser2.Show() End Sub Private Sub KapatToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click WebBrowser2.Hide() End Sub Private Sub YenileToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YenileToolStripMenuItem.Click WebBrowser2.Refresh() End Sub Private Sub TvKanallarıToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TvKanallarıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/tv.html") End Sub Private Sub RadyoKanallarıToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadyoKanallarıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/radyo.html") End Sub Private Sub TivibuKanallarıToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TivibuKanallarıToolStripMenuItem.Click WebBrowser1.Navigate("http://forumtrwebtv.ucoz.com/forumtrwebtv/tivibu.html") End Sub End Class 'Kodlar Calınmaya Musaittir. By AKIN BUYUR
ForumTR WebTV İndir !
Yorumlarınızı ve repleri bekliyorum ....
__________________