Ｐａｇｅ 339 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォルダ選択ダイアログ(ﾙｰﾄﾌｫﾙﾀﾞ指定版) カンセツ 02/11/13(水) 10:56 ┗Re:フォルダ選択ダイアログ(ﾙｰﾄﾌｫﾙﾀﾞ指定版) カンセツ 02/11/13(水) 11:48 ┗Re:フォルダ選択ダイアログ(ﾙｰﾄﾌｫﾙﾀﾞ指定版) 角田 02/11/13(水) 14:17 ┗Re:フォルダ選択ダイアログ(ﾙｰﾄﾌｫﾙﾀﾞ指定版) カンセツ 02/11/14(木) 11:35 ─────────────────────────────────────── ■題名 ： フォルダ選択ダイアログ(ﾙｰﾄﾌｫﾙﾀﾞ指定版) ■名前 ： カンセツ ■日付 ： 02/11/13(水) 10:56 -------------------------------------------------------------------------
| こんにちは。 ﾙｰﾄﾌｫﾙﾀﾞを指定できるﾀｲﾌﾟのﾌｫﾙﾀﾞﾀﾞｲｱﾛｸﾞを作成しています。 が、うまくいきません。 お助け下さい。 ***********以下ｺｰﾄﾞです********* Public Type BROWSEINF lpfn As Long 'ｺｰﾙﾊﾞｯｸ関数 lParam As String 'ﾊﾟﾗﾒｰﾀ End Type と宣言し、 With Browse .lpfn = FARPROC(AddressOf BrowseCallbackProc) .lParam = "c:\temp" End With と設定して使っています 以下はｺｰﾙﾊﾞｯｸ関数部です Function BrowseCallbackProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long If uMsg = BFFM_INITIALIZED Then Call SendMessage(hWnd, BFFM_SETSELECTIONA, 1, lpData) End If End Function Function FARPROC(pfn As Long) As Long FARPROC = pfn End Function これでいいと思うのですが・・・はまってます・・ お願いします |
| ちなみに定数は Public Const WM_USER = &H400 Public Const BFFM_SETSELECTIONA = (WM_USER + 102) Public Const BFFM_INITIALIZED = 1 と定義しています |
| こんにちは。 [Address of]演算子はExcel2000以降ですから９７では不可ですが その点は大丈夫でしょうか？ ↓参考(VB Net)英語ですが､コード自体は判ると思いますので http://www.mvps.org/vbnet/index.html?code/callback/browsecallback.htm |
| 角田さんおはようございます。 回答ありがとうございます。 解決しまた。 定数のミスでした |