フォルダダイアログの初期位置について (ID:82673)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 '------------------------------------------------------------- Public Declare Function SendMessage Lib...ny) As Long Public Const WM_USER = &H400 Public Const BFFM_SETS...ER + 102) Public Const BFFM_INITIALIZED = 1 Public Function BrowseCallbackProc(By...ng) As Long 'コールバック関数 If uMsg = BFFM_INITIALIZED Then SendMessag...al lpData End If End Function Public Function FARPROC(pfn As Long) As Long 'AddressOf...す関数 FARPROC = pfn End Function '----------------------------------------------------------------------- 標準モジュールに以上のことを書き、 # 途中、省略してあります。 実際使用するところに、 .lpfn = FARPROC(AddressOf BrowseCallbackProc) 'コールバック関数のアドレス と記述すれば良いかと。