(940)  Registro

Italia
Stammtisch & Caffè

Bitmap nicht Ladbar

 

Roberto
Ich habe eine Messagebox gemacht und da geht der Hintergrund nicht rein

da steht dann immer Bitmap nicht ladbar.
Und ich habe garantiert den richtigen Pfad angegeben

hier Screenshot

und hier der Code
KompilierenMarkierenSeparieren
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

106 kB
Hochgeladen:18.02.2009
Downloadcounter: 96
Download
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
 




Roberto
Ich hab n bissel Umgeschrieben und dann ging irgendwann die Fehlermeldung weg aber es wird in dem Fenster einfach kein Bild angezeigt
KompilierenMarkierenSeparieren
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.^^
18.02.2009  ▲
 




Roberto
Kann villeicht jemand Helfen?
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
 




Rolf
Koch
@Robin
Du brauchst nicht immer nachzufragen, ob jemand helfen kann, es wird schon einer.
Aber normalerweise liegen wir Nachts um ca. 04:00 Uhr im Bett und ich z.b. muss
jetzt gleich auf die Arbeit.
Also später ^^
 
18.02.2009  ▲
 




Rolf
Koch
kurz:
Ein Bitmap kannst Du so nur auf das Hauptfenster laden.
Hier kannst Du z.b.:
KompilierenMarkierenSeparieren
oder schau in der Aiuto nach create(Bitmap... nach

Ausserdem musst Du Dir angwöhnen Kommentare auch als solche zu kennzeichnen
nicht
KompilierenMarkierenSeparieren
sondern
KompilierenMarkierenSeparieren
Das Hochkomma leitet einen einzeiligen Kommentar ein.
 
18.02.2009  ▲
 




Tim
Hannemann
Rolf Koch
@Robin
Aber normalerweise liegen wir Nachts um ca. 04:00 Uhr im Bett


also ich per meinen teil nicht xD
 
MfG Timää

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

Betriebssysteme: Windows Vista

Profanversion: XProfan 11
18.02.2009  ▲
 




Roberto
Ja sorry aber ich hab die Tage keine Schule und nicht viel zu tun.
Danke das hochladen hat geklappt
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
18.02.2009  ▲
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

2.096 Views

Untitledvor 0 min.
Axel Berse20.02.2013
Andreas Koch14.11.2012

Themeninformationen

Dieses Thema hat 3 subscriber:

Roberto (4x)
Rolf Koch (2x)
Tim Hannemann (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie