AccessTr.neT
TextBox & ListBox - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: TextBox & ListBox (/konu-textbox-listbox.html)

Sayfalar: 1 2


TextBox & ListBox - TheWayEnd - 20/06/2011

Ö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


Cvp: TextBox & ListBox - aobendes - 20/06/2011

Çalışmanızı da ekleyerek soru sormalısınız. Böylece size daha kolay yardımcı olunacaktır.


Cvp: TextBox & ListBox - TheWayEnd - 20/06/2011

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


Cvp: TextBox & ListBox - ~~KaG~~ - 20/06/2011

Örnekten kastımız projenin kodlarını değil, Projenin tamamını eklemeniz... Saygılar


Cvp: TextBox & ListBox - TheWayEnd - 20/06/2011

Kusura Bakmayım Yeni Olduğuma

Proje Ektedir saygılarımla


Cvp: TextBox & ListBox - TheWayEnd - 21/06/2011

Yardım Edebilecek Yokmu?