代码设置选中多行

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

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

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

回复 2楼wodetnt的帖子

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

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

复制代码

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

回复 4楼wodetnt的帖子

请使用如下代码测试：

1. 
   
2. Private Sub FpSpread1_CellDoubleClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellDoubleClick
   
3.         Dim startRow As Int32
   
4.         startRow = 0
   
5.         Dim endRow As Int32
   
6.         endRow = 4
   
7. 
   
8.         e.Cancel = True
   
9. 
   
10.         FpSpread1.ActiveSheet.SetActiveCell(startRow, 0)
    
11.         FpSpread1.ActiveSheet.AddSelection(startRow, -1, endRow, -1)
    
12. 
    
13. 
    
14.     End Sub
    

复制代码