回复 8楼deppp的帖子
对应的VB.NET代码如下:
- Public Function CopySheet(sheet As FarPoint.Win.Spread.SheetView) As FarPoint.Win.Spread.SheetView
- Dim newSheet As FarPoint.Win.Spread.SheetView = Nothing
- If sheet IsNot Nothing Then
- newSheet = TryCast(FarPoint.Win.Serializer.LoadObjectXml(GetType(SheetView), FarPoint.Win.Serializer.GetObjectXml(sheet, "CopySheet"), "CopySheet"), SheetView)
- newSheet.SheetName = "NewSheet"
- End If
- Return newSheet
- End Function
复制代码 |