XProfan

Español

IF GETFOCUS(b01%)

    CaseNot MID$(editor$,2,1)=":":2WINDOWS_CONFIG "1"
    SHELL editor$

ELSEIF GETFOCUS(b02%)

    CaseNot MID$(viewer$,2,1)=":":2WINDOWS_CONFIG "2"
    SHELL viewer$

ELSEIF GETFOCUS(b03%)

    CaseNot MID$(ziper$,2,1)=":":2WINDOWS_CONFIG "3"
    SHELL ziper$

ELSEIF GETFOCUS(b04%)

    CaseNot MID$(mailer$,2,1)=":":2WINDOWS_CONFIG "4"
    SHELL mailer$

ELSEIF GETFOCUS(b05%)

    CaseNot MID$(prg_05$,2,1)=":":2WINDOWS_CONFIG "5"
    SHELL prg_05$

ENDIF

Dieser Ausschnitt de una Programa-Code funktioniert einwandfrei.

Schreibe Yo aber para GetFocus el modernere CLICKED en el código, se el Parámetro para el Procedur 2WINDOWS_CONFIG no transferencia

- Egal, welchen Button Yo benutze, lo se siempre el Parámetro 1 transferencia

- Mache Yo qué falso oder klappt que aquí con CLICKED no ?

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tiempo unabhängig su - aber Prozedurennamen debería no con uno Ziffer beginnen!

Löst lo el problema entonces ya?

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:aaceda1696]aber Prozedurennamen debería no con uno Ziffer beginnen!
[/quote:aaceda1696]
IF
War me neu

- habe ahora el Procedur en ZWEI_WINDOWS_CONFIG umbenannt - aber auch hier el gleiche Resultat: Mit GetFocus alles prima - con CLICKED no Parámetro-Übergabe

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Probiere - y poste - veces una Funktionierendes Ejemplo qué el problema aufzeigt - en auszuschliessen - el el problema a otro Punto en Deinem Code producido se.

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Zuerst una vez:
Lo liegt no a CLICKED - Lo muss se en media Code irgendwo una bastante gemeiner Bug versteckt haben ! - en un Kurzprogramm con el gleichen Bedingungen tritt el Fehler no en !
D. h., Suchen, suchen, suchen...

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Erzeugst du el Buttons/Controls via CONTROL? Wenn sí, musst du cada una otro ID zuteilen.

28.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

Proc CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = Control("Button","",$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

EndProc

------------------------------------
declare b01%,editor$,tip%
CreateIconButton editor$,0,%hwnd,((%MaxX/2)-20),135,34,34
b01% = &(0)
tip%=CREATE("TOOLTIP",%HWnd,b01%,editor$)
...usw.

¡Hola Franco
So voluntad el Buttons producido. - Como oben ya dijo, con Getfocus alles en el grünen Zona - con Clicked se kein Parámetro > 1 transferencia !?
...pero yo find el Fehler todavía

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Horst,
Usted hast como sí ne muy komplizierte Abfragestruktur, como sí no sólo el Buttons abgecheckt voluntad, pero auch 5 diferente Stringvariablen.
Bau doch veces una $D Test,b01%,b02%....,editor$,viewer$... antes If-Abfrage una, en a sehen, como Variables bestückt voluntad.
Kompilieren Marca Separación

While ...

    Waitinput
    Declare focus&
    focus&=%GetFocus
     $D "Test",focus&,b01%,b02%....,editor$,viewer$...

    IF GETFOCUS(b01%)

        CaseNot MID$(editor$,2,1)=":":2WINDOWS_CONFIG "1"
        SHELL editor$

    ELSEIF GETFOCUS(b02%)

        ...

    Endif

wend

Damit könntest Usted ya veces einiges herausfinden.

Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Jörg
Den Debug-Befehl tener Yo ahora instalado y el Ergebnis siehst Usted en el beiliegenden Bild. Mir sagt el todo Sache aber garnichts

- Yo dar a, dass Yo así überfordert bin. Su Angebot, el código a testen, Aprovecho determinado verdadero, aber zuerst muss el todo Sache todavía algo gestrafft voluntad. ca. 1 Semana y unos pocos graue Haare se lo todavía dauern

PS: Auf zwei Buttons son en el Darstellung zwei Links para Programmen eingestellt. Aber el kennst Usted sí ya

debug01.jpg	42 kB

Hochgeladen:	29.10.2006

Ladeanzahl:
		Descargar

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

¡Hola Horst,
Ist el ahora una Screenshot después de el KKlicken en una el Buttons? Wenn no, mach el otra vez.

Como Usted en el Bild siehst, ha keiner Deiner Buttons el Focus! Entweder porque Usted no geklickt hast oder porque z.B. irgendwo una Handlezuweisung falso es.
Usted puede el ahora erweitern, indem Usted el Debug-Box en weitere Variables ergänzt, en herauszufinden, welches Element el Focus erhält.
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

@Jörg
Posesiones ahora $D... en jede Buttonabfrage eingesetzt y cómo Usted sehen kannst, se después de Clic en el Button5 auch el Foco en el Button5 gesetzt. Es aber sólo Getfocus - tausche Yo gegen Clicked de, se Irvan-View comenzó, porque el bajo Button1 eingestellt es y Clicked sólo el Parámetro 1 übergibt

debug02.jpg	43 kB

Kurzbeschreibung:	Foco en B05%

Hochgeladen:	29.10.2006

Ladeanzahl:
		Descargar

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Yo vermute aber veces, daß el Button treotzdem correcto ausgelöst se y Fehler en el Parameterauswertung liegt.
Como lautet el el Parameterabfrage en el Procedimiento ZWEI_WINDOWS_CONFIG?
Lo hängt wahrscheinlich así zusammen, daß en GetFocus el Ganze evtl. 2-veces durchlaufen se, während lo en Clicked korrekterweise sólo una vez abläuft. Pero sólo wildes spekulieren, como lo sin Code sólo una Ratespiel es.

Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►