最好的方法:
首先
你得把MSHFlexgrid的
BackColorSel
ForeColorSel
两个属性设为不同的颜色值
然后在MSHFlexgrid的MouseDown中加入:
Private Sub MSHFlexgrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
With MSHFlexgrid1
.Row = .MouseRow
If .Row <> 0 Then
.Col = .Cols - 1
.ColSel = 1
End If
End With
End Sub
也看过有人用过此方法,但有一点很不好,就是他们把
.Col = .Cols - 1
.ColSel = 1
写成了
.Col=0
.ColSel=.Cols-1
这样的话用户点击MSHFlexgrid时,MSHFlexgrid会移到
最后一列去,如何你的列多得一屏无法显示的话,那么
你会看到很糟糕的现象。
这样给用户的印象很不好,用户会感到恐慌。