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"))'隨機(jī)賦值
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 '升序降序轉(zhuǎn)換
With MSHFlexGrid1
If Button = 1 And .MouseRow = 0 Then '點(diǎn)擊左鍵,第1 行
.Col = .MouseCol '選擇排序列
.ColSel = 1
.Sort = mysort '排序方式
End If
End With
End Sub