カーソルリソースを読み込みたい。

メッセージ

7 · #1 投稿記事 by 7 » 2006年4月22日(土) 17:11

以前はカーソルリソースを読み込めたんですけど、コードを紛失してしまって片っ端から読み込んでくれそうなコードを書いたんですけど、読み込めません。かれこれ3時間近く悩んでいます...。

	'hCursor=0になる
	hCursor=LoadImage(GetModuleHandle(0),IDC_CURSOR1 *Byte,IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,IDC_CURSOR1 *Byte,IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadImage(GetModuleHandle(0),MAKEINTRESOURCE(IDC_CURSOR1),IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,MAKEINTRESOURCE(IDC_CURSOR1),IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadImage(GetModuleHandle(0),"IDC_CURSOR1",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,"IDC_CURSOR1",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE)

	'hCursor=0になる
	hCursor=LoadCursor(GetModuleHandle(0),IDC_CURSOR1 *Byte)

	'hCursor=0になる
	hCursor=LoadCursor(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,IDC_CURSOR1 As *Byte)

	'hCursor=0になる
	hCursor=LoadCursor(GetModuleHandle(0) As HINSTANCE,MAKEINTRESOURCE(IDC_CURSOR1))

	'hCursor=0になる
	hCursor=LoadCursor(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,MAKEINTRESOURCE(IDC_CURSOR1))

	'hCursor=0になる
	hCursor=LoadCursor(GetModuleHandle(0),"IDC_CURSOR1")

	'hCursor=0になる
	hCursor=LoadCursor(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,"IDC_CURSOR1")

	'hCursor=0になる
	hCursor=LoadCursor(GetModuleHandle(0),MAKELONG(IDC_CURSOR1,0))
	hCursor=LoadCursor(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,MAKELONG(IDC_CURSOR1,0))

	'hCursor=0になる
	hCursor=LoadImage(GetModuleHandle(0),MAKEINTRESOURCE(IDC_CURSOR1),IMAGE_CURSOR,0,0,0)
	hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,MAKEINTRESOURCE(IDC_CURSOR1),IMAGE_CURSOR,0,0,0)
	hCursor=LoadImage(GetModuleHandle(0),IDC_CURSOR1,IMAGE_CURSOR,0,0,0)
	hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,IDC_CURSOR1,IMAGE_CURSOR,0,0,0)

あと、ActiveBasic側の問題だと思うんですけど、カーソルリソースとアイコンリソースが追加されている状態で、ウィンドウにアイコンを設定するとアクセス違反が起きます。

コード: 全て選択

_RadSys_wcl.hIcon=LoadIcon(_RadSys_wcl.hInstance,MAKEINTRESOURCE(IDI_ICON1))

追記。
カーソルリソースを一つ、アイコンリソースも一つだと、ウィンドウにアイコンが設定されない、
カーソルリソースを一つ、アイコンリソースが二つだと、アクセス違反になることが分かりました。

さらに追記。
GetLastError()関数を思い出して使ったら「指定されたリソースの種類がイメージファイルに見つかりません。」でした。
しかし、解決策が分かりません...。

7 · #2 投稿記事 by 7 » 2006年4月22日(土) 18:03

カーソルリソースを使わないことで解決しました。
カーソルファイルをアイコンに変換してアイコンリソースとして追加しました。

コード: 全て選択

hCursor=LoadImage(GetWindowLong(hMainWnd,GWL_HINSTANCE) As HINSTANCE,IDI_ICON1,IMAGE_ICON,0,0,LR_DEFAULTSIZE) As HCURSOR

SetCursor(hCursor)