61插件－(托盘+控件+简繁转换)气泡提示

610761555

61插件+TC 源码：

游客，如果您要查看本帖隐藏内容请回复

还有屏蔽热键，支持组合键，请见文档；
此程序需注册插件运行，请勿直接调试；
如何使用61插件请查看附件说明：{:soso_e100:}

1. 空间 TLL演示
   
2. var ly,气泡句柄
   
3. 
   
4. 功能 初始化()
   
5.     var ly = com("LY.Plugin")
   
6.     traceprint("61插件版本：" & ly.Ver())
   
7. 功能结束
   
8. 
   
9. 功能 设置控件气泡_点击()
   
10.     var 控件句柄 = 控件.获得句柄("鼠标悬停查看气泡")
    
11.     气泡句柄=ly.ShowToolTips( 控件句柄 , "气泡提示文本......" & "\r\n" & "多行显示" & "\r\n" & "多行显示","标题", 1)
    
12.     traceprint("气泡句柄：" & 气泡句柄)
    
13. 功能结束
    
14. 
    
15. 功能 销毁气泡_点击()
    
16.     ret=ly.ShowToolTips( 0 ,"" ,"", 气泡句柄)
    
17.     traceprint("销毁气泡：" & ret)
    
18. 功能结束
    
19. 
    
20. function 设置托盘气泡_点击()   //添加按钮事件
    
21.     traceprint( "置托盘图标：" & ly.SetNotifyIcon(10086,0 , "这是鼠标悬停的托盘标题" ))
    
22. 功能结束
    
23. 
    
24. function 删除托盘_点击()  //添加按钮事件  
    
25.     traceprint( "删除托盘图标：" & ly.SetNotifyIcon(10086,2))
    
26. endfunction
    
27. 
    
28. function 弹出托盘气泡_点击()  //添加按钮事件,弹出气泡
    
29.     var ret = ly.SetNotifyIcon(10086,1 ,"托盘标题" , "欢迎使用61插件：" & "\r\n" & "本插件是基于VC#开发的,90%功能由WindowsAPI实现,永久免费无后门,适合多语言调用。" , "61-插件" ,1 )
    
30.     traceprint("弹出托盘气泡："  & ret )
    
31. endfunction
    
32. 
    
33. function TLL演示_消息过程(消息,w参数,l参数)   //添加窗体事件(如果需要鼠标点击事件)
    
34.     if(消息==10086)
    
35.         select(l参数)
    
36.             case 512: //鼠标移动
    
37.             case 513: //左键单击
    
38.             traceprint("——————左键单击")
    
39.             case 516: //右键单击
    
40.             traceprint( "——————右键单击" )
    
41.             case 515: //左键双击
    
42.             traceprint( "——————左键双击" )
    
43.             case 1029: //弹出气泡
    
44.             case 1026: //弹出气泡
    
45.             case 1028: //销毁气泡
    
46.         endselect
    
47.     endif
    
48. endfunction
    
49. 空间结束

复制代码

lidongxu

jtaduy

dtlqdhb

学习学习

g93920079

多谢楼主分享~~

东月山

多谢楼主分享~

aoaoawei

感谢楼主分享

tjkd001

aaaaaaaaaaaaaaaaaaaaa

baby杰杰

阿萨德

1742680829

正好有用