牧兰的歌:vb 点击MSHFlexGrid列标题排序

来源：百度文库编辑：中财网时间：2024/05/01 21:25:03

Dim mysort As Integer
Private Sub Form_Load()
   With MSHFlexGrid1
       .Cols = 4
        .Rows = 20            '20行4列
         For i = 0 To 79
             .TextArray(i) = IIf(i < 4, Chr(i + 65), Format(Int(100 * Rnd), "00"))   '随机赋值
         Next
   End With
   mysort = 7        ' 升序
End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        mysort = 15 - mysort         '升序降序转换
        With MSHFlexGrid1
               If Button = 1 And .MouseRow = 0 Then        '点击左键,第1 行
                   .Col = .MouseCol   '选择排序列
                   .ColSel = 1
                   .Sort = mysort    '排序方式
             End If
         End With
End Sub

VB控件mshflexgrid 关于VB mshflexgrid控件,查询表时0列不写入的问题 vb 中对象关闭，不允许操作，还有怎么解决“MSHFlexgrid中出现的无效列值” MSHFlexGrid在vb中的应用 VB中MSHFlexGrid的问题 MSHFlexGrid如何知道点击了表头啊 vb中MSHFlexGrid的使用的问题 VB中mshflexgrid复选的问题 vb的MSHFlexGrid控件表格大小问题什么是excel 列标题急问：vb中MSHFlexGrid与MSFlexGrid的区别关于VB MSHFlexGrid控件的使用.我头都大了. Excel如何固定列标题。神起仙后们，请点击此标题！！！ vb中怎么让MSHFlexGrid的滚动条能用鼠标来滚动 VB的MSHFlexGrid控键怎么实现复制功能,用粘贴板?Clipboard.SetText vb中的MSHFlexGrid控件的选中一行或一列的事件是什么？如何设置excel的列标题 EXCEL 中怎么更改每一列的列标题 VB 如何获取取网页标题????????????????????????????? VB中mshflexgrid控件的不同行的单元格之间如何连线?希望大哥大姐们给予帮助!谢谢!急在excel中怎样实现重复打印列标题 Fireworks中如何加入标题列的文字 vb 同样的数字如何排除掉