Hjælp til søg alfabetisk orden i en list box!

Her er hele det program du manglede, håber du kan bruge det!
Den gør alt hvad du bedte om bortset fra at sætte det ind i en listbox, det kan jeg ikke finde ud af, men istedet sætter den det ind i en label.

Her er hvad du skal bruge:

TextBox
name: Text1
Text: (ingenting)

Label
name: Label1
Caption: (ingenting)
Form
name: Form1
caption: (Det bestemmer du selv)

Let ikke? Her er koden så

Private Sub Text1_Change()
Dim enter

enter = Chr(13) + Chr(10)

If Not Text1.Text = "" Then
Label1.Caption = ""

If Mid(Text1.Text, 1, number) = Mid("formatering", 1, number) Then
If Not Label1.Caption = "" Then
Label1.Caption = Label1.Caption & enter
End If
Label1.Caption = "Formatering"
End If

If Mid(Text1.Text, 1, number) = Mid("diskdrev", 1, number) Then
If Not Label1.Caption = "" Then
Label1.Caption = Label1.Caption & enter
End If
Label1.Caption = Label1.Caption & "Diskdrev"
End If

If Mid(Text1.Text, 1, number) = Mid("fjernkontrol", 1, number) Then
If Not Label1.Caption = "" Then
Label1.Caption = Label1.Caption & enter
End If
Label1.Caption = Label1.Caption & "Fjernkontrol"
End If

End If

End Sub

Public Function number()
Dim Y
Y = "1"

start:
If Not Mid(Text1.Text, Y, 1) = "" Then
Y = Str(Y) + 1
GoSub start
Else
number = Str(Y) - 1
End If
End Function

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
Label1.Caption = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Label1.Caption = ""
End If
End Sub

Når så du så vil tilføje et ord skal du bare skrive:

If Mid(Text1.Text, 1, number) = Mid("Det ord du ville tilføje", 1, number) Then
If Not Label1.Caption = "" Then
Label1.Caption = Label1.Caption & enter
End If
Label1.Caption = Label1.Caption & "Det ord du ville tilføje"
End If

Hej Steffen,

Jeg går ud fra at du gerne vil sortere indholdet i din listbox eller hvad?
Hvis det er tilfældet så skal du bare sætte listboxens property 'Sorted' til true så bliver indholdet sorteret alfabetisk.

Hej !!!

Er der nogen der kan hjælpe mig med at lave så man kan søge alfabetisk i en listbox ???
plz

Jeg giver 160 Up til den første der kommer med et rigtigt svar

MVH

Steffen

Ja det skal jeg, men det skal være sådan at når man feks har skrevet Adobe så begynder den at finde Adobe ned af listen osv. hvis du forstår. men jeg kan give dig et eksempel på det hvis du går ind i hjælp i din windows så når man begynder og skrive feks fjernforbindelse, så inden du har skrevet det helt kommer der en masse frem der starter med f,j,e,r,n,f,o,r,b,i,n,d,e,l,s,e !

Håber du/i kan hjælpe mig nu

Du får et svar inden for et par dage, grunden er at jeg godt ved nogen lunde hvordan det skal gøres jeg skal bare lige opfriske det ved at lave det selv.

Jeg prøvede lige hurtigt med noget:

if Mid(Text1.Text, number, 1) = Mid(fjernforbindelse, number, 1) then
label1.caption = "fjernforbindelse"
end if

Text1 = der hvor man skriver og number = antal tegn i Text1

problemmet er at jeg ikke lige kan finde ud af hvordan man tæller tegn, men ellers virker det faktisk prima!!!

når du så skal tilføje punktet "søgning" skriver du:

if Mid(Text1.Text, number, 1) = Mid("fjernforbindelse", number, 1) then
label1.caption = "fjernforbindelse"
end if
if Mid(Text1.Text, number, 1) = Mid("søgning", number, 1) then
label1.caption = "Søgning"
end if

senere i programmet SKAL du så bruge noget andet end label1.caption, f.eks. din listbox. For så kan du jo så tilføje links til de enkelte punkter.

Så det er mit bud på dit svar!
Som tidligere sagt kommer der endnu et svar når jeg har fundet ud af noget mere... til den tid kan du selv prøve lidt.

Er der nogen der kan hjælpe mig med at lave så man kan søge alfabetisk i en listbox ???

PS. den letteste måde at få mit lille ovenstående program til at skrive svarende i alfabetisk rækkefølge er at skrive orderne (jeg nævnte tidligere hvordan du tilføjede ord) i alfabetisk rækkefølge istedet for at spørge computeren om den kan gøre det.

Det kommer selfølgelig an på hvor mange ord det er du vil tilføje...

Er der nogen der kan hjælpe mig med at lave så man kan søge alfabetisk i en listbox ???


PS. den letteste måde at få mit lille ovenstående program til at skrive svarende i alfabetisk rækkefølge er at skrive orderne (jeg nævnte tidligere hvordan du tilføjede ord) i alfabetisk rækkefølge istedet for at spørge computeren om den kan gøre det.

Det kommer selfølgelig an på hvor mange ord det er du vil tilføje...

Okay HAP du får dine points nu..! og tak for hjælpen
---------------------
steffen@nightman.dk

---------------------