|
|
|
|
| |
Aradığını Bul
'Formunuza bir tane listbox,bir adet text bir adet
'command1 koyun.
'İlk önce listeye alfabetik sıraları birbirine
'çok yakın bir kaç kelime yazalım.
Private Sub Command1_Click()
List1.Additem "Araba"
List1.Additem "Arkaya"
List1.Additem "Armağan"
List1.Additem "Araya"
List1.Additem "Arada"
List1.Additem "Arasana"
List1.Additem "Kazım"
List1.Additem "Cabar"
End Sub
'Şimdi arama yapabilmek için gereklş ola kodları
'Yazalım
Private Sub Text1_Change()
On Error Resume Next
Dim i,a
for i=0 to len(text1)
if left(list1.list(i),len(text1))=text1 then
list1.listindex=i
end if
next
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24645 ziyaretçi (38795 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
