论坛 › 『 谈天说地 』 › 第一次自己写了一个tooltip的UDF

58fly 发表于 2009-12-28 21:56:03

第一次自己写了一个tooltip的UDF

例子: t_tip("这个是用UDF发送的!",2)

Func t_tip($s,$time_sleep)
        ToolTip("**科技提醒您: "& $s,0,0,"",0,1)
        Sleep($time_sleep*1000)
EndFunc

非常简单

破帽遮颜 发表于 2009-12-29 01:31:00

:face (18)::face (18):

netegg 发表于 2009-12-29 05:54:19

回复 2# 破帽遮颜

服了吧

sanmoking 发表于 2009-12-29 10:07:14

我也来一个,自己经常用的...... _sptxt("这是第一个例子", 900,1,1000);显示1000毫秒后自动取消显示
Sleep(1000)
_sptxt("这是第二个例子");不自动取消显示
Sleep(2000)
_sptxt("这是第三个例子", @DesktopWidth / 4 );新的会冲掉上个未取消的sp
Sleep(2000)
SplashOff();手动取消显示
Sleep(2000)
_sptxt("这是第四个例子","",1,2000) ;不指定宽度的默认为 @DesktopWidth / 3

Func _sptxt($txt, $widthy = "",$spoff = 0,$sleeptime = 1000);屏幕正中显示一个提示工具条
If $widthy = "" Then $widthy = @DesktopWidth / 3
SplashTextOn("调试过程", $txt, $widthy, @DesktopHeight / 20, -1, -1, 33, "", @DesktopHeight / 60)
If $spoff = 1 Then
Sleep($sleeptime)
SplashOff()
EndIf
EndFunc

58fly 发表于 2010-1-20 08:51:15

好的，不错

xiaochuan 发表于 2010-3-20 13:08:12

:face (37): 原来这样简单

goodyou520 发表于 2010-3-22 17:39:30

好的，不错

adasir 发表于 2010-6-1 07:39:13

都很强大，学习了。

republican 发表于 2010-6-1 12:11:06

佩服楼主的勇气~~~~

tryhi 发表于 2010-6-9 10:33:53

支持下楼上!

依旧漂泊 发表于 2010-12-2 01:26:00

回复 3# netegg


    服了

wzhen1210 发表于 2010-12-7 17:37:36

学习了学习了

lsqyx528 发表于 2010-12-13 11:21:56

还是支持。。

nhxiaobo 发表于 2011-2-17 20:43:23

佩服楼主的勇气
佩服楼主的勇气

the995 发表于 2011-5-8 15:35:57

不错，顶一下.....

查看完整版本: 第一次自己写了一个tooltip的UDF