XProfan

Français

Jac
de
Lad

Hallöle, je verzweifel im Moment à folgendem Problem:je hab une Gridbox, qui hat mehrfach selektierbare Elemente et sur Button-Click devoir qui markierten gelöscht volonté. Soweit si bien, seulement funktioniert mon Voir le texte source pas. peux mir quelqu'un aider?
Kompilieren Marque Séparation

declare grid&,c&,a&,d&
cls
grid&=Create("GridBox",%HWnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
d&=Create("Button",%HWnd,"&Neu laden",512,8,96,24)

whileloop 35

    AddString(grid&,Str$(&Loop))

wend

whilenot CLicked(d&)

    waitinput

wend

c&=0
a&=GetCount(grid&)

while LT(c&,a&)

    if GetState(grid&,c&)

        DeleteString(grid&,c&)

    else

        Inc c&

    endif

    EnableWindow d&,0
    EnableWindow grid&,0

    while 1

    wend

    Bitte mit Systemmenü finissons

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

allô Jac,
il y a mir un paire trop viele seltsame Schleifen dans Deinem Code. je habs la fois quelque chose umgeschrieben:
Kompilieren Marque Séparation

Declare Grid&,C&,A&,D&

Proc Button_D

    If GetCount(Grid&) > 0

        print "gelöschte Einträge (Indexnr!)"

        WhileLoop GetCount(Grid&) -1,0,-1Wichtig!!! Von Rückwärts auslesen und löschen

            sonst stimmen die Indizes nicht mehr!!

            If GetState(Grid&, &loop) > 0

                DeleteString(Grid&,&Loop)
                print &loop,

            EndIf

        Wend

    EndIf

EndProc

Cls
Grid&=Create("GridBox",%Hwnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
D&=Create("Button",%Hwnd,"&Neu laden",512,8,96,24)

Whileloop 35

    Addstring(Grid&,Str$(&Loop))

Wend

Hauptschleife

While 1

    Waitinput

    If Clicked(D&)

        Button_D(Grid&)

    EndIf

Wend