kn007 发表于 2009-6-29 12:30:05

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

本帖最后由 kn007 于 2009-6-29 18:40 编辑

图片是pcbar大大的大作

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


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

kn007 发表于 2009-6-29 13:55:51

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

netegg 发表于 2009-6-29 14:16:45

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

netegg 发表于 2009-6-29 14:18:18

本帖最后由 netegg 于 2009-6-29 14:19 编辑

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

kn007 发表于 2009-6-29 15:13:55

netegg 说的没错，我现在是这个
#include <INet.au3>
_INetMail ("kn007@126.com","","")我试下tooptip，谢谢netegg

kn007 发表于 2009-6-29 15:16:57

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

kn007 发表于 2009-6-29 17:55:54

顶，看看有哪位能来帮忙

KLU3K 发表于 2009-6-29 18:13:41

本帖最后由 KLU3K 于 2009-6-29 18:15 编辑

不会做鼠标悬停后出现下划线的效果，凑合用吧。#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 发表于 2009-6-29 18:17:23

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

kn007 发表于 2009-6-29 18:19:04

本帖最后由 kn007 于 2009-6-29 18:20 编辑

不会做鼠标悬停后出现下划线的效果，凑合用吧。#NoTrayIcon
#include
#include
#include
GUICreate("TEST", 220, 50, -1, -1)
$MAIL = GUICtrlCreateLabel("联系我", 10, 10)
GUICtrlSetFont(-1, 10, 400,...
KLU3K 发表于 2009-6-29 18:13 http://www.autoitx.com/images/common/back.gif
你这样有下划线了，我不用鼠标悬停还多个下划线，我只要显示时有下划线和蓝色字，呵呵，谢谢！

auto 发表于 2009-6-29 20:42:30

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

gto250 发表于 2009-6-30 06:42:56


#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

        EndSwitch
WEnd
http://lwc.nhome.cn/code/showip.asp

kn007 发表于 2009-6-30 07:06:18

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

sunny617 发表于 2009-7-9 13:26:13

AdlibRegister("_conut" ,1000)

这个是什么意思呢？KN007


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

andersonljw 发表于 2009-8-20 17:56:13

又学习到新东西 呵呵 收藏先
页: [1] 2
查看完整版本: 请问autoit如何达到如下所示的效果（超级链接那种）