vb6 - 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