MSFlexGrid强制整行实现表头排序（双向）

最新推荐文章于 2021-03-07 15:02:21 发布

netcellsoft

最新推荐文章于 2021-03-07 15:02:21 发布

阅读量1k

点赞数

分类专栏： vb 文章标签： integer button c

本文链接：https://blog.csdn.net/netcellsoft/article/details/3873633

版权

该博客介绍了如何在VB中利用MSFlexGrid控件在强制整行选择的条件下实现表格表头的排序功能。通过MouseDown事件和X、Y坐标判断点击的列，进行升序或降序排序。代码示例展示了在Form_Load时填充网格以及在鼠标点击时进行排序的逻辑。

摘要由CSDN通过智能技术生成

'********************************************
'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)
'