2013-08-04 4 views
0

У меня есть гиперссылка в ячейке J24 моей таблицы. Я хочу открыть winform, когда пользователь нажимает на гиперссылку. В моих старых дней VBA, который был довольно прост:FollowHyperlink для открытия winform

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?

ответ

2

Вы должны телеграфировать в подпрограмму с событием:

Addhandler worksheet.FollowHyperLink, AddressOf FollowHyperlink 

или добавить оператор обработчика к югу (должен иметь декларацию WithEvents на переменную для этого, чтобы работать):

Private WithEvents Worksheet As {WorkSheet} 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Handles Worksheet.FollowHyperlink 
Смежные вопросы