Question

vb 中的MSHFlexgrid控件怎么实现双击其中的一行就能在窗体中显现那一行的具体内容

Answer 1

例如：
Private Sub MSHFlexGrid1_DblClick()
Dim i As Long
Text1 = ""
With MSHFlexGrid1
For i = 0 To .Cols - 1
Text1 = Text1 & .TextMatrix(.Row, i) & ", "
Next
End With
End Sub

追问

看不懂啊，能详细点吗，谢谢

追答

Private Sub MSHFlexGrid1_DblClick()
Dim i As Long
Text1 = "" ‘Text1 是个文本框控件，这里先清空它
With MSHFlexGrid1 '这行到 End With 那行之间，那些带点 "." 的自动加上MSHFlexGrid1，例如 .Cols 变成 MSHFlexGrid1.Cols
For i = 0 To .Cols - 1
Text1 = Text1 & .TextMatrix(.Row, i) & ", "
Next
End With
End Sub

Text1 = Text1 & .TextMatrix(.Row, i) & ", "：
每次循环向 Text1 里原有的字符串后面 加一个新字符串 .TextMatrix(.Row, i) & ", "
这个新字符串由两个字符串.TextMatrix(.Row, i) 和 ", " 组成
其中 .TextMatrix(.Row, i) 就是 MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
MSHFlexGrid1.Row 是 MSHFlexGrid1 当前行，就是你点击的那一行
TextMatrix(MSHFlexGrid1.Row, i) 是当前行的第 i 列数据

Answer 2

Private Sub MSHFlexGrid1_DblClick()
msgbox MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1) '显示双击那行的第一列内容

End Sub