XProfan

Español

Detlef
Tussing

¡Hola Personas

ni Cuestión a choicebox, si en el beigefügten prog el una en el choicebox gewählt habe,offnet se una 2. box. Wenn Yo entonces otra vez nein wähle debería el 2.Box otra vez verschwinden, como heist dafür el Befehl??

con DestroyWindow(Choicebox&) komm Yo no más
Kompilieren Marca Separación

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 Cita Zeilenweise Cita

Rolf
Koch

media Usted así?
Kompilieren Marca Separación

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