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