| |
|
|
Alfred Wagner | allô gens
d'abord la fois qui Code KompilierenMarqueSéparation $P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE ENDE%,BUTTON1&,CB1&,CB2&,CB3&
WINDOWSTYLE 63
WINDOWTITLE Neues Fenster
WINDOW 22,20-550,250
SET(TRUECOLOR,1)
CLS GETSYSCOLOR(1)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE(BUTTON,%HWND,Ende,400,190,70,22)
CB1& = CREATE(CHECKBOX,%HWND,Test Checkbox_1,20,60,200,15)
CB2& = CREATE(CHECKBOX,%HWND,Test Checkbox_2,50,80,300,15)
CB3& = CREATE(CHECKBOX,%HWND,Test Checkbox_3,230,60,200,15)
Hauptschleife
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
Erster Wert ( hier 20 ) + länge der Checkbox = dritter Wert
aber woher kommt der vierte Wert ? ( hier 70 )
If mouse(20,60,220,70)
If @IsKey(2)
Sleep 100
@MessageBox(Checkbox_1 Meldung,Meldung,16)
EndIf
Endif
Erster Wert ( hier 50 ) + länge der Checkbox = dritter Wert
aber woher kommt der vierte Wert ? ( hier 90 )
If mouse(50,80,350,90)
If @IsKey(2)
Sleep 100
@MessageBox(Checkbox_2 Meldung,Meldung,16)
EndIf
Endif
Erster Wert ( hier 230 ) + länge der Checkbox = dritter Wert
aber woher kommt der vierte Wert ? ( hier wiederum 70 )
If mouse(230,60,430,70)
If @IsKey(2)
Sleep 100
@MessageBox(Checkbox_3 Meldung,Meldung,16)
EndIf
Endif
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(BUTTON1&)
Ende%=1
ELSEIF GETFOCUS(CB1&)
ELSEIF GETFOCUS(CB2&)
ELSEIF GETFOCUS(CB3&)
ENDIF class=s4 href='./../../funcion-referencias/XProfan/endwhile/'>ENDWHILE
maintenant mon Frage en supplément ? Woher venez chez den 3 Checkboxen jeweils qui vierte Wert her ? qui Code funktioniert zwar einwandfrei ,mais cela avec dem vierten Wert peut mir aucun Ruhe .je voudrais zugerne savons wohin cette qui herkommt.si je quoi d'autre einsetze funktioniert cela ganze pas plus,so comme soll.
Übrigen cela Beispiel peut sich wunderbar comme Kontexthilfe umbauen.
sais quelqu'un de euch comment sich qui vierte Wert ergiebt ? ou bien ist etwa un faute meinerseits im Spiel.
Grüße Alfred avec la famille |
|
|
| |
|
|
|
| Na qui Vierte Wert sollte toujours qui Zweite Wert Plus (chez Dir 15) qui Hauteur des Controls son. je trouve Deinen Source mais très - très UnXProfan10nisch. |
|
|
| |
|
|
|
Jörg Sellmeyer | qui vierte Werte ist z. B. im ersten le cas pas 70 mais 75. Nämlich Oberkante qui Checkbox + Hauteur = Unterkante (60 + 15 = 75) peux Du léger testen, indem Du bevor Du quoi änderst Dein Programme courir läßt et la fois im unteren Pixelbereich einer Checkbox klickst. là passiert nix, weil 5 Pixel manquer. Salut Jörg
[offtopic]na, là était qui iF wieder plus rapide...[/offtopic] |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 31.05.2007 ▲ |
|
|
|
|
Alfred Wagner | Aha maintenant hab ego merci euch beiden
incidemment IF quoi meinst du avec - très UnXProfan10nisch. |
|
|
| |
|
|
|
| |
|
| |
|
|
|
Alfred Wagner | Aha merci pour qui Aufklärung seulement cela avec den
mouse statt usermessages , si-Verschachtelung statt select , declare statt var ,
bekäme je so sur Anhieb pas cuit au four
Frage en supplément : hätte cela aussi Vorteile pour cela Programme,wen oui quelle ? |
|
|
| |
|
|
|
| Schneller, stabiler, übersichtlicher.
exposition la fois so devrait Dein Code air: KompilierenMarqueSéparationdef getsyscolor(1) !user32,GetSysColor
set(errorlevel,0)
set(truecolor,1)
windowstyle 63
windowtitle neues fenster
window 22,20-550,250
cls getsyscolor(1) warum syscolor 1? msdn2.microsoft.com/en-us/library/ms724371.aspx
var myfont&=create(font,MS Sans Serif,10,0,0,0,0)
var button1& = create(button,%hwnd,ende,400,190,70,22)
var cb1& = create(checkbox,%hwnd,test checkbox_1,20,60,200,15)
var cb2& = create(checkbox,%hwnd,test checkbox_2,50,80,300,15)
var cb3& = create(checkbox,%hwnd,test checkbox_3,230,60,200,15)
setfont button1&,myfont&
setfont cb1&,myfont&
setfont cb2&,myfont&
setfont cb3&,myfont&
setfocus(%hwnd)
usermessages 123 WM_CONTEXTMENU = { $7B | 123 }
while 1
waitinput
select %key
caseof 2
break
caseof 4
nix?
endselect
select %umessage
caseof 123
select &uwparam
caseof cb1&
messagebox checkbox1,,0
caseof cb2&
messagebox checkbox2,,0
caseof cb3&
messagebox checkbox3,,0
endselect
endselect
case clicked(button1&) : break
endwhile
deleteobject myfont&
href='./../../funcion-referencias/XProfan/end/'>end
et si Du XPSE nutzen würdest hättest Du aussi encore folgende Vorteile car Dein Code pourrait so air: KompilierenMarqueSéparation {$cleq}
set(errorlevel,0)
set(truecolor,1)
style de fenêtre 63
windowtitle nouveau la fenêtre
window 22,20-550,250
cls getsyscolor(1)
long myfont=create(font,MS Sans Serif,10,0,0,0,0)
long button1 = create(button,hwnd,ende,400,190,70,22)
long cb1 = create(checkbox,hwnd,test checkbox_1,20,60,200,15)
long cb2 = create(checkbox,hwnd,test checkbox_2,50,80,300,15)
long cb3 = create(checkbox,hwnd,test checkbox_3,230,60,200,15)
setfont button1,myfont
setfont cb1,myfont
setfont cb2,myfont
setfont cb3,myfont
setfocus(hwnd)
usermessages WM_CONTEXTMENU
tandis que 1
waitinput
sélectionner clé
caseof 2
pause
caseof 4
nix?
endselect
sélectionner umessage
caseof WM_CONTEXTMENU
sélectionner uwparam
caseof cb1
messagebox checkbox1,,0
caseof cb2
messagebox checkbox2,,0
caseof cb3
messagebox checkbox3,,0
endselect
endselect
cas clicked(button1) : pause
endwhile
deleteobject myfont
end
|
|
|
| |
|
|
|
| @Alfred: page Site ist down. [...] exposition Dir la fois cela kostenlose Communityangebot à [...] je trouve c'est mir très gelungen. |
|
|
| |
|
|
|
Alfred Wagner | eh merci Si
cela avec qui page hab je gar pas gewusst ,muss la fois regarder quoi là à l'attaque ist
Nachtrag
cls getsyscolor(1) pourquoi syscolor 1?
avec cela je besser nachvollziehen konnte ab wohin qui Meldefenster reagierten |
|
|
| |
|
|