MSHFGird能否响应行(列)的宽度(高度)的改变事件...........

[chengyumao]

如题,发现没有这个事件,难道要定时检测??? 求高人指教!! 一定给分.....

[talent303]

'显示MSHFGird表头
Public Sub ShowTitle()
Dim i As Integer

With msgList
.Cols = 22
.TextMatrix(0, 1) = "编号"
.TextMatrix(0, 2) = "姓名"
.TextMatrix(0, 3) = "日期"
.TextMatrix(0, 4) = "本月天数"
.TextMatrix(0, 5) = "公休假天数"
.TextMatrix(0, 6) = "应出勤天数"
.TextMatrix(0, 7) = "出勤"
.TextMatrix(0, 8) = "旷工"
.TextMatrix(0, 9) = "年休"
.TextMatrix(0, 10) = "请假"
.TextMatrix(0, 11) = "迟到"
.TextMatrix(0, 12) = "早退"
.TextMatrix(0, 13) = "忘定卡"
.TextMatrix(0, 14) = "假日加班"
.TextMatrix(0, 15) = "其他加班"
.TextMatrix(0, 16) = "补休天数"
.TextMatrix(0, 17) = "出差天数"
.TextMatrix(0, 18) = "加班费"
.TextMatrix(0, 19) = "扣考核"
.TextMatrix(0, 20) = "其它"
.TextMatrix(0, 21) = "备注"


'固定表头
.FixedRows = 1

'设置各列的对齐方式
For i = 0 To 3
.ColAlignment(i) = 0
Next i

For i = 4 To 19
.ColAlignment(i) = 7
Next i
For i = 20 To 21
.ColAlignment(i) = 0
Next i

'表头项居中
.FillStyle = flexFillRepeat
.Col = 0
.Row = 0
.RowSel = 1
.ColSel = .Cols - 1
.CellAlignment = 4

'设置单元大小
.ColWidth(0) = 300
.ColWidth(1) = 1000
.ColWidth(2) = 1000
.ColWidth(3) = 1000
.ColWidth(4) = 1000
.ColWidth(5) = 1000
.ColWidth(6) = 1000
For i = 7 To 13
.ColWidth(i) = 600
Next i
For i = 14 To 19
.ColWidth(i) = 800
Next i
.ColWidth(20) = 2500
.ColWidth(21) = 2500

.Row = 1

End With
End Sub

[羽毛之家]

楼上是不是误解楼主的意思了啊

[tgc99]

我来顶一下.

[DragonFly_1976]

我已经解决到90%了。
我正在解决这个问题，欢迎一起解决，加入msn：[e-mail]

[taocsdn]

UP

[chengyumao]

.... talent303(风筝):我不是说不能显示,是说如何响应行(列)改变时的事件..........或是类似功能,

[kinlin]

直接的事件没有，需要用API捕获鼠标消息

[jiang8360]

up

[DragonFly_1976]

我有现成的原代码，需要的话，加QQ:17437490