以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教：备注列的鼠标感知问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177524)
--  作者：y2287958
--  发布时间：2022/5/25 17:15:00
--  请教：备注列的鼠标感知问题
一、问题描述：用以下代码可以改变备注列的字符颜色，但如果鼠标移动到列窗口后，字符颜色立马恢复默认颜色（黑色）
Tables("表A").Cols("第十列").OpenWindow
For Each a As Object In Tables("表A").grid.parent.controls
    For Each b As Object In a.controls
        If b.text = "第十列" Then
            Dim d = b.controls(0).controls(0)
            d.ForeColor = Color.Red \'字体颜色            
            Exit For
        End If
    Next
Next
二、目的：保证列窗口字符颜色不变
1、如何调整代码？
2、如何感知鼠标进入列窗口？（如果得到感知信息，也可以用计划管理设置代码达到）

谢谢指教！
--  作者：狐狸爸爸
--  发布时间：2022/5/25 17:17:00
--  
单独设计一个窗口显示备注列内容吧
--  作者：y2287958
--  发布时间：2022/5/27 17:13:00
--  
就是想用内置的备注列窗口，每个表另外做个窗口不实际。
已经变通解决了