| |
| |
|
Nico | Hi,
je benutze Profan depuis une halben l'an et hatte mich gefragt si es possible ist sur un la fenêtre im Hintergrund un Dialog trop erstellen, qui comme 2. la fenêtre sur dem 1. liegt.
qui Dialog soll beispielsweise so air:
KompilierenMarqueSéparationDECLARE EDIT1&
DECLARE ok&
DECLARE ende%
DECLARE spieler$
WINDOW 22,20-645,163
EDIT1& = CREATE("EDIT",%HWND,"",0022,0024,0120,0020)
ok& = CREATE("BUTTON",%HWND,"OK",0168,0026,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
Wäre joli, si son mir là une simple Possibilité expliquer peut. 
- Nico |
|
| |
| |
| |
|
|
 | Quelque chose comme?
KompilierenMarqueSéparationuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=Create("Button",dlg&,"Button",10,10,90,20)
while 1
waitinput
select %uMessage
caseof 16 : break
endSelect
wend
end
|
|
| |
| |
| |
|
|
Nico | | oui c'est ca cela, merci |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Nico | encore une weitere Frage, comment peux je cela Programme plus courir laisser, après que sich cela Dialog-la fenêtre geschlossen hat, et comment peux je im Hintergundfenster un Bild magasin?
Présentation:
KompilierenMarqueSéparationcls
DECLARE ende%
DECLARE spieler$
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var EDIT1& = CREATE("EDIT",dlg&,"",0022,0024,0120,0020)
var ok& = Create("BUTTON",dlg&,"OK",08,0096,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
waitkey
end
|
|
| |
| |
| |
|
|
Dietmar
Horn | allô Nico,
schaue dir simple la fois mon XProfan-Lehrbuch à. là sommes solche Sachen (et encore viel plus) im ruban 1 dans den ersten Kapiteln en détails beschrieben.
Salut
Dietmar |
|
| |
| XProfan X2Multimedia 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: [...] | 18.06.2012 ▲ |
|
| |
|
|
Nico | cela Problem ist, dass je déjà quelques Basics beherrsche, et mich pas par cela ganze Neueinsteiger-Zeug lesen voudrais. je sais, cela klingt fainéant, mais ici trop fragen erschließt sich mir ensuite quand même comme bessere Possibilité
Comme je le disais, mon Frage besteht encore |
|
| |
| |
| |
|
|
| Like that?
KompilierenMarqueSéparationuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=create("Button",dlg&,"Button",10,10,90,20)
var dlgIstOffen&=1
var bild&=create("hNewPic",320,200,$FF0000)
startpaint bild&
whileLoop 1000
setpixel rnd(320),rnd(200),rnd($FFFFFF)
wend
endpaint
drawPic bild&,0,0;0
deleteObject bild&
while 1
waitinput
select %uMessage
caseof 16
select &UWnd
caseof dlg&
if dlgIstOffen&
dlgIstOffen&=0
destroyWindow(dlg&)
endif
caseof %hWnd : break
endSelect
endSelect
wend
end
|
|
| |
| |
| |
|
(2.290)
Deutsch
English
Français
Español
Italia