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? |