Hızlı Arama (Listbox VB 6.0)


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    0 Yorum    97 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 11.05.2016, 22:43:01 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

'Listbox taki bilgiyi bulmak bazen bir program icin vakit kaybi olusturabilir. Asagiya kolarini ekledigim kaynak sayesinde listbox'ta bir bilgiyi bulmaz cok hizli ve kolay...


'Eminimki bircok arkadasin isine yarayacaktir.



PrivateDeclareFunction SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd AsLongByValwMsg AsLongByValwParam AsLongByVal lParam AsStringAsLong
PrivateConst LB_ERR = (-1)

Function ListFindText(iListBox As ListBox, iFindText AsStringOptionalByVal iFromIndex AsLong = -1, OptionalByValiSelect AsBoolean = TrueAsLong
Dim nMsg AsLong
Dim nIndex AsLong

Const LB_FINDSTRING = &H18F
Const LB_SELECTSTRING = &H18C
Const LB_FINDSTRINGEXACT = &H1A2

SelectCase iExact
CaseFalse
SelectCase iSelect
CaseTrue
nMsg = LB_SELECTSTRING
CaseFalse
nMsg = LB_FINDSTRING
EndSelect
ListFindText = SendMessageStr(iListBox.hwnd, nMsg, iFromIndex, iFindText)
CaseTrue
With iListBox
nIndex = SendMessageStr(.hwnd, LB_FINDSTRINGEXACT, iFromIndex, iFindText)
If iSelect Then
.ListIndex = nIndex
EndIf
EndWith
ListFindText = nIndex
EndSelect
EndFunction

PrivateSub Form_Load()
Me.Caption = "FindList"
For X = 1 To 100000
List1.AddItem ("Test") & X
Next X
Text1.Text = ""
EndSub

PrivateSub Text1_Change()
ListFindText List1, Text1.Text, -1, True
EndSub

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         










Aradığınızı Bulamadınız Mı ?
 Çalışıyor Spam Bot (Basit,Hızlı)

Konuyu görüntüleyenler:
1 Misafir