找回密码
 加入
搜索
查看: 5640|回复: 17

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

[复制链接]
发表于 2009-6-29 12:30:05 | 显示全部楼层 |阅读模式
本帖最后由 kn007 于 2009-6-29 18:40 编辑

图片是pcbar大大的大作

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2009-6-29 13:55:51 | 显示全部楼层
....没人知道大概。。。
发表于 2009-6-29 14:16:45 | 显示全部楼层
那是设置如何显示的问题,和后面的链接关系不大
发表于 2009-6-29 14:18:18 | 显示全部楼层
本帖最后由 netegg 于 2009-6-29 14:19 编辑

第一个可以用tooptip做,至于你说的直接发邮件,帮助里好像有
不过用邮件客户端的话,没研究过,帮不上忙了
 楼主| 发表于 2009-6-29 15:13:55 | 显示全部楼层
netegg 说的没错,我现在是这个
#include <INet.au3>
_INetMail ("kn007@126.com","","")
我试下tooptip,谢谢netegg
 楼主| 发表于 2009-6-29 15:16:57 | 显示全部楼层
我好像不是要tooptip的函数。。。pcbar的源码也没用到这个,
看帮助后,觉得不是我所需要的,我主要是想要有 第1张图 中的 农历 ,那个效果,下划线,蓝色字,标准的链接字体
不过也谢谢
 楼主| 发表于 2009-6-29 17:55:54 | 显示全部楼层
顶,看看有哪位能来帮忙
发表于 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

评分

参与人数 1金钱 +10 收起 理由
kn007 + 10 谢谢,你这样有下划线了,我不用鼠标悬停还 ...

查看全部评分

 楼主| 发表于 2009-6-29 18:17:23 | 显示全部楼层
谢谢楼上的,我试试,谢谢啊
 楼主| 发表于 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

你这样有下划线了,我不用鼠标悬停还多个下划线,我只要显示时有下划线和蓝色字,呵呵,谢谢!
发表于 2009-6-29 20:42:30 | 显示全部楼层
可以的,检测控件即可,更新状态
以前也问过同样的问题,呵呵
发表于 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[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
 楼主| 发表于 2009-6-30 07:06:18 | 显示全部楼层
谢谢楼上的,你的源码也不错
发表于 2009-7-9 13:26:13 | 显示全部楼层
AdlibRegister("_conut" ,1000)

这个是什么意思呢?KN007


----------------------------
发错地方。。汗
发表于 2009-8-20 17:56:13 | 显示全部楼层
又学习到新东西 呵呵 收藏先
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 05:26 , Processed in 0.078767 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表