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

解决方案 »

  1.   

    我已经解决到90%了。
    我正在解决这个问题,欢迎一起解决,加入msn:[email protected]
      

  2.   


    '显示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
      

  3.   

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

  4.   

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