XProfan

Deutsch

Detlef
Tussing

Hallo Leute

noch eine Frage zur choicebox, wenn im beigefügten prog das ein in der choicebox gewählt habe,offnet sich eine 2. box. Wenn ich dann wieder nein wähle sollte die 2.Box wieder verschwinden, wie heist dafür der Befehl??

mit DestroyWindow(Choicebox&) komm ich nicht weiter
Kompilieren Markieren Separieren

declare box2&,ende%,r$,n2%,text3&,box3&,von$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Def @FindWindowEx(4) !USER32,FindWindowExA
WINDOWSTYLE 31
WINDOW SUB(DIV(%MAXX,2),DIV(940,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
box2&=Create(choicebox,%Hwnd,0,520,250,50,500)
AddChoice(box2&,aus)
AddChoice(box2&,ein)
@sendmessage(Box2&,$14E,n2%,1,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 255

    elseif GETFOCUS(box2&)Relais2

        r$=gettext$(box2&)

        If r$=ein

            licht

        endif

    ENDIF

WEND

proc licht

    Text3&=Createtext(%Hwnd,von:,180,330,90,20)
    box3&=Create(choicebox,%Hwnd,0,280,327,50,500)
    AddChoice(box3&,5)  bis
    AddChoice(box3&,6)
    AddChoice(box3&,7)
    AddChoice(box3&,8)
    @sendmessage(Box3&,$14E,von$,0,0)

endproc

Gruß Detlef Tussing
Windows XP, XProfan 10

08.05.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

meinst Du so?
Kompilieren Markieren Separieren

declare box2&,ende%,r$,n2%,text3&,box3&,von$
DEF GETSYSCOLOR(1) !USER32,GetSysColor
Def @FindWindowEx(4) !USER32,FindWindowExA
WINDOWSTYLE 31
WINDOW SUB(DIV(%MAXX,2),DIV(940,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(1)15
SETDIALOGFONT 1
box2&=Create(choicebox,%Hwnd,0,520,250,50,500)
AddChoice(box2&,aus)
AddChoice(box2&,ein)
@sendmessage(Box2&,$14E,n2%,1,0)
Text3&=Createtext(%Hwnd,von:,180,330,90,20)
box3&=Create(choicebox,%Hwnd,0,280,327,50,500)
AddChoice(box3&,5) bis
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
@sendmessage(Box3&,$14E,von$,0,0)
showwindow(text3&,0)
showwindow(box3&,0)
SETFOCUS(%HWND)

WHILENOT ENDE%

    if %key = 255

    elseif GETFOCUS(box2&)Relais2

        r$=gettext$(box2&)

        If r$=ein

            showwindow(text3&,1)
            showwindow(box3&,1)

        Elseif r$=aus

            showwindow(text3&,0)
            showwindow(box3&,0)

        endif

    ENDIF

WEND