Hallo,
Das waren schon zwei Beispiele ;-)
Listbox&=CreateListbox(...)
Declare Begriff$,Position%
Begriff$="Das suche ich"
Position%=SendMessage(Listbox&, $018C, -1, Addr(Begriff$))
If Position%=-1
Print "Nicht da"
ElseIf Position%>-1
Print "Doch da"
Endif
Viel Erfolg
Jörg
|