- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问：列窗口标题设置问题。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108652)
-- 发布时间：2017/10/26 15:50:00
-- 请问：列窗口标题设置问题。
请问：存在多个列窗口（非并列窗口）情况下，如果单独设置列窗口标题颜色？
我的目的是：如果该列有内容时，该列窗口标题进行颜色标识，便于操作者查看。
先谢！
-- 发布时间：2017/10/26 16:32:00
--
颜色不能修改，只能改图标等。
Dim t As Table = Tables("表B")
For Each a As OBJECT In t.grid.Parent.controls
For Each b As OBJECT In a.controls
If t.cols.Contains(b.text) Then
For Each c As object In b.tabpages
If t.cols.Contains(c.text) Then
If t.Current.IsNull(c.text) Then
c.image = Nothing
Else
c.image = getimage("d:\\test.ico")
End If
End If
Next
End If
Next
Next
-- 发布时间：2017/10/26 23:09:00
--
谢谢，效果一样!