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