事件是 SelectionChanged 用 GetSelection(0);获取选中区域
- Private Sub FpSpread1_SelectionChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.SelectionChangedEventArgs) Handles
- FpSpread1.SelectionChanged
- Dim cr As FarPoint.Win.Spread.Model.CellRange
- cr = e.View.Sheets(0).GetSelection(0)
- Label1.Text = "The first column in the selection is " & cr.Column & " and the first row is " & cr.Row
- End Sub
复制代码 |