天下一家·MJ

博客园 首页 新随笔 联系 订阅 管理

实例代码:

1         Dim k As ToolTip
2 
3         k = New ToolTip()
4         k.AutoPopDelay = 3000 '显示出气泡后的延时时间(毫秒)
5         k.InitialDelay = 50 '出现前的延时(毫秒)
6         k.ToolTipTitle = "提示" '提示信息标题
7         k.SetToolTip([控件名], "按D键删除选定项") '提示信息内容

 

posted on 2014-09-08 01:11  天下一家·MJ  阅读(563)  评论(0编辑  收藏  举报
友情链接Tkin的技术博客