XProfan

Français

###################################################################
DOPPELTE LISTBOXEINTRÄGE LÖSCHEN
Schnelle Funktion zum effacer doppelter Zeilen dans sortierten List-
Boxes.
Copyright Sven Bader 2001
cette Voir le texte source ist Freeware. chez Verwendung s'il te plaît source angeben.
Kritik et Anregungen à: svenbader.de
Pour eventuell auftretende Schäden wird aucun la responsabilité übernommen.
###################################################################
Déclarer listbox&,button&
Fenêtre %MaxX,%MaxY-640,480
listbox&  =  Contrôle(ListBox,,$54211143,10,28,600,300,%hwnd,0,%HINSTANCE,$0200)
button&   =  Contrôle(Button,Doppelte Zeilen effacer,$54010000,10,328,600,30,%hwnd,0,%HINSTANCE,$0200)

WhileLoop 260 Listbox füllen

    AddStrings(listbox&,Chr$(add(Tour(26),65)))

Endwhile

Fenêtre (%MaxX / 2 - 320), (%MaxY / 2 - 240) - 640,480 la fenêtre dans Bildschirmmitte Montrer
Cls RGB(192,192,192)

Proc DeleteDoubleLines

    Paramètres listbox&
    Déclarer i%
    SendMessage(listbox&,11,0,0) Listbox Refresh blockieren (plus rapide)

    Tandis que Neq(i%,Getcount(listbox&))

        Si GetString$(listbox&,i%) = GetString$(listbox&,(i% + 1))

            DeleteString(listbox&,i%)
            Décembre i%

        EndIf

        Inc i%

    Endwhile

    SendMessage(listbox&,11,1,0) Listbox Refresh wieder freigeben

ENDPROC

Tandis que %ScanKey <> 27

    WaitInput
    Cas GetFocus(button&) : DeleteDoubleLines listbox&

Endwhile