XProfan

Español

Jac
de
Lad

Hallöle, Yo verzweifel en el Moment a folgendem Problema:Yo una Gridbox, el ha mehrfach selektierbare Elemente y en Button-Click debería el markierten gelöscht voluntad. Soweit tan bueno, sólo funktioniert mein Ver código fuente no. Kann me alguien helfen?
Kompilieren Marca Separación

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ü final

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 Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Jac,
Hay me unos pocos a viele seltsame Schleifen en Deinem Code. Yo habs veces algo umgeschrieben:
Kompilieren Marca Separación

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