XProfan

Deutsch

[quote:482550d8c6]list_box&=CREATE(GRIDBOX,R_win&,Datei-Namen;0;200,1,10,140,200,170)

list_box&=CREATE(SORTEDLISTBOX,R_win&,,10,140,200,170)
[/quote:482550d8c6]
Mir ist aufgefallen, dass die Sortierung in der sortierten Listbox und in der Gridbox mit der Angabe 1 (sortiert) voneinander abweichen. Mache ich den Fehler oder gibt es da einen Unterschied ? In beiden Bildern wurde das gleiche Unterverzeichnis geladen.

gridbox.jpg Vorschau

20 kB

Kurzbeschreibung:

Gridbox-Anzeige

Hochgeladen:

16.10.2006

Ladeanzahl:

Herunterladen

listbox.jpg Vorschau

18 kB

Kurzbeschreibung:

Listbox-Anzeige

Hochgeladen:

16.10.2006

Ladeanzahl:

Herunterladen

16.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Da anscheinend keiner eine Antwort weiss, kann nur noch Roland helfen -

@Roland
Warum sortiert die Gridbox nicht in der gleichen Art wie die SortedListbox ???

16.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Kann es sein, daß Du zu Ungeduld neigst? ;)

Ansonsten könnte ich die Frage nur an Bill Gates weiterleiten. In beiden Fällen setze ich einfach das Sortier-Flag (LVS_SORTASCENDING bzw. LBS_SORT). Auf die Sortierung habe ich und somit XProfan nicht den geringsten Einfluß.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

16.10.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Habe mir eine Pseudo-Gridbox geschrieben. Kann bestimmt noch verbessert werden. Um Mithilfe wird gebeten

Kompilieren Markieren Separieren

DECLARE EE%,P_win&,P_grid&,P_stil%,P_txt%,P_font%
DECLARE stil$
EE%=0

PROC PSEUDO_GRIDBOX

    DesTroyWindow(P_win&)
    P_font%=CREATE("FONT","ARIAL",16,6,0,0,0)
    PARAMETERS X0%,Y0%,X1%,Y1%,art%,titel$
    WindowStyle 84
    P_win&=CREATE("WINDOW",%HWND,"",X0%,Y0%,X1%,Y1%)
    P_grid&=CONTROL("LISTBOX","",art%,1,25,(X1%-7),(Y1%-22),P_win&,101,%HINSTANCE)
    P_stil%=CREATE("BUTTON",P_win&,titel$,1,1,(X1%-7),24)
    SetFont P_txt%,P_font%
    CLEARLIST
    TEXTE
    MoveListToHandle(P_grid&)

ENDPROC

PROC TEXTE

    Addstring "Gerhard Schröder"
    Addstring "Helmut Kohl"
    Addstring "12345"
    Addstring "Konrad Adenauer"
    Addstring "Ludwig Erhard"
    Addstring "Angela Merkel"
    Addstring "67890"
    Addstring "Helmut Schmidt"
    Addstring Date$(2)
    Addstring Date$(1)
    Addstring "Sinnloser Text"
    Addstring "Bla-Bla"

ENDPROC

----------------------------------
CLS
DrawText 10,10,"Kilck auf den Titelbutton sortiert oder unsortiert"
DrawText 10,30,"Listbox hat Mehrfachauswahl. Kann noch erweitert werden"
PSEUDO_GRIDBOX 200,200,250,200,$50B008C3,"Sortiert"
stil$="1"
SetActiveWindow(%HWND)

WHILENOT EE%

    waitinput

    If GetFocus(P_stil%)

        IF stil$="1"

            PSEUDO_GRIDBOX 200,200,250,200,$50B008C1,"Nicht sortiert"
            stil$="0"

        ELSEIF stil$="0"

            PSEUDO_GRIDBOX 200,200,250,200,$50B008C3,"Sortiert"
            stil$="1"

        ENDIF

    EndIf

    Case ScanKey(27):END

ENDWHILE