ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 16:58

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 5 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年3月31日(金) 21:10 
いろいろと試行錯誤の末、なんとかダイアログの表示に成功したのですが、
選択したアイコンファイルのパスが取得できません。
コード:
	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)
どこをどう直せばいいのかさっぱりです。
ヒントでもいいので、よろしくお願いします。


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2006年4月01日(土) 00:08 
オフライン

登録日時: 2005年5月31日(火) 17:59
記事: 899
お住まい: 東京都
まず、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という公開関数を使うという方法もあります。
ただこの関数で表示されるダイアログは見慣れないものだということが欠点です。


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年4月01日(土) 11:12 
回答ありがとうございます。

PChangeIconDialogW

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


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2006年4月01日(土) 19:49 
コード:
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なのか、やや不安がありますが…


通報する
ページトップ
   
 記事の件名: バグ?
投稿記事Posted: 2008年7月27日(日) 18:16 
このままだとパスが出なくて、(WindowsMe)
ChangeIconDialogの中の
コード:
If SHChangeIconDialogA(hwnd, str, MAX_PATH, Index) <> FALSE Then
を、
コード:
If SHChangeIconDialogA(hwnd, VarPtr(str[0]), MAX_PATH, Index) <> FALSE Then
に換えたらうまくいきました。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 5 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Google [Bot] & ゲスト[3人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean