MSHFlexGrid如何只选中一行？不要选择多行！急切需要帮助

Question

并且将选中的一行的内容放入TEXTBOX中？

Answer 1

Private Sub Form_Load()
    MSHFlexGrid1.SelectionMode = flexSelectionByRow
End SubPrivate Sub MSHFlexGrid1_Click()
    txtNumber.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
    txtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
    txtCard.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
End Sub

Answer 2

设置一个属性，是High...开头的，把它设为默认值之外的另一值。用Col、Row转移焦点，用Text属性一个一个读出。

Answer 3

谢谢！我已经利用GOTFOCUS方法解决了这个问题！

Answer 4

1。 HighLight
2。 selectionmode
3。 FocusRect
这是3个通常用的属性设选择方式的

Answer 5

Dim tt As Long
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
tt = Me.MSHFlexGrid1.RowSel
MSHFlexGrid1.Redraw = False
End SubPrivate Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.MSHFlexGrid1.Row = tt
Me.MSHFlexGrid1.Col = 0
Me.MSHFlexGrid1.ColSel = 0
Me.MSHFlexGrid1.ColSel = Me.MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Redraw = True
End Sub