[VBA] Büyüyen Liste Kutusu Ile Arama çalışması
#1
siz değerli üstatlarımızın yaptığı güzel bir seçenek ile arama örneği var. 
bu örnekte iki liste kutusu kullanırsak ve aramadaki kayıt sayısına bağlı olarak liste kutuları tek kayıt is tek kayıt kadar büyüklüğe sahip olsa
2 kayıt ise iki kayıt kadar büyüklüğe sahit olsa ......
max 10 kayıt ile büyüklük sınırlı olsa.

İkinci liste kutusu ise birincinin bitiminden başlayıp ikincinin kayıt sayısı kadar kendini aşağı doğru kaydırsa max 10 kayıta ulaşınca oda sabit kalsa gibi bir örnek yapmak istedim. ama bilgim yetmedi.

iki listede aynı anda dinamik arama yaptırıyorum. çokta hızlı çalışıyor. ama birazda görsellik olsa güzel olur diye düşünüyorum.


Eklenti Dosyaları
.rar   Arama.rar (Boyut: 23,13 KB / İndirilme: 66)



  Alıntı
Bu mesajı beğenenler:
#2
sayın @serdem48 temel mantığı aşağıdaki gibidir 
Visual Basic
  1. Dim intBoy1,intBoy2 As Integer
  2. Dim intTop As Long
  3. intTop = Me.Liste2.Top
  4. intBoy1 = Me.Liste2.ListCount - 1
  5. intBoy2 = Me.Liste4.ListCount - 1
  6. If intBoy1 > 10 Then intBoy1 = 10
  7. If intBoy2 > 10 Then intBoy2 = 10
  8. Me.Liste2.Height = 300 * Abs(intBoy1) + 310
  9. Me.Liste4.Height = 300 * Abs(intBoy1) + 310
  10. Me.Liste4.Top = intTop + 300 * Abs(intBoy1) + 500





  Alıntı
Bu mesajı beğenenler: serdem48
#3
Elinize sağlık. biraz değişiklik ile ekteki halini aldı. güzel oldu. şöyle bir durum var mesela isim ile aratırken kelimenin her harfinde yazdıkça dinamik arama yapmıyor. sizce ne eksiği var.


Eklenti Dosyaları
.rar   Arama.rar (Boyut: 503,69 KB / İndirilme: 85)



  Alıntı
Bu mesajı beğenenler:
#4
ben bir sorun göremedim, eklenen yada silinen her harften sonra arama güncellendi.
hangi adımları uygulayınca belirttiğiniz hata oluştu?



  Alıntı
Bu mesajı beğenenler:
#5
Arama dinamik olarak oluyor. Küçülme dinamik olmuyor. böylede güzel ve kullanışlı bir örnek oldu sayenizde teşekkür ediyorum.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Arama Sorunu Pasham 0 123 08-04-2024, 14:32
Son Mesaj: Pasham
  [FORM] metin kutusu kaydırma onkay 5 1.917 27-12-2023, 13:24
Son Mesaj: dsezgin
  Metin Kutusu Adı Değiştirme Hk. snapper 9 233 08-11-2023, 01:12
Son Mesaj: dsezgin
  [TABLO] çoklu Birleşik Giriş Kutusu RASİMPEH 2 147 19-09-2023, 04:53
Son Mesaj: RASİMPEH
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 374 21-07-2023, 10:31
Son Mesaj: onur_can
  [FORM] Forma Arama Ekleyemedim :( finishim 16 537 16-05-2023, 12:44
Son Mesaj: finishim
  [SORGU] Sorgu Tasarımında Tarihler Ve Arama Kriter Kullanma feraz 8 375 06-04-2023, 12:31
Son Mesaj: halily
  Liste Kutusunda Arama uzays 2 245 12-01-2023, 16:14
Son Mesaj: uzays

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi