0

我的电子表格的单元格 J24 中有一个超链接。当用户点击超链接时,我想打开一个winform。在我以前的 VBA 时代,这非常简单:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)


If Target.Parent.Address = "$L$48" Then

      frm.Show

End if

但是,我现在已经过渡到 VB.net。我看到我有 followHyperlink 事件,但是当我尝试以下操作时它不起作用:

   Private Sub dsbEmployeeBoard_FollowHyperlink(Target As Microsoft.Office.Interop.Excel.Hyperlink) Handles Me.FollowHyperlink

    Dim test As New frmCustomRanges

    If Target.Parent.Address = "$L$48" Then

        test.Show()


    End If


End Sub

有没有人知道如何在 VB.net 中完成这个?

4

1 回答 1

2

您必须将子例程与事件联系起来:

Addhandler worksheet.FollowHyperLink, AddressOf FollowHyperlink

或将处理程序语句添加到 sub (必须在变量上具有 WithEvents 声明才能使这个工作):

Private WithEvents Worksheet As {WorkSheet}
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Handles Worksheet.FollowHyperlink
于 2013-08-04T01:04:23.627 回答