Proje 5 : TheWayEnd Gazete Manşetleri
Public Class Form1
Private Sub Label1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/sabah-gazetesi/bugun.jpg")
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/aksam-gazetesi/bugun.jpg")
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/taraf-gazetesi/bugun.jpg")
End Sub
Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/zaman-gazetesi/bugun.jpg")
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/vatan-gazetesi/bugun.jpg")
End Sub
Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/star-gazetesi/bugun.jpg")
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/posta-gazetesi/bugun.jpg")
End Sub
Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/vakit-gazetesi/bugun.jpg")
End Sub
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/fanatik-gazetesi/bugun.jpg")
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/milliyet-gazetesi/bugun.jpg")
End Sub
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/radikal-gazetesi/bugun.jpg")
End Sub
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/takvim-gazetesi/bugun.jpg")
End Sub
Private Sub Label17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label17.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/fotomac-gazetesi/bugun.jpg")
End Sub
Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label16.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/turkiye-gazetesi/bugun.jpg")
End Sub
Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/sozcu-gazetesi/bugun.jpg")
End Sub
Private Sub Label18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/bugun-gazetesi/bugun.jpg")
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/hurriyet-gazetesi/bugun.jpg")
End Sub
Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/haberturk-gazetesi/bugun.jpg")
End Sub
Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label19.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/yenisafak-gazetesi/bugun.jpg")
End Sub
Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label20.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/fotospor-gazetesi/bugun.jpg")
End Sub
Private Sub Label21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label21.Click
PictureBox1.Visible = True
PictureBox1.Load("http://resimler.haberler.com/gazete/gunes-gazetesi/bugun.jpg")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
End Sub
End Class
Kod:
Program İçin Gerekli Eklentiler
1- 1 Ad. PictureBox
2- Labellar