Mouse Pos

[Frit]

Hi all!

I want to know a simple code that isn't working here.

It's about getting the mouse coordinates (mousegetpos), put them into a variable and show in a label.

Global $pos
HotKeySet( "{ESC}", "Exit" )
HotKeySet( "{F1}", "Getpos" )



GUICreate( 210, 100)
GUICtrlCreateLabel( $pos[0] & "," & $pos[1]), 10, 10)


While 1
GuiSetstate()
Wend

Func Getpos()
        $pos = MouseGetPos ( )
    EndFunc 




While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        
    EndSelect
WEnd

Func Exit()
    Exit
EndFunc

Everything goes well, without any error, but the pos isn't shown in the label.

Thank you.

[SmOke_N]

There was actually another issue with your 'Exit' function:

#include <guiconstants.au3>
Global $pos
HotKeySet( "{ESC}", "ExitNow" )
HotKeySet( "{F1}", "MouseSetPos" )

GUICreate( 210, 100)
Global $label = GUICtrlCreateLabel('', 10, 10, 100, 20)


GuiSetstate()
Func MouseSetPos()
    Local $pos = MouseGetPos()
    GUICtrlSetData($label, $pos[0] & ',' & $pos[1])
EndFunc

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    EndSelect
WEnd

Func ExitNow()
    Exit
EndFunc

[Frit]

Hmm, thanks, works well.

To do not need to make a new thread, I'll ask for something more.

The following code was made to send "item1 activated" each 5 sec if It's selected in the combo. If somebody wants to help...

Global $combo
$combo = GUICtrlCreateCombo ("Item1", 10, 60, 100, 20)

While 1
    If $combo = "Item1" Then
        Sleep (5000)
        Send ("Item1 activated + {ENTER}")
    EndIf
WEnd

[SmOke_N]

If GUICtrlRead($combo) = 'Item1' Then

[Frit]

Ok

Thank you again.