MSHFlexGrid1使用技巧（一）[如何让MSHFlexGrid只能被选中一行]

最新推荐文章于 2025-08-09 11:49:35 发布

最新推荐文章于 2025-08-09 11:49:35 发布 · 248 阅读

文章标签：

#J#

博客介绍了MSHFlexGrid控件的一个小技巧，该控件点击时默认可选中多行，若只需选中一行，给出了相应代码实现。包含Form_Load和MSHFlexGrid1_MouseDown两个子程序，通过设置相关属性达成单行选中目的。

MSHFlexGrid控件点击时可以选中多行，但有时我们需要仅仅选中一行，有一个小技巧：

Option Explicit
Private Sub Form_Load()
Dim i As Integer, j As Integer
With MSHFlexGrid1
.Rows = 10
.Cols = 4
For i = 1 To 9
.TextMatrix(i, 0) = "第 " & i & " 行"
For j = 1 To 3
.TextMatrix(0, j) = "第 " & j & " 列"
.TextMatrix(i, j) = i & "," & j
Next
Next
.SelectionMode = flexSelectionByRow
.BackColorSel = vbGreen
.ForeColorSel = vbRed
End With
End Sub
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With MSHFlexGrid1
.Row = .MouseRow
.Col = 0
.ColSel = .Cols - 1
End With
End Sub