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

chengyumao 2004-08-14 12:12:10
如题,发现没有这个事件,难道要定时检测??? 求高人指教!! 一定给分.....
...全文
109 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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

回复
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
回复
相关推荐
发帖
控件
创建于2007-09-28

1425

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2004-08-14 12:12
社区公告
暂无公告