Foxtable(狐表)用户栏目专家坐堂 → [求助]记录窗口提示问题


  共有2651人关注过本帖树形打印复制链接

主题:[求助]记录窗口提示问题

帅哥哟,离线,有人找我吗?
pcxjxjhkw
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]记录窗口提示问题  发帖心情 Post By:2015/9/10 10:05:00 [只看该作者]

我在窗口中动态生成一SQLTable表,隐藏,绑定到记录窗口中,

想实现:1.记录窗口的标题可否设为右对齐,可否设置标题颜色?

2.鼠标移到记录窗口中的列中,自动以提示方式显示该内容?

 

谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/10 10:41:00 [只看该作者]

1、

 

Dim rdg = e.Form.Controls("RecordGrid1").BaseControl

rdg.cols(0).TextAlign  = 7

rdg.cols(0).style.BackColor = color.Red

 

2、参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72491&skin=0

 

 

-------全局代码
Public Sub MouseLeaveCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    Functions.Execute("MouseLeaveCell", sender, e)
End Sub

Public Sub MouseEnterCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    Functions.Execute("MouseEnterCell", sender, e)
End Sub

Public myToolTip As New Windows.Forms.ToolTip()

 

--------- 内部函数 MouseEnterCell
Dim sender As object = args(0)
Dim e As object = args(1)
myToolTip.SetToolTip(sender, sender(e.Row, e.Col))

 

-------- 内部函数 MouseLeaveCell
Dim sender As object = args(0)
Dim e As object = args(1)
myToolTip.SetToolTip(sender, "")

 

-------- 绑定事件
Dim g As C1.Win.C1FlexGrid.C1FlexGridBase = e.Form.Controls("RecordGrid1").baseControl
addhandler g.MouseEnterCell, addressof MouseEnterCell
addhandler g.MouseLeaveCell, addressof MouseLeaveCell


 回到顶部
帅哥哟,离线,有人找我吗?
pcxjxjhkw
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/9/10 10:47:00 [只看该作者]

谢谢

 回到顶部