XProfan

Français

Jörg
Sellmeyer

Entweder je versteh là quoi faux ou bien es funktioniert pas. Zumindest funktioniert es pas so, comment je es erwartet hab.
%umessage gibt toujours seulement 16 (alors $10) raus et je hätte erwartet, dass vous %hwnd ausspuckt.

Kompilieren Marque Séparation

Utilisateur Messages $10
Cls
imprimer SetUAnswer($10, %hwnd)

Tandis que 1

    WaitInput
    Imprimer %umessage

    Si %umessage = $10

        Imprimer "Das Ende naht"
        Pause

    ElseIf %umessage = %hwnd

        Imprimer "so klappts pas :("
        Pause

    EndIf

Wend

Imprimer "draußen",%umessage
WaitInput

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

02.06.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

&UWnd wird geliefert.

Allerdings brauchst Du ici une Konstante et aucun Variable.

avec SetUAnswer() gibst Du comme Sender une Wert avant, qui zurückgeliefert volonté soll. cela peux ensuite naturellement aucun Variable son, qui seulement beim Auftreten des Ereignisses generiert wird.

Standardmäßig wird cela Auftreten de ~wmClose toujours la valeur 16 zurückgeben, sauf Du legst avec SetUAnswer une anderen Wert fest.

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

07.06.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
W.

Tja, denkste!!!

Kompilieren Marque Séparation

Utilisateur Messages $10
Cls
SetUAnswer($10, 2000)

Tandis que 1

    WaitInput
    Imprimer %umessage

    Si %umessage = $10

        Imprimer "cela Ende couture (16)"
        Imprimer "uMessage:",%uMessage
        Imprimer "ulParam:",&ulParam
        Imprimer "uwParam:",&uwParam
        Imprimer "uWnd:",&uWnd
SetUAnswer($10, 2000)
        Pause
        
    Si %umessage = 2000

        Imprimer "cela Ende couture (2000)"
        Imprimer "uMessage:",%uMessage
        Imprimer "ulParam:",&ulParam
        Imprimer "uwParam:",&uwParam
        Imprimer "uWnd:",&uWnd
        Pause

    ElseIf %umessage = %hwnd

        Imprimer "so klappts pas :("
        Pause

    EndIf

Wend

Imprimer "dehors",%umessage
WaitInput

selbst so will's pas

Kompilieren Marque Séparation

Utilisateur Messages $10
Cls
SetUAnswer($10, 2000)

Tandis que 1

    WaitInput
    Imprimer %umessage

    cas IsUserMessage(2000) : Imprimer "2000 liegt à"
    cas IsUserMessage(16) : Imprimer "16 liegt à"
    
    Si %umessage = $10

        Imprimer "cela Ende couture (16)"
        Imprimer "uMessage:",%uMessage
        Imprimer "ulParam:",&ulParam
        Imprimer "uwParam:",&uwParam
        Imprimer "uWnd:",&uWnd
SetUAnswer($10, 2000)
        Pause
        
    Si %umessage = 2000

        Imprimer "cela Ende couture (2000)"
        Imprimer "uMessage:",%uMessage
        Imprimer "ulParam:",&ulParam
        Imprimer "uwParam:",&uwParam
        Imprimer "uWnd:",&uWnd
        Pause

    ElseIf %umessage = %hwnd

        Imprimer "so klappts pas :("
        Pause

    EndIf

Wend

    cas IsUserMessage(2000) : Imprimer "hm, 2000 liegt à"
    cas IsUserMessage(16) : Imprimer "hm, 16 liegt à"

Imprimer "dehors",%umessage
WaitInput