TheWayEnd VB.Net Program ve Dersleri

1 2 3

Evet arkadaşlar kendi kodlamış olduğum Vb.Net programlarımı kodlarıyla birlikte sizlere bu konu altında paylaşacağım.
Derslerimiz Görsel ve Metin şeklinde devam edecektir.

Proje 1 : TheWayEnd FaLMatik

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 TextBox2.Visible = False

 WebBrowser1.Visible = False

	End Sub

	Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=1")

	End Sub



	Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

 TextBox2.Text = WebBrowser1.DocumentText

 Dim ara, aranan As String

 Dim ilk, son, deg1

 ara = TextBox2.Text

 deg1 = deg1 & ara

 aranan = "<strong><big>"

 ilk = InStr(1, deg1, aranan) + Len(aranan)

 If ilk <> Len(aranan) Then

 son = InStr(ilk, deg1, "<br>") - ilk

 TextBox1.Text = (Mid(deg1, ilk, son))

 End If

	End Sub



	Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=2")

	End Sub



	Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=3")

	End Sub



	Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=4")

	End Sub



	Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=5")

	End Sub



	Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=6")

	End Sub



	Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7")

	End Sub



	Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=8")

	End Sub



	Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=9")

	End Sub



	Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=10")

	End Sub



	Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=11")

	End Sub



	Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.CheckedChanged

 WebBrowser1.Navigate("http://www.muneccim.com/gunluk_fal/bugun.asp?burc=12")

	End Sub



	Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

 Shell("explorer.exe https://accesstr.net")

	End Sub

End Class

Kod:
Program İçin Gerekli Eklentiler

1- 12 Ad. radiobutton

2- webbrowser

3- 2 Adet TextBox

Proje 2 : TheWayEnd İcon Bulucu V1.0

Imports System.Drawing.Imaging

Public Class Form1

	Inherits System.Windows.Forms.Form

	Dim w As IO.StreamWriter

	Dim r As IO.StreamReader

	Private WithEvents web As New WebBrowser

	Dim i As Integer = 0

	Dim clients As New System.Net.WebClient

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama)

 Label13.Visible = True

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted

 On Error Resume Next

 ListBox1.Items.Clear()

 Dim resim As HtmlElement

 Dim icerik As HtmlElementCollection = web.Document.GetElementsByTagName("img")

 For Each resim In icerik

 ListBox1.Items.Add(resim.GetAttribute("src"))

 Next

 ListBox1.Items.Remove("http://www.iconarchive.com/static/images/ia/logo/logo.png")

 Dim oku As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox1.Image = System.Drawing.Image.FromStream(oku)

 i += 1

 Dim okul As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox2.Image = System.Drawing.Image.FromStream(okul)

 i += 1

 Dim okul3 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox3.Image = System.Drawing.Image.FromStream(okul3)

 i += 1

 Dim okul2 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox4.Image = System.Drawing.Image.FromStream(okul2)

 i += 1

 Dim okul1 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox5.Image = System.Drawing.Image.FromStream(okul1)

 i += 1

 Dim okul14 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox6.Image = System.Drawing.Image.FromStream(okul14)

 i += 1

 Dim okul13 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox7.Image = System.Drawing.Image.FromStream(okul13)

 i += 1

 Dim okul122 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox8.Image = System.Drawing.Image.FromStream(okul122)

 i += 1

 Dim okul12 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox9.Image = System.Drawing.Image.FromStream(okul12)

 i += 1

 Dim okul111 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox10.Image = System.Drawing.Image.FromStream(okul111)

 i += 1

 Label13.Text = ("Yüklendi...")

	End Sub

	Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

 MsgBox("Diğer Programlar İçin https://accesstr.net/ takip edin.", vbInformation)

	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 TextBox2.Visible = False

 Label13.Visible = False

 MsgBox("Program Gereksiz Resimleri Ayıkladığından İnternet Hızına Göre Çalışmaktadır.Panik Yapmayım
	End Sub

	Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox1.Image.Save(dosya)

 End If

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 TextBox1.Text = ""

 PictureBox1.Image = Nothing

 PictureBox2.Image = Nothing

 PictureBox3.Image = Nothing

 PictureBox4.Image = Nothing

 PictureBox5.Image = Nothing

 PictureBox6.Image = Nothing

 PictureBox7.Image = Nothing

 PictureBox8.Image = Nothing

 PictureBox9.Image = Nothing

 PictureBox10.Image = Nothing

	End Sub

	Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox2.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox3.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox4.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox5.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox6.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox7.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox8.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox9.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox10.Image.Save(dosya)

 End If

	End Sub

	Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama)

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=2")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=2")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=3")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=3")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=4")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=4")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=5")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

 Shell("explorer.exe https://accesstr.net", vbNormalFocus)

	End Sub

End Class

Kod:
Program İçin Gerekli Eklentiler

1- 10 Ad. PictureBox

2- 2 Ad. Buton

3- 1 Adet TextBox

4- Labellar

Proje 3 : TheWayEnd İcon Bulucu V2.0

Imports System.Drawing.Imaging

Public Class Form1

	Inherits System.Windows.Forms.Form

	Dim w As IO.StreamWriter

	Dim r As IO.StreamReader

	Private WithEvents web, web2 As New WebBrowser

	Dim i As Integer = 0

	Dim clients As New System.Net.WebClient

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama)

 Label13.Visible = True

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted

 On Error Resume Next

 ListBox1.Items.Clear()

 Dim resim As HtmlElement

 Dim icerik As HtmlElementCollection = web.Document.GetElementsByTagName("img")

 For Each resim In icerik

 ListBox1.Items.Add(resim.GetAttribute("src"))

 Next

 ListBox1.Items.Remove("http://www.iconarchive.com/static/images/ia/logo/logo.png")

 Dim oku As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox1.Image = System.Drawing.Image.FromStream(oku)

 i += 1

 Dim okul As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox2.Image = System.Drawing.Image.FromStream(okul)

 i += 1

 Dim okul3 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox3.Image = System.Drawing.Image.FromStream(okul3)

 i += 1

 Dim okul2 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox4.Image = System.Drawing.Image.FromStream(okul2)

 i += 1

 Dim okul1 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox5.Image = System.Drawing.Image.FromStream(okul1)

 i += 1

 Dim okul14 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox6.Image = System.Drawing.Image.FromStream(okul14)

 i += 1

 Dim okul13 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox7.Image = System.Drawing.Image.FromStream(okul13)

 i += 1

 Dim okul122 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox8.Image = System.Drawing.Image.FromStream(okul122)

 i += 1

 Dim okul12 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox9.Image = System.Drawing.Image.FromStream(okul12)

 i += 1

 Dim okul111 As System.IO.Stream = clients.OpenRead(ListBox1.Items(i))

 PictureBox10.Image = System.Drawing.Image.FromStream(okul111)

 i += 1

 Label13.Text = ("Yüklendi...")

	End Sub

	Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

 MsgBox("Diğer Programlar İçin https://accesstr.net/ takip edin.", vbInformation)

	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 TextBox2.Visible = False

 Label13.Visible = False

 MsgBox("Program Gereksiz Resimleri Ayıkladığından İnternet Hızına Göre Çalışmaktadır.Panik Yapmayım
	End Sub

	Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox1.Image.Save(dosya)

 End If

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 TextBox1.Text = ""

 PictureBox1.Image = Nothing

 PictureBox2.Image = Nothing

 PictureBox3.Image = Nothing

 PictureBox4.Image = Nothing

 PictureBox5.Image = Nothing

 PictureBox6.Image = Nothing

 PictureBox7.Image = Nothing

 PictureBox8.Image = Nothing

 PictureBox9.Image = Nothing

 PictureBox10.Image = Nothing

	End Sub

	Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox2.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox3.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox4.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox5.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox6.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox7.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox8.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox9.Image.Save(dosya)

 End If

	End Sub

	Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click

 Dim dosya As String

 SaveFileDialog1.Filter = "İcon Files (*.png)|*.png|All Files (*.*)|*.*"

 If SaveFileDialog1.ShowDialog = DialogResult.OK Then

 dosya = SaveFileDialog1.FileName()

 PictureBox10.Image.Save(dosya)

 End If

	End Sub

	Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama)

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=2")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=2")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=3")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=3")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=4")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=4")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

 Dim arama As String

 arama = TextBox1.Text

 web.Navigate("http://www.iconarchive.com/search?q=" + arama + "&page=5")

 Label13.Text = ("Panik Yapmayın Yükleniyor....")

	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

 Dim tr As String

 tr = TextBox3.Text

 web2.Navigate("http://www.sozluk.net/index.php?word=" + tr)

	End Sub

	Private Sub web2_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web2.DocumentCompleted

 TextBox2.Text = web2.DocumentText

 Dim ara, aranan As String

 Dim ilk, son, deg1

 ara = TextBox2.Text

 deg1 = deg1 & ara

 aranan = "{N}</font></u>"

 ilk = InStr(1, deg1, aranan) + Len(aranan)

 If ilk <> Len(aranan) Then

 son = InStr(ilk, deg1, "<") - ilk

 TextBox1.Text = (Mid(deg1, ilk, son))

 End If

	End Sub



	Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

 Shell("explorer.exe https://accesstr.net", vbNormalFocus)

	End Sub

End Class

Kod:
Program İçin Gerekli Eklentiler

1- 10 Ad. PictureBox

2- 3 Ad. Buton

3- 3 Adet TextBox

4- Labellar

paylaşım için teşekkürler sayın TheWayEnd

Sn TheWayEnd emek paylaşım için teşekkürler. Ancak; programı kurmak isteyince şifre soruyor.
Saygılar...

Özür Dilerim

Tüm Programların Şifresi: accesstr.net

sayın TheWayEnd;
teşekkürler...

1 2 3

TheWayEnd VB.Net Program ve Dersleri

TheWayEnd

TheWayEnd

Puletin

benremix

TheWayEnd

kadirdursun