XProfan

Español

Jörg
Sellmeyer

Entweder Yo versteh como qué falso oder lo funktioniert no. Zumindest funktioniert no así, Yo lo esperado tener.
%umessage son siempre sólo 16 (also $10) fuera y yo hätte esperado, dass ellos %hwnd ausspuckt.

Kompilieren Marca Separación

Mensajes del usuario $10
Cls
imprimir SetUAnswer($10, %hwnd)

Mientras que 1

    WaitInput
    Imprimir %umessage

    If %umessage = $10

        Imprimir "Das Ende naht"
        Romper

    ElseIf %umessage = %hwnd

        Imprimir "so klappts no :("
        Romper

    EndIf

Wend

Imprimir "draußen",%umessage
WaitInput

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

02.06.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

&UWnd se geliefert.

Aunque Usted necesita hier una Konstante y no Variable.

Mit SetUAnswer() gibst Usted como Sender una Valor antes, el zurückgeliefert voluntad se. Das kann entonces natürlich no Variable ser, el sólo beim Auftreten des Ereignisses generiert se.

Standardmäßig se el Auftreten de ~wmClose siempre valor 16 zurückgeben, außer Usted legst con SetUAnswer una otro Valor fest.

Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

07.06.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
W.

Tja, denkste!!!

Kompilieren Marca Separación

Mensajes del usuario $10
Cls
SetUAnswer($10, 2000)

Mientras que 1

    WaitInput
    Imprimir %umessage

    If %umessage = $10

        Imprimir "Das Ende naht (16)"
        Imprimir "uMessage:",%uMessage
        Imprimir "ulParam:",&ulParam
        Imprimir "uwParam:",&uwParam
        Imprimir "uWnd:",&uWnd
SetUAnswer($10, 2000)
        Romper
        
    If %umessage = 2000

        Imprimir "Das Ende naht (2000)"
        Imprimir "uMessage:",%uMessage
        Imprimir "ulParam:",&ulParam
        Imprimir "uwParam:",&uwParam
        Imprimir "uWnd:",&uWnd
        Romper

    ElseIf %umessage = %hwnd

        Imprimir "así klappts no :("
        Romper

    EndIf

Wend

Imprimir "draußen",%umessage
WaitInput

incluso así will's no

Kompilieren Marca Separación

Mensajes del usuario $10
Cls
SetUAnswer($10, 2000)

Mientras que 1

    WaitInput
    Imprimir %umessage

    caso IsUserMessage(2000) : Imprimir "2000 liegt a"
    caso IsUserMessage(16) : Imprimir "16 liegt a"
    
    If %umessage = $10

        Imprimir "Das Ende naht (16)"
        Imprimir "uMessage:",%uMessage
        Imprimir "ulParam:",&ulParam
        Imprimir "uwParam:",&uwParam
        Imprimir "uWnd:",&uWnd
SetUAnswer($10, 2000)
        Romper
        
    If %umessage = 2000

        Imprimir "Das Ende naht (2000)"
        Imprimir "uMessage:",%uMessage
        Imprimir "ulParam:",&ulParam
        Imprimir "uwParam:",&uwParam
        Imprimir "uWnd:",&uWnd
        Romper

    ElseIf %umessage = %hwnd

        Imprimir "así klappts no :("
        Romper

    EndIf

Wend

    caso IsUserMessage(2000) : Imprimir "hm, 2000 liegt a"
    caso IsUserMessage(16) : Imprimir "hm, 16 liegt a"

Imprimir "draußen",%umessage
WaitInput