HSPTV!掲示板

過去ログを見て書いてみたのですが改行が2つなってしまいます
例)
1

2

3　←最下層を表示しています

今作っているプログラム上「box = box + a + "\n"」の"\n"は消すことができません。
そこで「sendmsg hEdit,EM_REPLACESEL,0,msg+"\n"」の"\n"を消してみたところ今度はうまく動作しません。

このプログラムで余計なところ、不十分なところがありましたらご指摘ください。
もしくはもっと簡易的な、常に最下層を表示できるプログラムがありましたら教えていただけないでしょうか？

#define EM_SETSEL $b1
#define EM_REPLACESEL $C2

sdim box,1000
	a = 0
	box = ""
	mesbox box,200,100 : hEdit = objinfo(stat,2)
    button "TEST", *test


sdim msg
    
	stop

*test
	a += 1
	box = box + a + "\n"
	objprm 0,box
	sendmsg hEdit,EM_SETSEL,strlen(box),-1
	sendmsg hEdit,EM_REPLACESEL,0,msg+"\n"
	stop

TESTボタンを押すと、aの値を加算して順次、常に
最下段に表示したいということですよね?
少し、手直しして見ました。

#define EM_SETSEL $b1
#define EM_REPLACESEL $C2

sdim box,1000
	a = 0
	mesbox box,200,100 : hEdit = objinfo(stat,2)
    button "TEST", *test


sdim msg
    
	stop

*test
	a += 1
	box+= a+"\n"
	objprm 0,box
	sendmsg hEdit,EM_SETSEL,strlen(box),-1
	sendmsg hEdit,EM_REPLACESEL,0,"\n"
	stop

あっ!

>sdim msg
>stop
ここの部分は、何をしたかったのでしょうか?
mesboxには、何かメッセージをユーザーが手入力するということなんでしょうか?

回答ありがとうございます。

>>sdim msg
>>stop
>ここの部分は、何をしたかったのでしょうか?
>mesboxには、何かメッセージをユーザーが手入力するということなんでしょうか?
これは不要でしたね。過去ログにあったのを消しながらやってたので
どこまでが要らない部分かわかりませんでした。指摘ありがとうございます。

「box+= a+"\n"」に変えて本プログラムに適用してみましたが、別の箇所でうまいこと動作せず、
どうしても「box = box + a + "\n"」の形でないとだめなようです。

EM_SCROLL(0xb5)とSB_BOTTOM(7)で行けば良いんでね？

	sendmsg hEdit , 0xb5 , 7 , 0

こんな感じで。

ん？それともWM_VSCROLL(0x115)の方が良いのか？

EM_SCROLLだと特にSB_BOTTOMの記述が見当たらん。
動くみたいだけど。

<per>
sendmsg hEdit,EM_SETSEL,strlen(box),-1
sendmsg hEdit,EM_REPLACESEL,0,"\n"
</per>
の代わりに
<per>
sendmsg hEdit , 0xb5 , 7 , 0
</per>
でいけました。回答ありがとうございました。