Mouse Over change Label

[behdadsoft]

Hi.

I create a label in my GIU and I want when mouse over on the button change label text. how can do it?

Thanks.

Edited October 30, 2014 by behdadsoft

[Radiance]

Hi,

check out GUIGetCursorInfo().

Use it in a function with AdLibRegister that compares the ID of your control to $array[4] you get from GUIGetCursorInfo every 100 ms.

[behdadsoft]

thanks but what is adlib?

[Radiance]

https://www.autoitscript.com/autoit3/docs/functions/AdlibRegister.htm

You can set a function that is called over and over again until you use AdLibUnregister on it.

[behdadsoft]

Thanks

Edited October 30, 2014 by behdadsoft

[behdadsoft]

there is a problem when I use Switch---Case for Check my GUIGetCursorInfo() value give me an error when click on Desktop.

Func CheckGUI_ID ()
     Local $GUI_ID = GUIGetCursorInfo()

   Switch $GUI_ID [4]
            Case 0
               GUICtrlSetData ($GUILabel, "Ready")
            Case 3
               GUICtrlSetData ($GUILabel, "My Computer")
   EndSwitch

   EndFunc

Please Guide Me.

Edited October 30, 2014 by behdadsoft

[mikell]

?

Func CheckGUI_ID ()
   Local $GUI_ID = GUIGetCursorInfo($GUI)
   Switch $GUI_ID[4]
           Case $GUILabel
               GUICtrlSetData ($GUILabel, "My Computer")
           Case Else
               GUICtrlSetData ($GUILabel, "Ready")
   EndSwitch
EndFunc

[behdadsoft]

use Case Else don't fix problem. I think Problem is relate to [4] at $GUI_ID [4]. because when I remove [4] make fix the Problem but switch---Case don't work.

Edited October 30, 2014 by behdadsoft

[behdadsoft]

I used GUIGetCursorInfo($GUI) and make fix problem relate to close my GUI when click on Desktop. but when I compile My Script and run it Give me below error:

Error: Subscript used on non-accessible variable.

I think this error is relate to $GUI_ID [4].

[MikahS]

Post your latest code

[behdadsoft]

Func CheckGUI_ID ()

   Local $GUI_ID = GUIGetCursorInfo($GUI)

   Switch $GUI_ID [4]
    Case 3
      GUICtrlSetData ($GUILabel, "Hello")
    Case 4
      GUICtrlSetData ($GUILabel, "Bye")
    Case Else
      GUICtrlSetData ($GUILabel, $DefaultLabelText)

   EndSwitch

EndFunc

[jdelaney]

error handling required:

Func CheckGUI_ID ()

    Local $GUI_ID = GUIGetCursorInfo($GUI)
    If Not @error Then
        Switch $GUI_ID [4]
            Case 3
            GUICtrlSetData ($GUILabel, "Hello")
            Case 4
            GUICtrlSetData ($GUILabel, "Bye")
            Case Else
            GUICtrlSetData ($GUILabel, $DefaultLabelText)
        EndSwitch
    EndIf

EndFunc

[behdadsoft]

 

error handling required:

Func CheckGUI_ID ()

    Local $GUI_ID = GUIGetCursorInfo($GUI)

    If Not @error Then

        Switch $GUI_ID [4]

            Case 3

            GUICtrlSetData ($GUILabel, "Hello")

            Case 4

            GUICtrlSetData ($GUILabel, "Bye")

            Case Else

            GUICtrlSetData ($GUILabel, $DefaultLabelText)

        EndSwitch

    EndIf

EndFunc

 

 

Thanks, work fine.

[kylomas]

behdadsoft,

A more flexible approach...

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

#AutoIt3Wrapper_Add_Constants=n

local $gui010   =   guicreate('')
local $aSize    =   wingetclientsize($gui010)
local $lbl010   =   guictrlcreatelabel('',0,020,$aSize[0],50,$ss_sunken)
local $lbl020   =   guictrlcreatelabel('',0,100,$aSize[0],50,$ss_sunken)
                    guisetstate()

$aCSR = GUIGetCursorInfo($gui010)

while 1

    switch guigetmsg()
        case $gui_event_close
            Exit
    EndSwitch

    _on_hover($lbl010)
    _on_hover($lbl020)

WEnd

func _on_hover($ctlid)

    local static $last_ctlid

    switch GUIGetCursorInfo($gui010)[4]
        case $ctlid
            GUICtrlSetBkColor($ctlid,0xff0000)
            $last_ctlid = $ctlid
        case else
            if $last_ctlid = $ctlid then
                GUICtrlSetBkColor($ctlid,0x550000)
                $last_ctlid = 0
            endif
    endswitch

endfunc

kylomas

edit: spelling

Edited October 30, 2014 by kylomas