回 帖 发 新 帖 刷新版面

主题:[原创]MSFlexGrid强制整行实现表头排序(双向)

[color=FF00FF]根据众多编程爱好者的要求,已经将排序修改为双向排序[/color]

'********************************************
'MSFlexGrid在强制整行选择的情况下实现表头排序
'
'功能:在单击表头时根据当前列进行排序,再次单
'      击反序排列。单击数据区域时进行整行选择
'
'2005-09-21 FieldMAX
'********************************************

Private Sub Form_Load()
'创建一个8*8的MSFlexGrid并在其中填入随机数
Dim i As Long
Dim j As Long
MSFlexGrid1.Rows = 8
MSFlexGrid1.Cols = 8
MSFlexGrid1.FormatString = "|A|B|C|D|E|F|G"
For i = 0 To 7
    MSFlexGrid1.ColWidth(i) = 615
Next
For i = 1 To 7
    MSFlexGrid1.TextMatrix(i, 0) = i
    For j = 1 To 7
        MSFlexGrid1.TextMatrix(i, j) = Int(Rnd * 1000)
        n = n + 1
    Next
Next
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'在MSFlexGrid的实际应用中经常需要强制整行选并且还需要排序功能,
'但是由于MSFlexGrid本身的缺陷,在正常情况下是无法实现两者兼得的。
'唯一的变通方法就是使用MouseDown或MouseUp事件独有的"X","Y"坐标来
'确定点击的列,再进行排序。
'这个排序程序已经经过修改,可以实现升序和降序两种排序同时存在。
    Dim i As Long
    Dim j As Long
    Dim Cw As Long
    '如果Y坐标点击的是表头区域
    If y < MSFlexGrid1.RowHeight(0) Then
        Cw = 0
    '用循环语句判断X在那一列,I代表列数
        For i = 0 To MSFlexGrid1.Cols - 1
            Cw = Cw + MSFlexGrid1.ColWidth(i)
            If x < Cw Then Exit For
        Next
        If i < MSFlexGrid1.Cols Then
        '↑
            If Left(MSFlexGrid1.TextMatrix(0, i), 1) <> "↓" Then
                For j = 0 To 7
                    If Left(MSFlexGrid1.TextMatrix(0, j), 1) = "↓" Or Left(MSFlexGrid1.TextMatrix(0, j), 1) = "↑" Then MSFlexGrid1.TextMatrix(0, j) = Mid(MSFlexGrid1.TextMatrix(0, j), 2)
                Next
                MSFlexGrid1.Col = i   '定位列坐标
                MSFlexGrid1.Sort = 1    '进行升序排列
                MSFlexGrid1.TextMatrix(0, i) = "↓" & MSFlexGrid1.TextMatrix(0, i)
            Else
                For j = 0 To 7
                    If Left(MSFlexGrid1.TextMatrix(0, j), 1) = "↓" Or Left(MSFlexGrid1.TextMatrix(0, j), 1) = "↑" Then MSFlexGrid1.TextMatrix(0, j) = Mid(MSFlexGrid1.TextMatrix(0, j), 2)
                Next
                MSFlexGrid1.Col = i   '定位列坐标
                MSFlexGrid1.Sort = 2    '进行升序排列
                MSFlexGrid1.TextMatrix(0, i) = "↑" & MSFlexGrid1.TextMatrix(0, i)
            End If
        End If
    End If
End Sub


[color=FF00FF]根据众多编程爱好者的要求,已经将排序修改为双向排序[/color]

回复列表 (共16个回复)

沙发

太谢谢你了
好帖 顶!
强列支持楼主!

板凳

楼主
能不能讲一下mshflexgrid的宽度属性为哪个?谢谢了

3 楼

.colw*****

4 楼

您好:
我用mshfgrid显示数据,没有直接连数据库,所以用你的排序方法之后,表头也参与了排序,怎样才能实现不让第一行(也就是表头)参与排序。我也给你发了短消息,怕你看不到,所以又给你发了邮件。


谢谢

5 楼

If i < MSFlexGrid1.Cols Then

改为

If i > 0 and i < MSFlexGrid1.Cols Then

6 楼

楼主!
请问怎么实现(mshflexgrid)的单击是升序双击为降序
我知道只用改一下好了
希望你帮忙!
不甚感激!还有它的宽度可以说明白一点吗?
小弟我不太明白

7 楼

6楼的太夸张了!既然强制选择了列就不用这么麻烦了

在click增加
.Sort = 1

就可以排序

8 楼

我用了你的方法还是不行,能否将第一行(表头)固定,不让它进行排序。

9 楼

楼主希望您能说清楚点
我市想实现下面的功能
请问怎么实现(mshflexgrid)的单击是升序双击为降序
我知道只用改一下好了
希望你帮忙!
不甚感激!还有它的宽度可以说明白一点吗?
小弟我不太明白
你只写了单击的情况
双击是哪个事件?我知道降序是=2
请大虾帮忙

10 楼

mshflexgrid没有双击事件,你可以利用timer做延迟检测

或者使用一个数组作条件开关来实现点一次升序在点一次降序

我来回复

您尚未登录,请登录后再回复。点此登录或注册