MSHFlexGrid 选择问题当鼠标选择MSHFlexGrid 的空白区域时相近单元格就被选择中了，现在想避免个动作能否实现?

[wyb0026]

当鼠标选择MSHFlexGrid 的空白区域时相近单元格就被选择中了，现在想避免个动作能否实现?

[zhufenghappy]

Option Explicit

Private Sub Form_Load()
Dim i As Integer, j As Integer
MSHFlexGrid1.Cols = 3
MSHFlexGrid1.Rows = 3
For i = 1 To 2
MSHFlexGrid1.ColWidth(i) = 1000
For j = 1 To 2
MSHFlexGrid1.TextMatrix(i, j) = i
Next
Next
End Sub



Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
Dim iX As Integer
Dim iY As Integer
With MSHFlexGrid1
iX = MSHFlexGrid1.ColWidth(1) * .Cols

iY = MSHFlexGrid1.RowHeight(i) * .Rows
If x > iX Or y > iY Then
.Row = 0
.RowSel = 0
.Col = 0
.ColSel = 0
End If
End With
End Sub

[yachong]

假设有一个固定行和一个固定列，可以把row/col设置为左上角的固定单元格，这样就看不到选中了

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With MSHFlexGrid1
        If y > .CellTop + .CellHeight Or x > .CellLeft + .CellWidth Then
            .Row = 0
            .Col = 0
            .HighLight = flexHighlightNever
        Else
            .HighLight = flexHighlightAlways
        End If
    End With
End Sub

[msdnzhclsy]

沒明白，先記下，待會看看。

[yachong]

前面贴的代码，只有SelectionMode属性为flexSelectionFree的时候才有效

Private Sub Form_Load()
    Dim i As Long
    With MSHFlexGrid1
        For i = 0 To .Cols - 1
            .ColWidth(i) = 1000'ColWidth默认为-1 改为1000（或其它值）才能保证MouseDown事件的代码正常使用
        Next
    End With
End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With MSHFlexGrid1
        If y > .RowPos(.Rows - 1) + .RowHeight(.Rows - 1) Or x > .ColPos(.Cols - 1) + .ColWidth(.Cols - 1) Then
            'Print .Col
            .HighLight = flexHighlightNever
            .Row = 0
            .Col = 0
        Else
            .HighLight = flexHighlightAlways

        End If
    End With
End Sub

[wyb0026]

写给与的答复，代码试验过了，我的程序是以选择，
.Row = 0
.RowSel = 0
.Col = 0
.ColSel = 0 效果上不好，并且Click事件还会触发，还有别的办法吗？

[wyb0026]

up