| |
| |
|
Alfred
Wagner | allô Profaner
Folgendes Problem
d'abord qui Code
$P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE Ende&,Übernehmen&,CHECKBOX1&
PROC Ende_ONCLICK
GETMESSAGE
Si Übernehmen& = 1
@Messagebox(tu as den Prendre Button pas gedrückt!,annonce,64)
D'autre
@Messagebox(tu as den Prendre Button gedrückt!,annonce,64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE Neues la fenêtre
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE(BUTTON,%HWND,Ende,0275,0100,0070,0022)
Übernehmen& = CREATE(BUTTON,%HWND,Prendre,0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE(CHECKBOX,%HWND,CHECKBOX,0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
Si %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&) Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&) BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&) CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
ENDWHILE
Hat quelqu'un une Tip si qui finissons Button sais si qui Prendre Buttonbetätigt worden ou non.
merci déjà la fois im vorhinein pour euere Aider
Grüße
Alfred avec la famille |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Alfred,
d'abord einmal, wäre lesbarer, si Du ici vorgestellten Code dans lesbare forme bringst, Code insérer, markieren et den Rautebutton sur dem Eingabefenster ici klicken.
tu as Prendre geschrieben, ca ist dans qui Programmation pas so angebracht, nutze besser Uebernehmen.
je hab ici simple ne neue Variable incorporé.
Wird qui Button angeklickt, so wird cet Variable sur 1 gesetzt et ca chez finissons abgefragt.
KompilierenMarqueSéparation $P+
SET("ERRORLEVEL",0)
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE Ende&,Übernehmen&,CHECKBOX1&
Neue Variable
Declare ch_ueber%
PROC Ende_ONCLICK
GETMESSAGE
If ch_ueber% = 0
@Messagebox("Du hast den Übernehmen Button nicht gedrückt!","Meldung",64)
Else
@Messagebox("Du hast den Übernehmen Button gedrückt!","Meldung",64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ch_ueber%=1
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE("BUTTON",%HWND,"Ende",0275,0100,0070,0022)
Übernehmen& = CREATE("BUTTON",%HWND,"Übernehmen",0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE("CHECKBOX",%HWND,"CHECKBOX",0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&) Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&) BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&) CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
<s=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>ENDWHILE
|
|
| |
| |
| |
|
|
 | @Alfred: on merkt sich simple si il gedrückt wurde. si il gedrückt wird mets on une beliebige Variable sur une beliebigen Wert. cet Variable peux on später abprüfen. 
aussi Rolfs Tipp cela on Codes dans Foren avec ...
KompilierenMarqueSéparation
...ummantelt ist ebenso Gold wert. ;)
Umlaute dans Quelltexten find je aussi übel.  |
|
| |
| |
| |
|
|
Alfred
Wagner | merci Rolf
haut hin
ici la fois un test avec dem rautebutton,habs bisher encore pas so richtig kapiert,merci
KompilierenMarqueSéparation $P+
SET("ERRORLEVEL",0)
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE Ende&,Übernehmen&,CHECKBOX1&
Neue Variable
Declare ch_ueber%
PROC Ende_ONCLICK
GETMESSAGE
If ch_ueber% = 0
@Messagebox("Du hast den Übernehmen Button nicht gedrückt!","Meldung",64)
Else
@Messagebox("Du hast den Übernehmen Button gedrückt!","Meldung",64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ch_ueber%=1
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE("BUTTON",%HWND,"Ende",0275,0100,0070,0022)
Übernehmen& = CREATE("BUTTON",%HWND,"Übernehmen",0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE("CHECKBOX",%HWND,"CHECKBOX",0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&)Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&)BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&)CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
<s=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>ENDWHILE
hoffe hat geklappt
encore une Frage
wieso sollte homme pas prendre prendre im code ?
Grüße
Alfred avec la famille |
|
| |
| |
| |
|
|
| | je hab Dein Posting la fois révisée - klicke simple sur éditer sous Deinem Posting ensuite vois Du quoi je geändert habe. |
|
| |
| |
| |
|
|
| Umlaute sommes entier simple Sonderzeichen, Roland erlaubt cet - mais empfohlen vous êtes pas.
Bien sûr betrifft cela aucun Stringinhalte!
un S$=Hallo ici rüber ist naturellement ok!
un VieleÄpfel&=50 wird mais pas empfohlen.
tu peux aussi später la fois Probleme c'est pourquoi bekommen - z.B. si Du qui IDE wechselst. Je pour dem dans welchem Format Du qui Textdatei abspeicherst peut Umlaute sur einmal autre Bytewerte bekommen. cela wiederum pourrait en supplément mener cela qui XProfankompiler sur einmal doch pas plus avec cela bien sûr venez. |
|
| |
| |
| |
|
|
Alfred
Wagner | merci euch beiden
encore la fois un test pour den prochain code
KompilierenMarqueSéparation
habe toujours gedacht qui quelltext est entre den klammern de code!
mais code bedeutet anfang et /codeende.
eh bien jusqu'à on mals kapiert hat,dauerts plan un peu
merci nochmal
Güße
Alfred avec la famille |
|
| |
| |
| |
|
|
| | bien sûr volontiers geschehen, tu peux incidemment *reusper* Dein obiges Posting éditer et nachträglich cela Code mettons - damits pas so grave aussieht. |
|
| |
| |
| |
|
(507)
Deutsch
English
Français
Español
Italia