AccessTr.neT

Tam Versiyon: TextBox & ListBox
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Ö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
Çalışmanızı da ekleyerek soru sormalısınız. Böylece size daha kolay yardımcı olunacaktır.
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
Örnekten kastımız projenin kodlarını değil, Projenin tamamını eklemeniz... Saygılar
Kusura Bakmayım Yeni Olduğuma

Proje Ektedir saygılarımla
Yardım Edebilecek Yokmu?
Sayfalar: 1 2