List zoeken

Status
Niet open voor verdere reacties.

XenomX

Gebruiker
Lid geworden
27 apr 2002
Berichten
822
Hoe kan ik iets zoeken uit een lijst (match) had zelf al ge*** met for a = 1 to ...

Mvg,
 
Hopelijk heb ik je verhaal goed begrepen.

Hallo XenomX,

Weet eigenlijk niet precies wat je bedoelt. Zal toch maar even
gissen.

Probeer dit:

1) Plaats een List- en Text-box op het Form.


Code:
2) Private Sub Form_Load()
       Dim x As Integer
       For x = 1 To 10
           List1.AddItem x
       Next x
   End Sub

3) Private Sub Text1_KeyPress(KeyAscii As Integer)
      If (KeyAscii = 13) Then
           Dim x As Integer
           For x = 1 To List1.ListCount
               If Text1 = x Then
                   List1 = x
                   Exit For
               End If
           Next x
           If x = 11 Then
               MsgBox "Niet gevonden"
           End If
      End If
   End Sub

Werkwijze:
1) Run het programma.
2) Typ (bijvoorbeeld) een 3 in de Text-box en geef een
Enter.
3) Je ziet, dat het getal 3 in de List-box geselecteerd staat. Dus, is het gezochte getal 3 gevonden.

Groetjes,

Dennis.
 
Laatst bewerkt:
thnx

Ah mooi, het werk. Bedankt !

Maar nu wil ik ook dat waarneer bijv. in de list 'Piet' staat hij het verandert naar 'PietPiet' zegmaar.

Zodat hij piet zoekt uit de lijst en dan pietpiet er van maakt,
Misschien kom ik er zelf ook wel achter want met die andere code ben ik er een stuk wijzer uit geworden...

Mvg, :thumb:
 
Origineel in een array bewaren.

Hallo XenomX,

Zo dan maar.

Code:
1) In General Declaration van het Form:
Dim naam(5) As String
Dim x, y As Integer

2) Private Sub Form_Load()
       naam(0) = "Kees"
       naam(1) = "Johan"
       naam(2) = "Robert"
       naam(3) = "Klaas"
       naam(4) = "Bertus"
       For x = 0 To 4
           List1.AddItem naam(x)
       Next x
   End Sub

3) Private Sub Text1_KeyPress(KeyAscii As Integer)
      If (KeyAscii = 13) Then
           For x = 0 To 4
               If Text1 = naam(x) Then
                   naam(x) = Text1 & Text1
                   List1.Clear
                   For y = 0 To 4
                       List1.AddItem naam(y)
                   Next y
                   List1.ListIndex = x
                   Exit For
               End If
           Next x
           If x = 5 Then
               MsgBox "Niet gevonden"
           End If
      End If
   End Sub


Groetjes,

Dennis.
 
Laatst bewerkt:
thnx

Bedankt, Dennis hierk om ik wel even mee vooruit.

Mvg,
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan