HyperLinkCellType 会打开空IE窗口

收藏

产品版本：spread for windows forms 5.0j  产品模块：_____操作系统：winxp SP3 IDE：VS2008
问题描述：单元格的类型设置成HyperLinkCellType，但LINK不设定的情况下，点击单元格，会打开空的IE窗口，这个老版本的SPREAD,版本号是1.1的，就没有这个问题。
以下是代码：
HyperLinkCellType1.Text = "select"
      Me.Spd_Detail_Sheet1.Columns.Get(1).CellType = HyperLinkCellType1
      Me.Spd_Detail_Sheet1.Columns.Get(1).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
      Me.Spd_Detail_Sheet1.Columns.Get(1).ForeColor = System.Drawing.SystemColors.HotTrack
      Me.Spd_Detail_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
      Me.Spd_Detail_Sheet1.Columns.Get(1).Locked = True
      Me.Spd_Detail_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
      Me.Spd_Detail_Sheet1.Columns.Get(1).Width = 45.0!

ZenosZeng · ZenosZeng

你好，因为GCDN针对英文版Spread的技术支持，没有日文版的验证环境，所以只能在Spread 5.0英文版中对你的代码进行测试，实在抱歉。

测试结果如下：如果设置Locked = true点击是不会打开IE窗口；如果Locked = false会打开一个新的IE窗口

我的测试代码如下：

Dim HyperLinkCellType1 As New FarPoint.Win.Spread.CellType.HyperLinkCellType
HyperLinkCellType1.Text = "select"
HyperLinkCellType1.Link = "gcdn.grapecity.com"
Me.FpSpread1_Sheet1.Columns.Get(1).CellType = HyperLinkCellType1
Me.FpSpread1_Sheet1.Columns.Get(1).Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.FpSpread1_Sheet1.Columns.Get(1).ForeColor = System.Drawing.SystemColors.HotTrack
Me.FpSpread1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.FpSpread1_Sheet1.Columns.Get(1).Locked = True
Me.FpSpread1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.FpSpread1_Sheet1.Columns.Get(1).Width = 45.0!

复制代码

你可以通过以下网址得到Spread日文版的技术支持：https://www.grapecity.com/japan/support/

njpyxujin · njpyxujin

好的，非常感谢版主：）

njpyxujin · njpyxujin

看了下日本版，还真的有人问这个问题的，真的非常感谢版主：）

njpyxujin · njpyxujin

这个是日文版上面的解决办法：
Private Sub Spd_Detail_Error(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.ErrorEventArgs) Handles Spd_Detail.Error
      If e.EditError = FarPoint.Win.Spread.EditError.InvalidHyperlink Then
         e.Cancel = True
      End If
End Sub

这个问题已经解决

ZenosZeng · ZenosZeng

问题解决就好，同时感谢你分享解决方法。

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

[已处理] HyperLinkCellType 会打开空IE窗口

5 个回复

回复 1# njpyxujin 的帖子

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人