19. januar 2003 - 17:15Der er
7 kommentarer og 1 løsning
text < list
Hej med jer alle sammen jeg er ny og det er det første ? jeg har stillet. jeg har et problem med VB. som jeg nu gerne vil have lidt hjælp med. jeg er i gang med at lave et DVD katalog og har lavet en liste med filmne i og en textbox hvor man kan søge efter filmene. jeg vil gerne have at man kan søge på alt som starter med et givent bogstav eller ord som man intaster i textboxen jeg har prøvet med : InStr(List1.List(i), Text1.Text) > 0 Then List2.AddItem List1.List(i) men den finder alt som indeholder det intastet er der nogle der kan hjælpe mig med det
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub Text1_Change() List2.Clear Dim I As Long List2.Visible = False For I = 0 To List1.ListCount - 1 If LCase(List1.List(I)) Like "*" & LCase(Text1.Text) & "*" Then List2.AddItem List1.List(I) End If Next List2.Visible = True End Sub
Ovenstående kode løber alle filmene i List1 igennem og undersøger, hvilke film der passer til søgeteksten i tekstfeltet, Text1. Dette sker hver gang du ændrer i søgningen.
Sig til, hvis der er problemer eller koden ikke virker efter hensigten.
Private Sub Text1_Change() List2.Clear Dim I As Long List2.Visible = False For I = 0 To List1.ListCount - 1 If LCase(List1.List(I)) Like "*" & LCase(Replace(Text1.Text, " ", "*")) & "*" Then List2.AddItem List1.List(I) End If Next List2.Visible = True End Sub
den tager både bogstaver midt i orderne og i begyndelse det skulle gerne kun være de or dre starter med det intastet. eks. taster man h kommer der nogle med k hvor der er h i og også dem med h
Private Sub Text1_Change() List2.Clear Dim I As Long List2.Visible = False For I = 0 To List1.ListCount - 1 If LCase(List1.List(I)) Like LCase(Replace(Text1.Text, " ", "*")) & "*" Then List2.AddItem List1.List(I) End If Next List2.Visible = True End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
