以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提示信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103112)

--  作者:wangjh8888
--  发布时间:2017/6/30 17:21:00
--  提示信息
窗口本身有一组属性,用于统一设置各控件提示信息的外观。
那么,  如何统一设置开启或者关闭窗口内各控件的提示信息呢?

--  作者:有点甜
--  发布时间:2017/6/30 17:45:00
--  

参考代码

 

dim frm = forms("窗口1")
\'frm.ShowToolTipIcon
msgbox(frm.TootlTipTitle)
msgbox(frm.ToolTipBalloon)


--  作者:wangjh8888
--  发布时间:2017/6/30 19:48:00
--  
我意思是想: 代码控制提示信息的 关闭\\开启(显示\\不显示),当鼠标移动上去时,(在整个项目或者整个窗口的控件)

[此贴子已经被作者于2017/6/30 19:51:12编辑过]

--  作者:有点蓝
--  发布时间:2017/6/30 20:27:00
--  
只能逐个控件设置。写个循环遍历控件
--  作者:wangjh8888
--  发布时间:2017/6/30 22:42:00
--  
哦    老师 能不能给个例子,谢谢。静待老师的回复

比如,窗口1 有10个提示信息的button控件,每个控件的提示信息都已经写在各种的控件属性里
[此贴子已经被作者于2017/6/30 22:47:36编辑过]

--  作者:有点蓝
--  发布时间:2017/6/30 22:54:00
--  
http://www.foxtable.com/webhelp/scr/1849.htm

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Button  Then 
        Dim t As WinForm.Button = c 
        t.ToolTip = ""
    End If
Next