HSPTV!掲示板

度々失礼します。
ListBoxに内容を追加する方法を教えてほしいです。

入力ボックスを用いて，変数(ここでは new_list)に入力された内容を，
listboxの原型のTXTに追加してListBoxに追加するという内容です。

宜しくお願いします。

*plus

screen 1,250,150
onexit *mini_end
sdim new_list,65000			; テキストのバッファを確保
new_list=""
pos 0,100:input new_list,250,25	; 最大サイズ編集許可

pos 0,125:objsize 250,25:button "項目の登録",*plus_ok
stop
*plus_ok
	gsel 1, -1//未完成
	stop//入力後、TXTの編集処理をして、その子ウィンドウ(1)を閉じる

今までの質問
http://hsp.tv/play/pforum.php?mode=all&num=35909
http://hsp.tv/play/pforum.php?mode=all&num=35927

こういうことですか？

	list=""
	listbox p1,100,list:ObjectID=stat
	repeat 10,1
	list + "Line_"+cnt+"";追加する文字列
	list + "\n"
	objprm ObjectID,list;指定したリストボックスの文字列を更新
	wait 100
	loop

LB_ADDSTRING を送る方法もあります。

#const LB_ADDSTRING $00000180
objsize ginfo_winx , ginfo_winy
listbox lbidx , 100 , "a\nb\nc\nd"	
txt = "追加"
sendmsg objinfo_hwnd(stat) , LB_ADDSTRING , 0 , varptr(txt)

extさん
それっぽいんですけど、入力された内容を追加したいと思っています。
input で入力された内容でお願いします・・・。

infoさん
仕掛けがわからないです・・・
もう少し詳しくお願いします。

お手数をお掛けしますが、よろしくお願いします。

今までの書き込みから判断すると、やりたいことはext氏のソースで実現できるだろう。
まさかlistにcntと改行コードを追加する、という処理を、inputの文字を取得して追加する、と
いう風におきかえれないわけではあるまい。
それによほどのことがない限り仕掛けを理解する必要なんかない。それを使えばいいのだ。
たった4行の命令それぞれを調べることもせず聞くとは何事だ。

＞それによほどのことがない限り仕掛けを理解する必要なんかない。それを使えばいいのだ。
そんなことばかりしてたら
NETでSampleを拾って切り貼りするばかりの人になってしまいますよｗ
なんかの書籍でそういう人を戒めていました

＞たった4行の命令それぞれを調べることもせず聞くとは何事だ。
でもコメントなしですから仕方ない部分もありそうです

僕も腕はたいしたことがないですしAPIとか疎いですが解説してみます

#const LB_ADDSTRING $00000180
//LB_ADDSTRINGはListBoxに対するメッセージ
//それを定数定義

objsize ginfo_winx , ginfo_winy
//ListBoxのsizeを ginfo_winx とginfo_winyにする
//ginfo_winx とginfo_winyは定数
//ginfo_winx：画面の描画エリアXサイズ
//ginfo_winy：画面の描画エリアYサイズ

listbox lbidx , 100 , "a\nb\nc\nd"
//中身をlbidxに格納するListBox
txt = "追加"
sendmsg objinfo_hwnd(stat) , LB_ADDSTRING , 0 , varptr(txt)
//p1は objinfo_hwnd(stat)
//p2はLB_ADDSTRING：定義したメッセージ
//p3は0。p4はvarptr(txt)
//これらの引数でsendmsg実行：sendmsgはHSPの命令：ウィンドウメッセージの送信

// objinfo_hwnd() ：HSPの関数：ウィンドウオブジェクトのハンドルを取得
//statはたぶんListBoxの選択IDです。間違ってるかも
// varptr()：HSPの関数：変数データのポインタを返す

ORZさん、y.tackさん
ありがとうございます。
自分で少しは調べるのも大事ですね。
もうすこし努力したいと思います。

y.tackさん、一応、理解はできました。
ご協力ありがとうございました。