Question

如何让Msflexgrid控件选中一行

Answer 1

SelLength、SelStart、SelText 属性

SelLength－返回或设置所选择的字符数。

SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。

SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。
这些属性在设计时是不可用的。

语法

object.SelLength [= number]

object.SelStart [= index]

object.SelText [= value]

SelLength、SelStart、和 SelText 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是“应用于”列表中的一个对象。
Number 一个用来指定被选择字符数的数值表达式。对于 SelLength 和 SelStart，设置值的有效范围是 0 到文本长度－在 ComboBox 或 TextBox 控件编辑区中字符的总数。
Index 一个用来指定所选择文本的起始点的数值表达式，“设置值”中有详细描述。
Value 包含所选择文本的字符串表达式。

说明

为下面这些任务应使用这些属性，如设置插入点、建立插入范围、在控件中选择子串、或清除文本等。与 Clipboard 对象联合使用，这些属性对于复制、剪切、和粘贴操作是很有用的。

当使用这些属性时：

SelLength 的设置比 0 小会导致一个运行时错误。

SelStart 的设置比文本长度大，会使该属性设置为现有文本长度；SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。

SelText 的设置为新值，会将 SelLength 设置为 0 并用新字符串代替所选择的文本。

=============================

Private Sub Form_Load()

With MSHFlexGrid1

.FixedCols = 0
.FixedRows = 0

.Rows = 0
.Cols = 3

.AddItem "1" & vbTab & "1" & vbTab & "1"
.AddItem "1" & vbTab & "2" & vbTab & "1"
.AddItem "2" & vbTab & "1" & vbTab & "2"
.AddItem "2" & vbTab & "2" & vbTab & "1"
.AddItem "2" & vbTab & "1" & vbTab & "2"
.AddItem "2" & vbTab & "2" & vbTab & "2"

'选择第 .Row 行所有列
.Row = 0
.Col = 0
.ColSel = .Cols - 1

End With

End Sub