| |
| |
|
GDL | ¡Hola,
Yo möchte gerne mein aktuelles Projekt más rápido hacer y esta podría me muy geholfen ser si yo el ständigen Überprüfungsmethoden en Checkbox weg hätte.Das heißt,( el Abfragemethode con getfocus(checkbox&) va no ,como hier siempre reagiert se),lo debería algo para Abfragen geben qué sólo en una Änderung en el Checkbox reagiert.
if getfocus(checkbox&)
alt%=val(gettext$(checkbox&))
neu%=val(gettext$(checkbox&))
casenot alt%=neu%:ausfuehren
endif
Dieser Teil va desafortunadamente auch no, como getfocus siempre el Bucle(auch ya una en el Pfeil después de unten drücken) neu startet y por lo tanto en alt% y neu% siempre dasselbe es.
In prfellow gab lo una sbl_changed(...) para Listboxen, tal vez blanco uno de Euch si para Checkboxen algo como auch son.Gracias.
Servus
Georg |
|
| |
| |
| |
|
|
 | Sagen wir veces así
if getfocus(checkbox&)
alt%=val(gettext$(checkbox&))
neu%=val(gettext$(checkbox&))
casenot alt%=neu%:ausfuehren
endif
debería auch eigendlich
if getfocus(checkbox&)
alt%=neu%
neu%=val(gettext$(checkbox&))
casenot alt%=neu%:ausfuehren
endif
heissen. |
|
| |
| |
| |
|
|
GDL | Hola si
eigentlich ya.Jetzt Yo me ya así oft con solchen pequeño Umwegen geholfen sólo diesmal sah Yo, el Wurm no.Naja schlechter Tag heute.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | ¿Por qué nimmst No GetCheck()?
Yo weiß no como Su Bucle aussieht aber así dürfte el Abfragelast relativ klein ser:
KompilierenMarcaSeparación |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 15.11.2006 ▲ |
|
| |
|
|
Nico
Madysa | |
| |
|
|
GDL | ¡Hola,
jede Auswahlbox de 30 ha 256 Einträge, que auch ändern puede.Darum möchte Yo sólo jede Box en uno Änderung con gettext abfragen.
Como aber el Box con getfocus auch ya beim Pfeil después de unten anklicken(en nachzusehen welche neuen Werte hinzukamen) reagiert, el Umweg con alt% y neu%.Ansonsten sería auch en gleicher Auswahl ständig el Unterprogramm aufgerufen.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Kann lo ser, daß Usted Choiceboxen media? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.11.2006 ▲ |
|
| |
|
|
GDL | ¡Hola Jörg,
Yo mi esta hier
reset&[1]=create(choicebox,%hwnd,1,10,190,50,400)
Yo ne dunkle Vorahnung, dass Yo como qué durcheinanderbrachte.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | ¡Hola Georg,
Dachte ego me doch!
Das funktioniert, ha aber el Nachteil, daß wmcommand como UserMessage deklariert ser muß.
KompilierenMarcaSeparaciónUserMessages $0111 wm_commad
Def ChoiceBoxSelChange(1) If(Equ(%umessage,$0111),And(Equ(&ulparam,&(1)),Equ(Div&(&uwparam,$10000),1)),0)
Cls
Declare ChoiceBox&,ende%
Decimals 0
ChoiceBox&=CreateChoiceBox(%hwnd,,10,10,100,400)
WhileLoop 5
AddString Test + Str$(&Loop)
Wend
MoveListToChoice(ChoiceBox&)
WhileNot ende%
WaitInput
If %key=2
ende%=1
ElseIf ChoiceBoxSelChange(ChoiceBox&)
WindowTitle GetText$(ChoiceBox&)
EndIf
Wend
Das Ganze sólo:
KompilierenMarcaSeparación
y sin Mensajes del usuario $0111 funktioniert por desgracia, no. Tal vez kannst Usted trotzdem qué así anfangen oder alguien anders weiß más.
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.11.2006 ▲ |
|
| |
|
|
GDL | ¡Hola Jörg,
habe lo ya uso puede,danke.
Nur esta Línea verstehe Yo überhaupt no
Def ChoiceBoxSelChange(1) If(Equ(%mensaje,$0111),And(Equ(&lparam,&(1)),Equ(Div&(&wparam,$10000),1)),0)
Tal vez könntest du, si du magst, el me una bisschen erklären.
Servus
Georg |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | El Línea es eigentlich el Gleiche, como en el Codeteil oben con el Diferencia, Yo el UserMessage-Werte por normale Messages ersetzt habe, en el Hoffnung, esta würden de Profano ebenfalls ausgewertet.
Konkret bedeutet el Línea, daß el entsprechende Message (CBN_SELCHANGE) no direkt a el Programa übermittelt se. Dafür se wmcommand (hier por lo tanto como UserMessage deklariert) a el Programa gesendet y ulparam es el Handle des Fensterelementes (el Choicebox). Im Lowword de uwparam es entonces el entsprechende Nachricht. El es en diesem Fall 1. Es nämlich el Valor de CBN_SELCHANGE.
Mit wmcommand como UserMessage funktioniert lo auch. Yo habe pero no Idea, por qué no funktioniert si uno lo así verwendet:
KompilierenMarcaSeparaciónDef ChoiceBoxSelChange(1) If(Equ(%message,$0111),And(Equ(&lparam,&(1)),Equ(Div&(&wparam,$10000),1)),0)
Cls
Declare ChoiceBox&,ende%
Decimals 0
ChoiceBox&=CreateChoiceBox(%hwnd,,10,10,100,400)
WhileLoop 5
AddString Test + Str$(&Loop)
Wend
MoveListToChoice(ChoiceBox&)
WhileNot ende%
WaitInput
If %key=2
ende%=1
ElseIf ChoiceBoxSelChange(ChoiceBox&)
WindowTitle GetText$(ChoiceBox&)
EndIf
Wend
Tal vez weiß alguien Anderes como mehr... |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 16.11.2006 ▲ |
|
| |
|
(1.131)
Deutsch
English
Français
Español
Italia