XProfan

English

Jörg
Sellmeyer

either I versteh there what wrong or it not working. at least functions not so, How I it expects Have.
%umessage gives always only 16 (means $10) out what about me had expects, that they %hwnd ausspuckt.

Compile Mark Separation

User Messages $10
Cls
print SetUAnswer($10, %hwnd)

While 1

    WaitInput
    Print %umessage

    If %umessage = $10

        Print "Das end naht"
        Break

    ElseIf %umessage = %hwnd

        Print "so works not :("
        Break

    EndIf

Wend

Print "draußen",%umessage
WaitInput

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

06/02/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

&UWnd becomes supplied.

though will need you here a Constant and no Variable.

with SetUAnswer() give You as Transmitter a worth to, the zurückgeliefert go should. the can then naturally no Variable his, The first at appear the Ereignisses generiert becomes.

Standardmäßig becomes the appear of ~wmClose always the value 16 give back, except You lay with SetUAnswer a others worth solid.

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

06/07/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
W.

Tja, denkste!!!

Compile Mark Separation

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

While 1

    WaitInput
    Print %umessage

    If %umessage = $10

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

        Print "the end naht (2000)"
        Print "uMessage:",%uMessage
        Print "ulParam:",&ulParam
        Print "uwParam:",&uwParam
        Print "uWnd:",&uWnd
        Break

    ElseIf %umessage = %hwnd

        Print "so works not :("
        Break

    EndIf

Wend

Print "outside",%umessage
WaitInput

self so will's not

Compile Mark Separation

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

While 1

    WaitInput
    Print %umessage

    case IsUserMessage(2000) : Print "2000 lying on"
    case IsUserMessage(16) : Print "16 lying on"
    
    If %umessage = $10

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

        Print "the end naht (2000)"
        Print "uMessage:",%uMessage
        Print "ulParam:",&ulParam
        Print "uwParam:",&uwParam
        Print "uWnd:",&uWnd
        Break

    ElseIf %umessage = %hwnd

        Print "so works not :("
        Break

    EndIf

Wend

    case IsUserMessage(2000) : Print "hm, 2000 lying on"
    case IsUserMessage(16) : Print "hm, 16 lying on"

Print "outside",%umessage
WaitInput