请问autoit如何达到如下所示的效果（超级链接那种）

kn007

图片是pcbar大大的大作

想在某个gui写的软件，添加个“联系我们”的超级链接，按这个“联系我们”，一般会打开Outlook Express，显示图3


大家可以按下论坛右下角的 联系我们，如图2，我就是想在autoit做的gui中，加个这种效果的超级链接

kn007

....没人知道大概。。。

netegg

那是设置如何显示的问题，和后面的链接关系不大

netegg

第一个可以用tooptip做，至于你说的直接发邮件，帮助里好像有
不过用邮件客户端的话，没研究过，帮不上忙了

kn007

netegg 说的没错，我现在是这个

#include <INet.au3>
_INetMail ("kn007@126.com","","")

我试下tooptip，谢谢netegg

kn007

我好像不是要tooptip的函数。。。pcbar的源码也没用到这个，
看帮助后，觉得不是我所需要的，我主要是想要有 第1张图 中的 农历 ，那个效果，下划线，蓝色字，标准的链接字体
不过也谢谢

kn007

顶，看看有哪位能来帮忙

KLU3K

不会做鼠标悬停后出现下划线的效果，凑合用吧。

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
GUICreate("TEST", 220, 50, -1, -1)
$MAIL = GUICtrlCreateLabel("联系我", 10, 10)
GUICtrlSetFont(-1, 10, 400, 4, "微软雅黑")
GUICtrlSetColor(-1, 0x3300ff)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $MAIL
                        _INetMail ("kn007@126.com","","")
        EndSwitch
WEnd

kn007

谢谢楼上的，我试试，谢谢啊

kn007

不会做鼠标悬停后出现下划线的效果，凑合用吧。#NoTrayIcon
#include
#include
#include
GUICreate("TEST", 220, 50, -1, -1)
$MAIL = GUICtrlCreateLabel("联系我", 10, 10)
GUICtrlSetFont(-1, 10, 400,  ...
KLU3K 发表于 2009-6-29 18:13

你这样有下划线了，我不用鼠标悬停还多个下划线，我只要显示时有下划线和蓝色字，呵呵，谢谢！

auto

可以的，检测控件即可，更新状态
以前也问过同样的问题，呵呵

gto250

#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

        EndSwitch
WEnd

kn007

谢谢楼上的，你的源码也不错

sunny617

AdlibRegister("_conut" ,1000)

这个是什么意思呢？KN007


----------------------------
发错地方。。汗

andersonljw

又学习到新东西 呵呵 收藏先