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

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

例子: 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

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

原来这样简单

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

不错，顶一下.....

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