请问如何取出mshflexgrid中任意一单元格中的内容

请问如何取出mshflexgrid中任意一单元格中的内容

解决方案 »

用TextMatrix属性来取得。

MSHFlexGrid1.TextMatrix(row,col)

row为行，col为列如：text1.text=MSHFlexGrid1.TextMatrix(5,3)

  

TextMatrix 属性

      返回或设置一个任意单元的文本内容。语法object.TextMatrix(rowindex, colindex) [=string]TextMatrix 属性的语法包含如下部分：部分 描述 

object 一个对象表达式，其值为“应用于”列表中的一个对象。 

rowindex, colindex 整数。一个数值表达式，指定要读或写哪一个单元。 

String 一个字符串表达式，包含一个任意的单元的内容。 

说明这一属性允许不更改 Row 和 Col 属性来设置或获取一个单元的内容。

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

TextArray 属性

      返回或设置一个任意单元的文本内容。语法object.TextArray(cellindex) [=string]TextArray 属性的语法包含如下部分：部分 描述 

Object 一个对象表达式，其值为“应用于”列表中的一个对象。 

Cellindex 整数。一个数值表达式，指定要读或写哪一个单元。请参阅说明。 

string 一个字符串表达式，包含一个任意的单元的内容。 

说明这一属性允许不更改 Row 和 Col 属性来设置或获取一个单元的内容。cellindex 参数决定要用哪一个单元。它是由首选行乘 Cols 属性并加上首选列计算的。计算 cellindex 的最清晰和最方便的方法是定义一个函数来完成。如示例中显示。TextArray 属性示例

下面的示例显示如何通过定义一个函数计算 cellindex。注意 如果正在使用 MSFlexGrid，用“MSFlexGrid1”代替“MSHFlexGrid1”。' 为使用TextArray 属性计算索引。

Function faIndex(row As Integer, col As Integer) As Long

faIndex =row * MSHFlexGrid1.Cols + col

End Function

Sub Form_Load()

Dim i as Integer

' 用使用 TextArray 属性的数据填充 MSHFlexGrid。

For i =MSHFlexGrid1.FixedRows to MSFlexGrid1.Rows - 1

' ** 列 1

MSHFlexGrid1.TextArray(faIndex(i, 1)) =RandomName()

' 列 2.

MSHFlexGrid1.TextArray(faIndex(i, 2)) =RandomNumber()

Next

链接URL：https://www.debugease.com/vb/3032919.html