股市魔咒日:vb 点击MSHFlexGrid列标题排序
来源:百度文库 编辑:偶看新闻 时间:2024/10/02 17:30:15
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
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 同样的数字如何排除掉