AccessTr.neT

Bul · 09/08/2011, 13:37

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

[Resim: of4vwk.jpg]

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

[Resim: 245ndkh.jpg]

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)", vbInformation)
	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

Bul · 09/08/2011, 13:44

Proje 3 : TheWayEnd İcon Bulucu V2.0

[Resim: 66f7t1.jpg]

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)", vbInformation)
	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

Bul · 09/08/2011, 18:38

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

Bul · 09/08/2011, 21:47

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

Bul · 09/08/2011, 23:36

Özür Dilerim

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

Bul · 10/08/2011, 09:48

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

AccessTr.neT

TheWayEnd VB.Net Program ve Dersleri

TheWayEnd VB.Net Program ve Dersleri

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri