XProfan

English

Roberto

I have a Messagebox made and there goes the background not mere

there is then always Bitmap not ladbar.
what about me have guaranteeing whom right way indicated

here Screenshot

and here the code
Compile Mark Separation

declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
LoadBMP PWGB.BMP,0,0;0
repaint
SetFocus(Edit&)
clear e%

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIf Menuitem(401) das ist herunterfahren

        ExitWindows 0

    ElseIf Menuitem(402) das ist abmelden

        ExitWindows 3

    elseIf Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)
        SETFOCUS(exit&)

    EndIf

EndWhile

end

PROC PRG_START

    var ergebnis& = WinExec(C:Nostale(DE)Nostale.exe,1)
    var ergebnis& = WinExecWait(Notepad.exe,1)

    if ergebnis& = 0

        Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
        end

    endif

ENDPROC

WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var notepad& = Create(Button,%HWnd,Nostale starten,5,30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0

whilenot e%

    waitinput

    if Clicked(exit&)

        e% = 1

    elseif Clicked(notepad&)

        PRG_START

    endif

endwhile

end

Screen SHOT.png	106 kB

Hochgeladen:	02/18/09

Downloadcounter:
		Download

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Roberto

I Have n bissel rewritten and then went sometime The Error Message lane but it'll in the Window simply no Image displayed
Compile Mark Separation

declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
x% = 265
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
LoadBMP PWBG.BMP,0,0;0
SetFocus(Edit&)

whilenot e%

    WaitInput

    if Clicked(exit&)

        end

    elseif Clicked(weiter&)

        ifnot GetText$(Edit&) = passwort$

            Messagebox(Falsches Passwort!
            Kein Zugang!,I N F O,4160)
            e% = 1
            end

        else

            e% = 999
            Messagebox(PASSWORT STIMMT,I N F O,4160)

        endif

    endif

endwhile

Clear e%
x% = 600
y% = 400
var Titel$ = RHP Multiprograms 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$

PROC FENSTER

    WindowTitle Titel$
    Windowstyle 536
    Window (%MaxX - x%) / 2,(%MaxY - y%) /2 - x%,y%
    LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
    RePaint

ENDPROC

PROC BUTTONS

    exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 100 - 15,Height(%HWnd) -25- 5,100,25)

ENDPROC

PROC MENU

    Popup Hintergrund
    AppendMenu 301,&RHP MULTIPROGRAMS LOGO
    Separator
    AppendMenu 302,&rot
    Separator
    AppendMenu 303,&grün
    Separator
    AppendMenu 304,&blau
    Popup Windows Optionen
    AppendMenu 401,&Herunterfahren
    Separator
    AppendMenu 402,Abmelden
    Separator
    Popup Uhrzeit
    AppendMenu 501,Aktuelle Uhrzeit
    Separator

ENDPROC

PROC HINTERGRUND

    Parameters r%,g%,b%
    cls rgb(r%,g%,b%,)

ENDPROC

PROC LADEBILD

    Parameters _bild$
    EnableWindow exit&,0exit& sperren
    LoadSizedBMP _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    DrawSizedPic _bild$,0,0 - Width(%HWnd),Height(%HWnd);0
    EnableWindow exit&,1exit& entsperren

ENDPROC

FENSTER
MENU
BUTTONS

Whilenot e%

    Waitinput

    IF Clicked(exit&) or (%Key = 2)

        e% = 1

    ELSEIF Menuitem(302)

        HINTERGRUND 255,0,0

    ELSEIF Menuitem(303)

        HINTERGRUND 0,255,0

    ELSEIF Menuitem(304)

        HINTERGRUND 0,0,255

    ELSEIF Menuitem(301)

        LoadBMP RH PROGRAMMING 1.3 600x400.BMP,0,0;0
        RePaint

    ELSEIf Menuitem(401) das ist herunterfahren

        ExitWindows 0

    ElseIf Menuitem(402) das ist abmelden

        ExitWindows 3

    elseIf Menuitem(501)

        Text$ = Wir haben jetzt  + Time$(2) +  Uhr.
        Titeltext$ = I N F O
        Messagebox(Text$,Titeltext$,4160)
        SETFOCUS(exit&)

    EndIf

EndWhile

end

PROC PRG_START

    var ergebnis& = WinExec(C:Nostale(DE)Nostale.exe,1)
    var ergebnis& = WinExecWait(Notepad.exe,1)

    if ergebnis& = 0

        Messagebox(Fehler beim Starten des Programmes,F E H L E R,4112)
        end

    endif

ENDPROC

WindowStyle 31
WindowTitle Externes Programm starten
Window (%MaxX - x%)/ 2,(%MaxY - y%)/ 2 - x%,y%
var notepad& = Create(Button,%HWnd,Nostale starten,5,30,140,25)
var exit& = Create(Button,%HWnd,Beenden,Width(%HWnd) - 85,Height(%HWnd) - 30,80,25)
var e% = 0

whilenot e%

    waitinput

    if Clicked(exit&)

        e% = 1

    elseif Clicked(notepad&)

        PRG_START

    endif

endwhile

end

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Roberto

can perhaps someone help?

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

@Robin
You need not always nachzufragen, whether someone help can, it'll already of/ one.
but usually lying we atnight circa ca. 04:00 watch in the bed what about me z.b. must
now same on The work.
means later ^^

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

short:
One Bitmap can You so only the Mainwindow loading.
here can You z.b.:
Compile Mark Separation

startpaint passwindow&
LoadBMP PWBG.BMP,0,0;0
endpaint
... und dann erst am besten die Buttons und so.<

pre>

or look in the Help to create(Bitmap... to

Ausserdem must You you angwöhnen comments too as such To mark
not
Compile Mark Separation

ELSEIf Menuitem(401) das ist herunterfahrenre>

separate
Compile Mark Separation

ELSEIf Menuitem(401)    das ist herunterfahrenre>

the Hochkomma heading a singlelined comment one.

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Tim
Hannemann

Rolf Koch

@Robin
but usually lying we atnight circa ca. 04:00 watch in the bed

means I for my part not xD

MfG Timää

------------

Betriebssysteme: Windows Vista

Profanversion: XProfan 11

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Roberto

Yes sorry but I Have The days no school and not plenty To do.
thanks the Upload has worked

Ich bin neu hier also Verurteilt mich nicht fÃƒÂ¼r meine fragen.^^

02/18/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Answer

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

2.125 Views

Untitled	vor 0 min.
Axel Berse	02/20/13
Andreas Koch	11/14/12

Themeninformationen

this Topic has 3 subscriber:

Roberto (4x)

Rolf Koch (2x)

Tim Hannemann (1x)

XProfan

Bitmap not Ladbar

Answer

Topic-Options

2.125 Views

Themeninformationen

Privacy Policy