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


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

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

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部