如何使用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