XProfan

Français

Detlef
Tussing

allô gens

encore une Frage zur choicebox, si im beigefügten prog cela un dans qui choicebox gewählt habe,offnet sich une 2. box. si je ensuite wieder non wähle sollte qui 2.Box wieder verschwinden, comment heist pour qui Befehl??

avec DestroyWindow(Choicebox&) komm je pas plus
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

meinst Du so?
Kompilieren Marque Séparation

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