XProfan

English

Detlef
Tussing

Hello people

another Question to choicebox, if in the enclosed prog the one in the choicebox chosen have,offnet itself a 2. box. If I then again No dial ought to The 2.Box again vanish, How heist for the commands??

with DestroyWindow(Choicebox&) komm I do not moreover
Compile Mark Separation

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

05/08/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

mean You so?
Compile Mark Separation

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