XProfan

Deutsch

Jörg
Sellmeyer

Entweder ich versteh da was falsch oder es funktioniert nicht. Zumindest funktioniert es nicht so, wie ich es erwartet hab.
%umessage gibt immer nur 16 (also $10) raus und ich hätte erwartet, dass sie %hwnd ausspuckt.

Kompilieren Markieren Separieren

UserMessages $10
Cls
print SetUAnswer($10, %hwnd)

While 1

    WaitInput
    Print %umessage

    If %umessage = $10

        Print "Das Ende naht"
        Break

    ElseIf %umessage = %hwnd

        Print "so klappts nicht :("
        Break

    EndIf

Wend

Print "draußen",%umessage
WaitInput

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

02.06.2018 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

&UWnd wird geliefert.

Allerdings brauchst Du hier eine Konstante und keine Variable.

Mit SetUAnswer() gibst Du als Sender einen Wert vor, der zurückgeliefert werden soll. Das kann dann natürlich keine Variable sein, die erst beim Auftreten des Ereignisses generiert wird.

Standardmäßig wird das Auftreten von ~wmClose immer den Wert 16 zurückgeben, außer Du legst mit SetUAnswer einen anderen Wert fest.

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

07.06.2018 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
W.

Tja, denkste!!!

Kompilieren Markieren Separieren

UserMessages $10
Cls
SetUAnswer($10, 2000)

While 1

    WaitInput
    Print %umessage

    If %umessage = $10

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

        Print "Das Ende naht (2000)"
        Print "uMessage:",%uMessage
        Print "ulParam:",&ulParam
        Print "uwParam:",&uwParam
        Print "uWnd:",&uWnd
        Break

    ElseIf %umessage = %hwnd

        Print "so klappts nicht :("
        Break

    EndIf

Wend

Print "draußen",%umessage
WaitInput

selbst so will's nicht

Kompilieren Markieren Separieren

UserMessages $10
Cls
SetUAnswer($10, 2000)

While 1

    WaitInput
    Print %umessage

    case IsUserMessage(2000) : Print "2000 liegt an"
    case IsUserMessage(16) : Print "16 liegt an"
    
    If %umessage = $10

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

        Print "Das Ende naht (2000)"
        Print "uMessage:",%uMessage
        Print "ulParam:",&ulParam
        Print "uwParam:",&uwParam
        Print "uWnd:",&uWnd
        Break

    ElseIf %umessage = %hwnd

        Print "so klappts nicht :("
        Break

    EndIf

Wend

    case IsUserMessage(2000) : Print "hm, 2000 liegt an"
    case IsUserMessage(16) : Print "hm, 16 liegt an"

Print "draußen",%umessage
WaitInput