1,453
社区成员
发帖
与我相关
我的任务
分享MSHFGird能否响应行(列)的宽度(高度)的改变事件...........
如题,发现没有这个事件,难道要定时检测??? 求高人指教!! 一定给分.....
...全文
请发表友善的回复…
发表回复
DragonFly_1976 2004-09-06
- 打赏
- 举报
我有现成的原代码，需要的话，加QQ:17437490
jiang8360 2004-09-06
- 打赏
- 举报
up
kinlin 2004-08-16
- 打赏
- 举报
直接的事件没有，需要用API捕获鼠标消息
chengyumao 2004-08-15
- 打赏
- 举报
.... talent303(风筝):我不是说不能显示,是说如何响应行(列)改变时的事件..........或是类似功能,
taocsdn 2004-08-15
- 打赏
- 举报
UP
DragonFly_1976 2004-08-14
- 打赏
- 举报
我已经解决到90%了。
我正在解决这个问题，欢迎一起解决，加入msn：cui_hongkai@hotmail.com
我正在解决这个问题，欢迎一起解决，加入msn：cui_hongkai@hotmail.com
tgc99 2004-08-14
- 打赏
- 举报
我来顶一下.
羽毛之家 2004-08-14
- 打赏
- 举报
楼上是不是误解楼主的意思了啊
talent303 2004-08-14
- 打赏
- 举报
'显示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
