代码设置选中多行

收藏

环境vb.net 2010;spread for winforms;
我设置的 operationmode=ExtendedSelect
selectionpolicy=mutirange
selectionunit=row
就是单击的时候会选中一行，请问用代码怎么写同时选中第一行到第四行

wodetnt · wodetnt

Private Sub table_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles table.CellDoubleClick
FpSpread1.ActiveSheet.AddSelection(0, 0, 3, FpSpread1.ActiveSheet.ColumnCount - 1)
end sub

这样写双击时候没效果。。。

iceman · iceman

回复 2楼wodetnt的帖子

我使用以下代码添加成功：

With FpSpread1
.ActiveSheet.OperationMode = FarPoint.Win.Spread.OperationMode.ExtendedSelect
.ActiveSheet.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange
.ActiveSheet.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Row
.ActiveSheet.AddSelection(0, -1, 4, -1)
End With

复制代码

wodetnt · wodetnt

在fpsperad1_CellDoubleClick里面不可以，但是如果放个按钮，command1_click里面用就可以实现。请问怎么在fpsperad1_CellDoubleClick里面使用？

iceman · iceman

回复 4楼wodetnt的帖子

请使用如下代码测试：

Private Sub FpSpread1_CellDoubleClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick
Dim startRow As Int32
startRow = 0
Dim endRow As Int32
endRow = 4
e.Cancel = True
FpSpread1.ActiveSheet.SetActiveCell(startRow, 0)
FpSpread1.ActiveSheet.AddSelection(startRow, -1, endRow, -1)
End Sub

复制代码

		自动登录	找回密码
密码			立即注册

[已处理] 代码设置选中多行

4 个回复

活字格认证

微信认证勋章

元老葡萄