返回列表 发帖

[AU3基础] 【已解决】鼠标移到控件上,改变它的颜色,应该用什么函数?

本帖最后由 229989799 于 2017-1-19 13:16 编辑

鼠标移到控件上,改变它的颜色,应该用什么函数?


#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 381, 201, 192, 124)
$Label1 = GUICtrlCreateLabel("如何让鼠标移到此处,文本改变颜色呢", 40, 80, 280, 17)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $Label1
                        Msgbox(0,"hello","hello")
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

这个我也需要,标记一下

TOP

谢谢楼上兄弟。

TOP

  1. #include <GUIConstantsEx.au3>
  2. #include <StaticConstants.au3>
  3. #include <WindowsConstants.au3>
  4. #region ### START Koda GUI section ### Form=
  5. $Form1 = GUICreate("Form1", 381, 201, 192, 124)
  6. $Label1 = GUICtrlCreateLabel("如何让鼠标移到此处,文本改变颜色呢", 40, 80, 280, 17)
  7. GUICtrlSetColor($Label1, 0x0000ff)
  8. GUICtrlSetCursor(-1, 0)
  9. GUISetState(@SW_SHOW)
  10. #endregion ### END Koda GUI section ###
  11. AdlibRegister('_set_lb_color', 600)
  12. While 1
  13.         $nMsg = GUIGetMsg()
  14.         Switch $nMsg
  15.                 Case $Label1
  16.                         MsgBox(0, "hello", "hello")
  17.                 Case $GUI_EVENT_CLOSE
  18.                         Exit

  19.         EndSwitch
  20. WEnd

  21. Func _set_lb_color()
  22.         Local $aCur = GUIGetCursorInfo($Form1)
  23.         If Not IsArray($aCur) Then Return
  24.         If $aCur[4] == $Label1 Then
  25.                 GUICtrlSetColor($Label1, 0xff0000)
  26.         Else
  27.                 GUICtrlSetColor($Label1, 0x0000ff)
  28.         EndIf
  29. EndFunc
复制代码
Hi ...

TOP

返回列表