HSPTV!掲示板

こんにちは pappap です。
mesboxに文字が入力されたら何かが起こるというスクリプトを作りたいんですけど、
onkeyを使うとEscキーを押すとそれも mesboxに文字が入力されました と出ます。
Esc や Shift など その反転を無くすスクリプトを作りたいです。
ソースです。

	sdim v
	title "mesboxに文字が入力されていません。"
	pos 0,0
	mesbox v,640,480
	onkey gosub *key
	stop
*key
	title "mesboxに文字が入力されました。"
	return

getkeyを使ってESC等を除外すればどうです？

こんな感じ。

	#define WM_COMMAND	$00000111
	#define EN_CHANGE	$00000300
	sdim v
	mesbox v,640,480
	mbid = stat
	hmb = objinfo(mbid,2)
	oncmd gosub *oncommand,WM_COMMAND
	
	stop
*oncommand
	if ((wparam >> 16) & $ffff) == EN_CHANGE{
		if lparam == hmb{
			dialog "変更された"
		}
	}
	return

おー!!
みなさんありがとうございました。