vb farpoint 获取选中的行和列

你可以使用 FarPoint 的 Spread 控件提供的方法来获取当前选中单元格所在的行和列。

以下是一个获取当前选中单元格行列的示例代码：

Private Sub GetSelectedRowAndCol()
    Dim iRow As Integer
    Dim iCol As Integer
    
    '获取当前选中单元格的行列
    iRow = FpSpread1.ActiveSheet.ActiveRowIndex
    iCol = FpSpread1.ActiveSheet.ActiveColumnIndex
    
    '输出结果
    MsgBox "当前选中单元格的行为：" & iRow & vbCrLf & "当前选中单元格的列为：" & iCol
End Sub

其中，`FpSpread1` 为你的 FarPoint Spread 控件的名称。`ActiveSheet.ActiveRowIndex` 和 `ActiveSheet.ActiveColumnIndex` 分别表示当前选中单元格所在的行和列。你可以根据需要修改代码来适应你的应用场景。

相关问题

vb farpoint 获取选中的多行和多列

要获取 FarPoint Spread 控件中选中的多行和多列，你可以使用 `SelectionPolicy` 属性来设置选中策略，并通过 `SelectionModel` 属性来获取选中的行和列。下面是一个示例代码，可以获取控件中选中的多行和多列：

Private Sub GetSelectedRowsAndCols()
    Dim i As Integer
    Dim iRow As Integer
    Dim iCol As Integer
    Dim sRows As String
    Dim sCols As String
    
    '设置选中策略为行选择和列选择
    FpSpread1.ActiveSheet.SelectionPolicy = FarPoint.Win.Spread.Model.SelectionPolicy.MultiRange
    
    '获取选中的行和列
    For i = 0 To FpSpread1.ActiveSheet.SelectionModel.RowCount - 1
        iRow = FpSpread1.ActiveSheet.SelectionModel.GetRow(i)
        iCol = FpSpread1.ActiveSheet.SelectionModel.GetColumn(i)
        
        '将选中的行和列添加到字符串中
        sRows = sRows & iRow & ","
        sCols = sCols & iCol & ","
    Next
    
    '去除最后一个逗号
    If Len(sRows) > 0 Then
        sRows = Left(sRows, Len(sRows) - 1)
    End If
    
    If Len(sCols) > 0 Then
        sCols = Left(sCols, Len(sCols) - 1)
    End If
    
    '输出结果
    MsgBox "选中的行为：" & sRows & vbCrLf & "选中的列为：" & sCols
End Sub

其中，`FpSpread1` 为你的 FarPoint Spread 控件的名称。在示例代码中，我们将选中策略设置为行选择和列选择，这样就可以选中多行和多列。然后，我们通过 `SelectionModel` 属性获取选中的行和列，并将它们添加到字符串中。最后，我们输出选中的行和列。你可以根据需要修改代码来适应你的应用场景。

vb farpoint SelectionCount 如何获取选中的多行和多列

如果你的 FarPoint Spread 控件版本比较旧，没有 `SelectionModel` 和 `SelectionBlock` 属性，你可以使用 `SelectionCount` 属性来获取选中的多行和多列。下面是一个示例代码，可以获取控件中选中的多行和多列：

Private Sub GetSelectedRowsAndCols()
    Dim i As Integer
    Dim iRow As Integer
    Dim iCol As Integer
    Dim sRows As String
    Dim sCols As String
    
    '获取选中的行和列
    For i = 0 To FpSpread1.ActiveSheet.SelectionCount - 1
        iRow = FpSpread1.ActiveSheet.GetSelection(i).Row
        iCol = FpSpread1.ActiveSheet.GetSelection(i).Column
        
        '将选中的行和列添加到字符串中
        sRows = sRows & iRow & ","
        sCols = sCols & iCol & ","
    Next
    
    '去除最后一个逗号
    If Len(sRows) > 0 Then
        sRows = Left(sRows, Len(sRows) - 1)
    End If
    
    If Len(sCols) > 0 Then
        sCols = Left(sCols, Len(sCols) - 1)
    End If
    
    '输出结果
    MsgBox "选中的行为：" & sRows & vbCrLf & "选中的列为：" & sCols
End Sub

其中，`FpSpread1` 为你的 FarPoint Spread 控件的名称。在示例代码中，我们通过 `SelectionCount` 属性获取选中的行和列，并将它们添加到字符串中。最后，我们输出选中的行和列。你可以根据需要修改代码来适应你的应用场景。