TextBox & ListBox

1 2
20/06/2011, 10:47

TheWayEnd

Öncelikle Selamlar

Ben Bir Browser kodluyorum yalnız bu browserda google araması yaptırıyor ve sonuçlanan linkleri listboxa aktarmak istiyorum.

1.denememde

google arama sonuç kaynağını textboxa aktardım
daha sonra iki değişken tanımlayıp linki çektim.Ama sadece 1 link çekebiliyorum

bu konuda yardımlarınızı bekliyorum

saygılar
20/06/2011, 11:00

aobendes

Çalışmanızı da ekleyerek soru sormalısınız. Böylece size daha kolay yardımcı olunacaktır.
20/06/2011, 11:19

TheWayEnd

Kodlar Bunlar

Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
TextBox1.Text = WebBrowser1.DocumentText

Dim ara, aranan As String
Dim ilk, son, deg1
ara = TextBox1.Text
deg1 = deg1 & ara
aranan = "<cite>"
ilk = InStr(1, deg1, aranan) + Len(aranan)
If ilk <> Len(aranan) Then
son = InStr(ilk, deg1, "/") - ilk

ListBox1.Items.Add(Mid(deg1, ilk, son))

End If

Label1.Text = ListBox1.Items.Count


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

Dim daw As String
daw = TextBox2.Text
WebBrowser1.Navigate("http://www.google.com.tr/search?as_q=" + daw)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = 0
TextBox1.Visible = False
End Sub
End Class
20/06/2011, 11:34

~~KaG~~

Örnekten kastımız projenin kodlarını değil, Projenin tamamını eklemeniz... Saygılar
20/06/2011, 11:39

TheWayEnd

Kusura Bakmayım Yeni Olduğuma

Proje Ektedir saygılarımla
21/06/2011, 10:27

TheWayEnd

Yardım Edebilecek Yokmu?
1 2