vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Listvview und Eintrag suchen 
Autor: ModeratorDieter (Moderator)
Datum: 19.07.02 13:13
Hi Urs,

probier's mal so: 
<code><font color=green>' Volltext-Suche im ListView</font>
<font color=green>' Rückgabe: Index (Zeile) der Fundstelle</font>
 
<font color=#000099>Public</font> <font color=#000099>Function</font> _
  lvw_Search(lvw <font color=#000099>As</font> ListView, _
  <font color=#000099>ByVal</font> sText <font color=#000099>As</font> <font _
  color=#000099>String</font>, _
  Optional <font color=#000099>ByVal</font> lStartRow <font _
  color=#000099>As</font> <font color=#000099>Integer</font> = 1) <font _
  color=#000099>As</font> <font color=#000099>Integer</font>
 
  <font color=#000099>Dim</font> itemX <font color=#000099>As</font> ListItem
  <font color=#000099>Dim</font> i <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> u <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> iRow <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=green>' Groß-/Kleinschreibung ignorieren</font>
  sText = LCase$(sText)
 
  <font color=#000099>For</font> i = lStartRow <font color=#000099>To</font> _
    lvw.ListItems.Count
    <font color=#000099>Set</font> itemX = lvw.ListItems(i)
 
    <font color=#000099>With</font> itemX
      <font color=#000099>If</font> InStr(LCase$(.Text), sText) > 0 <font _
        color=#000099>Then</font>
        <font color=green>' Gefunden in der Text-Eigenschaft</font>
        iRow = i: <font color=#000099>Exit</font> <font color=#000099>For</font>
 
      <font color=#000099>Else</font>
        <font color=green>' SubItems durchsuchen</font>
        <font color=#000099>For</font> u = 1 <font color=#000099>To</font> _
          lvw.ColumnHeaders.Count - 1
          <font color=#000099>If</font> InStr(LCase$(.SubItems(i)), sText) > 0 _
          <font color=#000099>Then</font>
            <font color=green>' Gefunden in einem der SubItems</font>
            iRow = i: <font color=#000099>Exit</font> <font _
              color=#000099>For</font>
          <font color=#000099>End</font> <font color=#000099>If</font>
        <font color=#000099>Next</font> u
      <font color=#000099>End</font> <font color=#000099>If</font>
    <font color=#000099>End</font> <font color=#000099>With</font>
  <font color=#000099>Next</font> i
 
  lvw_Search = iRow
<font color=#000099>End</font> <font color=#000099>Function</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Listvview und Eintrag suchen54Urs19.07.02 10:38
Re: Listvview und Eintrag suchen252ModeratorDieter19.07.02 13:13
Re: Listvview und Eintrag suchen41Urs19.07.02 14:09
Re: Listvview und Eintrag suchen358ModeratorDieter19.07.02 14:51
Re: Listvview und Eintrag suchen33Urs19.07.02 17:03

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel