MSHFlexGrid 鼠标双击获取行数据

Private  Sub gduser_dblclick()
' 数据列表双击事件
     Dim introw  As  Integer
    introw = gdUser.Row  ' 得到当前行
     With gdUser
        txtUser.Text = .TextMatrix(.Row,  2)
        txtPass.Text = .TextMatrix(.Row,  3)
     End  With
End Sub

'MSHFlexGrid 控件名称为：gdUser

转载于:https://www.cnblogs.com/findw/archive/2012/03/20/2407600.html