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

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

本帖最后由 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[4]=$Label1 And $ck=0 Then
                GUICtrlSetFont(-1, 9, 400, 4, "宋体")
        GUICtrlSetColor(-1, 0x0000FF)
                $ck=1
        ElseIf $info[4]<>$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

好东西

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

找到了

		自动登录	找回密码
密码			加入

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

评分

评分

本帖子中包含更多资源