如何使用TaskDialogIndirect在vb6中獲得回調函數？

Question

我在VB6中使用TaskDialogIndirect。它工作得很好，我甚至在TASKDIALOGCONFIG的pszFooter成員中都有鏈接工作（使能TDF_ENABLE_HYPERLINKS）。

的問題是，當光標變成「手」懸停在鏈接的時候，我不知道如何讓TaskDialogIndirect的TASKDIALOGCONFIG.pfCallback成員，使其指向我的一個自定義函數，所以我能實際上將用戶引導至所示的超鏈接。

tdi.pszFooter = StrPtr("<a href=" & Chr$(34) & "www.cnn.com" & Chr$(34) & ">www.cnn.com</a>") 

任何人都可以幫我嗎？謝謝！

Answer 1

Public Function FnPtrToLong(ByVal lngFnPtr As Long) As Long 
    FnPtrToLong = lngFnPtr 
End Function