HSPTV!掲示板

ｈｓｐやコマンドプロントのように黒い入力BOXにしたいのですがどうすればいいのでしょうか？
誰か教えてください。

リッチエディットコントロールを置いて
背景を黒にしてみてはいかがかと。

WM_CTLCOLOREDITが来た時にブラシのハンドルを返すと、
背景色を変えることが出来ます。

#include "gdi32.as"
#define WM_CTLCOLOREDIT 0x0133
#define BLACK_BRUSH 4
#define ctype RGB(%1, %2, %3) (%1|(%2<<8)|(%3<<16))

	s1 = "default"
	input s1, 100, 20
	hInput1 = objinfo_hwnd(stat)
	
	s2 = "black"
	input s2, 100, 20
	hInput2 = objinfo_hwnd(stat)
	
	oncmd gosub *lb_OnCtlColorEdit, WM_CTLCOLOREDIT

	// 黒いブラシ取得
	GetStockObject BLACK_BRUSH
	hbrBlack = stat
	stop

*lb_OnCtlColorEdit
	// wParamにinput(mesbox)のhdc
	// lParamにinput(mesbox)のハンドル

	if lParam != hInput2 : return

	// 文字背景色を黒に
	SetBkColor wParam, RGB(0, 0, 0)

	// 文字色を白に
	SetTextColor wParam, RGB(255, 255, 255)
	return hbrBlack

なるほど。こんな風にするんですね。どうもありがとうございます