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