| |
| |
|
Roberto
Neu | i want one Program make the The windows-Ordner imitiert
means if I on a Ordner click should under The Images The in the Ordner are showing.
the Have so did i already hinbekommen.
but I get The Images then not any more lane
I have it already with GOTO and repaint attempts, but the Images went not lane |
|
| |
| |
| |
|
|
 | | simply drübermalen (z.B. rectangle) or to create("Bitmap",... begot Images with destroyWindow Remove. |
|
| |
| |
| |
|
|
Roberto
Neu | Have I now time everything attempts but has nocht functions
there comes always The Error Message Endif/Else missing
then mach I endif there and then close itself the program always. |
|
| |
| |
| |
|
|
Roberto
Neu | |
| |
| |
| |
|
|
Rolf
Koch | Hey, kuck you times the Time between your 2 Posts on.
help can you here many, but exercise first once a Grundstruktur the Profanprogrammierung.
don't be cross with me, but look you still time your GOTO on, is terrible.
go into Using Profan and read you whom cut offed Procedures through. Strukturiere the Gerüst and learn meaningfully one IF/ELSEIF/ENDIF einzusetzen.
Vorkauen one Codes isn't the right and becomes you never on the target bring. |
|
| |
| |
| |
|
|
Rolf
Koch | so You but not think, I would one Unmensch, here time (but too kapieren not only copy) one beginning:
CompileMarkSeparationdeclare Name$, text$, titeltext$, text2$, titeltext2$, ende%, e%
WindowTitle "VWPRG 1"
Window 50,20 - 600,500
LoadBMP "Bilder.BMP",0,0;0
LoadBMP "Music.BMP",100,0;0
LoadBMP "Videos.BMP",200,0;0
Proc GETCLICKEDICON
if Mouse(0,0 - 98,121)
loadbmp "bild1.BMP",0,120;0
elseif Mouse(0,0 - 98,121)
War von Dir Blösinn, wenn es oben reingeht, kann es nicht mehr
die selbe Bedingung auslösen
endif
ENDPROC
whilenot e%
WaitInput
GetClickedIcon
endwhile
|
|
| |
| |
| |
|
|
Roberto
Neu | I try the continuing with GOTO
but it works not I have it behind GetklickedIcon platziert but it happens nothing ??
whilenot e%
WaitInput
GetClickedIcon
endwhile |
|
| |
| |
| |
|
|
Thomas
Freier | you should Rolfs words serious take and you into course deepening. GOTO is a olle Kamelle from DOS-times. today having we Proceduren, To them You spring, if You whom names the Procedur, here GETCLICKEDICON , in your Program einfügst. you have still XProfan 10 free. means use it and erarbeite you whom sense the SCHLEIFEN and ABFRAGEN.
CompileMarkSeparationdeclare text&, ende%
Declare Bild1&,Bild2&,Bilder&
WindowTitle "VWPRG 1"
Window 50,20 - 600,500
Bild1& = Create("hPic",-1,"Bilder.BMP")
Bilder& = Create("Bitmap", %hWnd, Bild1&, 0,0)
LoadBMP "Music.BMP",100,0;0
LoadBMP "Videos.BMP",200,0;0
text& = Create("Text",%hWnd,"",0,390,600,30)
Proc GETCLICKEDICON Bild anzeigen
Bild1& = Create("hPic",-1,"bild1.BMP")
Bild2& = Create("Bitmap", %hWnd, Bild1&, 0,120)
SetText text&,"Linksklick löscht das Bild"
ENDPROC
whilenot Ende%
WaitInput
If %key= 2 Schließen Kreuz
Ende%= 1
Elseif Mouse(0,0 - 98,121)
GetClickedIcon hier wird zur PROC "edur" GetClickedIcon = Bild anzeigen gesprungen
und zurück wenn abgearbeitet
Elseif Mouse(0,99 - 98,210)
DestroyWindow(Bild2&) Bild löschen direkt eingebunden
SetText text&,""
EndIf
endwhile
DeleteObject Bild1&
End
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 07/07/09 ▲ |
|
| |
|
|
Frank
Abbing |
GOTO is a olle Kamelle from DOS-times.
well Yes, not integrally correctly.. Each native Exe using too today in reality countless "Gotos". there are mere technical seen Yes only Sprünge in the code, and the occur z.B. with eachone If-request.
XProfans Umsetzung this Gotos is (well Yes) right poor, therefore ought to hereon waived go, whenever It's all right. and this is really so well How always. |
|
| |
| |
| |
|
|
Thomas
Freier | | have Yes right and presumably were its first try aufm sharp, casio, hp, .. . only with seinem code, whom You you presumably not respected have, sträubten itself with Rolf and me The hairs. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 07/08/09 ▲ |
|
| |
|
|
Roberto
Neu | I have it now finally with GOTO geschafft ^^
but I have one other trouble.
I have in my Program one POPUP Menu made,
and would like the one by the Menu one other XProfan Program open can.
I have already The Quellcodesammlung search, but since can only EXE. Program open.
but I must one xprf. Program open |
|
| |
| |
| |
|
|
Dietmar
Horn | |
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 07/08/09 ▲ |
|
| |
|
(513)
Deutsch
English
Français
Español
Italia