Dim i say = "e" say e olsun For i = 0 To 10000 ben bunu örnek teşkil etsin diye yazdım. sen burada aramayı yaptır. If say = "e" Then eğer say e ise yap List1. AddItem i list1'e "i"yi yaz Else say "e"den farklı ise Exit Sub sub'u sonlandır. End If DoEvents bekletme kodu Next End Sub dostum burada "List1. AddItem i list1'e "i"yi yaz" yazan yere senin arama kodlarını yaz nerede neyi aratıyosan. durdurma butonunada say değişkenine başka bişey ata. arama durur.

arakdasım dosyaya veya xml at ordan okumayı dene..

Option Explicit Dim say Private Sub Command1_Click Dim i say = "e" say e olsun For i = 0 To 10000 ben bunu örnek teşkil etsin diye yazdım. sen burada aramayı yaptır. If say = "e" Then eğer say e ise yap List1. AddItem i list1'e "i"yi yaz Else say "e"den farklı ise Exit Sub sub'u sonlandır. End If DoEvents bekletme kodu Next End Sub Private Sub Command2_Click say = "h" say h olsun End Sub Al bu kodlar işini görür incele... hazır lokma yok yanlarına açıklama yaptım. daha da sorun olmaz sanırım. ama yinede bak şimdi aramayı yaptırırken ara=true yaparsın sonra sonlandır butonuna ara=false yazarsın arama döngüsünün başınada ara=true ise ara dersin değilse sub'dan çık dersin arama biter. İlk sorunu halletmişsin ama yinede sorun varsa söyle.

arkadaşım listbox taki text leri satır satır al başka bi textbox a. ondan sonra textbox u kaydetmeyi dene bide. while döngüsü kullanarak yapabilirsin. Text1. Text = Text1 + vbCrLf + List1. Text bu kodu kullanarak satır satır aynen

Arkadaşlar İlginiz İçin teşekkürler. Sorunu Çözdüm. Birsorum Daha Olacak. Proje Dediğim gibi Searcher tarzı Bişi Örneğin Arama Kodunu YAzdım Arama Başladı Aramayı Durdurmak İçin Nasıl Bişi Yapabilirim? Tekrar Tekrar Hepinize Teşekkürler.

Dostum ilgin İçin Saol Ama Çözemedim bu İşi Biraz Daha Açsan?:d

Arkadaşlar Visual Basicde Yeniyim. Sorunum Searcher Tarzı Bi Program YAzdım Ancak Programda Arama Sonucu Listbox'a Dökülen Siteleri Kaydetemiyorum. Forumda Aradım : http://www.wardom.org/listbox-icerigini-dosyaya-kaydetmek-t87398.html?t=87398&highlight=listbox Bunu Bulabildim Ancak Hata Verdi Yada Ben Yapamamış Olabilirim. Örneğin Notpad'e Bişeyi Kaydederken Size Dosya Türü Dİzin Vs. Gibi Şeyler Soruyo Programada Böle Birşey EKleyebilirmiyiz. Yardımlarınız İçin Şimdiden Teşekkürler...