shqf 发表于 2010-1-31 15:17:37

请问如何让label上的文字在鼠标放上时添加下划线？

本帖最后由 shqf 于 2010-1-31 18:37 编辑

如题，请教了

痒痒 发表于 2010-1-31 16:36:00

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $ck=0
$Form1 = GUICreate("Form1", 137, 146, 404, 273)
$Label1 = GUICtrlCreateLabel("联系我们", 40, 40, 52, 16)
GUICtrlSetFont(-1, 9, 400, 0, "宋体")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
While 1
      $info=GUIGetCursorInfo ($Form1)
      If $info=$Label1 And $ck=0 Then
                GUICtrlSetFont(-1, 9, 400, 4, "宋体")
      GUICtrlSetColor(-1, 0x0000FF)
                $ck=1
      ElseIf $info<>$Label1 And $ck=1 Then
                GUICtrlSetFont(-1, 9, 400, 0, "宋体")
      GUICtrlSetColor(-1, 0x000000)
                $ck=0
                        EndIf
                       
               
      
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                                                Case $Label1
                        ShellExecute("wwww.qq.com")

      EndSwitch
WEnd本论坛的。忘了是谁的，以前收藏的

catcher 发表于 2010-1-31 17:21:06

回复 2# 痒痒


   好东东

shqf 发表于 2010-1-31 18:19:26

真是太感谢了，我搜了好久搜不到呵。

pusofalse 发表于 2010-1-31 18:34:27

1000次循环检测中有999次是多余的~
推荐调用GUICtrlSetOnHover_UDF.au3中的GUICtrlSetOnHover函数。

iamwonvy 发表于 2010-3-22 14:49:33

学习了 不知道事件模式的如何写啊

d5121226 发表于 2010-9-22 17:10:08

不错的东东，收藏了

btkingplay 发表于 2011-1-31 23:57:23

好东西{:face (411):}

gzh888666 发表于 2011-2-1 01:57:44

回复 5# pusofalse


    找不到这个UDF呀，搜也搜不到，能不能发我一份，谢谢P版

haijie1223 发表于 2011-2-10 15:58:16

回复 5# pusofalse
请问p大，怎么检测的。以后我们写代码的时候也可以自己检测一下。

iamwonvy 发表于 2011-5-7 09:37:45


找到了
页: [1]
查看完整版本: 请问如何让label上的文字在鼠标放上时添加下划线？