HSPTV!掲示板

いつもお世話になっております。
質問なのですがリストボックスの背景色を項目別に変える事は出来るのでしょうか？
検索をしたら項目の文字色は変えられるみたいなのですが
背景色については触れていませんでした。

よろしくお願いします。

>>リストボックスの背景色を項目別に変える事は出来るのでしょうか？

　→　それは出来なかったと思います。

>>リストボックスの背景色を項目別に変える事は出来るのでしょうか？

>>　→　それは出来なかったと思います。

　　　→　オーナードローでできます。

#uselib "gdi32"
#func SetBkColor "SetBkColor" sptr,sptr
#cfunc CreateSolidBrush "CreateSolidBrush" sptr
#func DeleteObject "DeleteObject" sptr
#func SetTextColor "SetTextColor" sptr,sptr


#uselib "user32.dll"
#func SetClassLong "SetClassLongA" sptr,sptr,sptr

#define WHITE_BRUSH	$00000000
#define GCL_HBRBACKGROUND	$FFFFFFF6
#define BLACK_BRUSH	$00000004
#define ctype crgb(%1,%2,%3)			(%1|(%2<<8)|(%3<<16))
#define WM_CTLCOLORLISTBOX              0x0134

	hbrush = CreateSolidBrush ( crgb ( 0, 0, 0 ) ) 
	oncmd gosub *text, WM_CTLCOLORLISTBOX
	onexit *exit

	objmode 2
	font msgothic, 42
	objsize 200, 200
	
	liststr = "\n\n人\n類\n補\n完計画"
	listbox list, 100, liststr
	stop
	
*text
	SetClassLong objinfo ( 0, 2 ), GCL_HBRBACKGROUND, hbursh
	SetBkColor wparam, crgb( 0, 0, 0 )
	SetTextColor wparam, crgb( 255, 255, 255 )
	return hbrush

*exit
	DeleteObject hbursh
	end

>As氏
勘違いなさっている事が２点

※1点目
>項目別に

※2点目
破綻例

listbox list, 100, liststr: listbox list, 100, liststr

よーくコードを理解していないと、このような不具合に陥りますよ。

皆様、コメントありがとうございます。

オーナードローを使えば出来るとの事で早速検索してみましたけど…
難しいですね…。
とりあえず少しずつやっていこうと思います。

皆様、本当にコメントありがとうございました。

　破綻例はどこが破綻しているのですか？
XPだと破綻しない？

おっと失礼。

指定行の色変更は，Kpanさんが紹介されています。
http://lhsp.s206.xrea.com/hsp_object6.html#7

Asさん

>>リストボックスの背景色を項目別に変える事は出来るのでしょうか？

それはリストボックスじゃなくてリストビューです。

>ANTARES氏
説明しなければ破綻例が分かりませんか。

出遅れですが、選択肢はこんな感じでしょうか？
・リストボックスっぽいのをひたすら標準命令で再現
・リストボックス＋オーナードロー
・リストビュー＋カスタムドロー
・ツリービュー＋カスタムドロー
・拡張コンボボックス？ （・・・ムリかいな）