Új hozzászólás Aktív témák

• #21360 Vladek83 tag

  Új Válasz 2014-04-23 18:24:20 #21360

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Vladek83

  tag

  Sziasztok!

  Elakadtam egy kicsit.... van egy Textbox amibe elkezdek írni, akkor a Listbox-ban keresi az adott értéket, ez idáig működik is. Viszont azt meg lehetne oldani, hogy ha olyan értékek kerülnek beírásba ami nem szerepel a Listbox-ba, akkor semmi se látszódjon benne? Mondjuk ez már csak "kozmetika" lenne...

  Private Sub TextBox1_Change()

  'Cikkszám szerinti keresés

  Dim i As Long
  Dim sFind As String

  sFind = Me.TextBox1.Text

  If Len(sFind) = 0 Then
  Me.lbArlista.ListIndex = -1
  Me.lbArlista.TopIndex = 0
  Else
  For i = 0 To Me.lbArlista.ListCount - 1
  If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
  Me.lbArlista.TopIndex = i
  Me.lbArlista.ListIndex = i
  Exit For
  End If
  Next i
  End If

  End Sub

Új hozzászólás Aktív témák