アイコン選択ダイアログについて

ActiveBasicでのプログラミングでわからないこと、困ったことなどがあったら、ここで質問してみましょう(質問を行う場合は、過去ログやWeb上であらかじめ問題を整理するようにしましょう☆)。
返信する
メッセージ
作成者
如月

アイコン選択ダイアログについて

#1 投稿記事 by 如月 »

いろいろと試行錯誤の末、なんとかダイアログの表示に成功したのですが、
選択したアイコンファイルのパスが取得できません。

コード: 全て選択


	Dim hShell As HINSTANCE
	Dim SHChangeIconDialog As *Function(hWnd As HWND, ByRef lpszFilename As *Byte, Reserved As Long, ByRef lpIconIndex As Long) As Long
	Dim str As *Byte, index As Long, flag As Long
	Dim dwSize As Long, pwFileName As *Word
	hShell = LoadLibrary("Shell32") As HINSTANCE
	SHChangeIconDialog = GetProcAddress(hShell, 62 As *Byte) As *Function
	flag=SHChangeIconDialog(hMainWnd, str, -1, index)
	If flag=1 Then
		MessageBox(hMainWnd, MakeStr(str), Str$(index), MB_OK)
	End If
	FreeLibrary(hShell As DWord)
どこをどう直せばいいのかさっぱりです。
ヒントでもいいので、よろしくお願いします。
イグトランス
記事: 899
登録日時: 2005年5月31日(火) 17:59
お住まい: 東京都
連絡する:

#2 投稿記事 by イグトランス »

まず、ByRef lpszFilename As *ByteのByRefは不要です。
strはポインタですがどこも指していないのでまずいです。
また,この関数は非公開なので,9xではマルチバイト文字,NTではユニコード文字を使用するのでその区別も必要です。

興味があったので自分なりにどうにかしてみました。
それらをChangeIconDialogという関数を作り,そこに押し込めてみました。
このように使えます。

コード: 全て選択

Dim Index As Long
Dim strPath As String
strPath = ChangeIconDialog(hMainWnd, Index)
MessageBox(0, strPath, Str$(Index), MB_OK)
ChangeIconDialog関数の定義です。プロジェクト内の適当なところにコピーしてください。 あるいはOleUIChangeIconという公開関数を使うという方法もあります。
ただこの関数で表示されるダイアログは見慣れないものだということが欠点です。
如月

#3 投稿記事 by 如月 »

回答ありがとうございます。

PChangeIconDialogW

PChangeIconDialogA
が無効な識別子と出るのですが、
どうすればよいのでしょうか?
如月

#4 投稿記事 by 如月 »

コード: 全て選択


Typedef	PChangeIconDialogW = *Function(hWnd As HWND, lpszFilename As *Word, Reserved As Long, ByRef lpIconIndex As Long) As Long
Typedef	PChangeIconDialogA = *Function(hWnd As HWND, lpszFilename As String, Reserved As Long, ByRef lpIconIndex As Long) As Long
を追加したらなんとか出来ました。
ありがとうございました。

これでOKなのか、やや不安がありますが…
三毛CAT

バグ?

#5 投稿記事 by 三毛CAT »

このままだとパスが出なくて、(WindowsMe)
ChangeIconDialogの中の

コード: 全て選択

If SHChangeIconDialogA(hwnd, str, MAX_PATH, Index) <> FALSE Then
を、

コード: 全て選択

If SHChangeIconDialogA(hwnd, VarPtr(str[0]), MAX_PATH, Index) <> FALSE Then
に換えたらうまくいきました。
返信する