如何将旧版本Spread的SelLength在Spread7Form里实现相同功能？

收藏

旧版本的Spread是Activex，具体版本不清楚。
FPSpread.SelLength的功能应该是设置在活动单元格中要选择的字符数。

本功能在ActiveX跟Spread7Form的相同功能对照表中有取得相对应的功能控件。但是具体无法实现。
ActiveX的“SelLength” 等同于 Form7的 “GeneralEditor.SelectionLength”

Public Property SelLength() As Integer
Get
If MyBase.ActiveSheet IsNot Nothing Then
Dim ct As CellType.GeneralEditor
' 1. 这里没有出现类型转换错误
ct = CType（MyBase.ActiveSheet.Cells(.Row, .Col).CellType， CellType.GeneralEditor）
Return ct.SelectionLength
Else
Return Nothing
End If
End Get
Set(value As Integer)
Dim ct As New CellType.GeneralEditor
'2. 将GeneralEditor设置为数字或者文字类型单元格时，提示错误消息，不能将两种类型转换。
If TypeOf MyBase.ActiveSheet.Cells(_Row, _Col).CellType Is CellType.TextCellType Then
ct.EditModeCursorPosition = FarPoint.Win.EditModeCursorPosition.LastKnownPosition
ct.SelectionLength = value
MyBase.ActiveSheet.Cells(_Row, _Col).CellType = CType(ct, CellType.TextCellType)
ElseIf TypeOf MyBase.ActiveSheet.Cells(_Row, _Col).CellType Is CellType.NumberCellType Then
ct.EditModeCursorPosition = FarPoint.Win.EditModeCursorPosition.LastKnownPosition
ct.SelectionLength = value
MyBase.ActiveSheet.Cells(_Row, _Col).CellType = CType(ct, CellType.NumberCellType)
End If
End Set
End Property

复制代码

求教，如何在Spread Form 7中实现指定单元格的SelLength功能？

iceman · iceman

回复 1楼darkelf的帖子

请尝试一下代码：

public Form1()
{
InitializeComponent();
this.fpSpread1.EditModeOn += new EventHandler(fpSpread1_EditModeOn);
this.fpSpread1.Sheets[0].Cells[0, 0].Text = "ssssss";
}
void fpSpread1_EditModeOn(object sender, EventArgs e)
{
GeneralEditor ge = this.fpSpread1.EditingControl as GeneralEditor;
ge.EditModeCursorPosition = FarPoint.Win.EditModeCursorPosition.LastKnownPosition;
ge.SelectionStart = 2;
ge.SelectionLength = 5;
}

复制代码

darkelf · darkelf

的确利用事件可以设置并取得当前单元格内内容的指定长度部分。具体实现就如Ice所提供的代码。

Private Sub MyBase_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.EditModeOn
_ChangeMade = True
Dim ge As CellType.GeneralEditor = CType(Me.EditingControl, CellType.GeneralEditor)
ge.EditModeCursorPosition = FarPoint.Win.EditModeCursorPosition.LastKnownPosition
ge.SelectionStart = 2
ge.SelectionLength = 5
End Sub

复制代码

但是目前旧程序中，.SelLength是作为一个Spread的属性在用。代码如下。
现在想将这个属性实现。
也就是说，流程大概是，设置单元格坐标，然后全选单元格的内容，并设置为当前单元格。

With vaSpread1
.Col = 2
.Row = 1
.SelLength = Len(.Value)
.Action = FPSpread.ActionConstants.ActionActiveCell
.Focus()
End With

复制代码

iceman · iceman

回复 3楼darkelf的帖子

如果需要全选有更方便的解决方法：

Private Sub SetActiveCellToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SetActiveCellToolStripMenuItem.Click
Dim sv As SheetView = Me.FpSpread1.ActiveSheet
sv.Cells(1, 1).Text = "123456789"
sv.ActiveRowIndex = 1
sv.ActiveColumnIndex = 1
Me.FpSpread1.EditModeReplace = True
Me.FpSpread1.EditMode = True
End Sub

复制代码

darkelf · darkelf

3Q～～
的确这个方法解决了目前的问题。

我将您给的代码写入SelLength函数中，从执行表现上，跟需要的结果一样。

非常感谢。

iceman · iceman

回复 5楼darkelf的帖子

不客气，有问题欢迎开新帖提问。

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

[已处理] 如何将旧版本Spread的SelLength在Spread7Form里实现相同功能？

5 个回复

活字格认证

微信认证勋章

元老葡萄