HSPTV!掲示板

ソート機能付きリストボックスの内容をすべて読みたいです。(変数へ格納)
最大行数の取得方法でもかまいません、教えてください。

スクリプトは、Kpanさんのを少し改造しております。
勝手にありがとうございます。
http://lhsp.s206.xrea.com/hsp_object4.html#8

;	ソート機能付きリストボックス表示サンプル (by Kpan)改

#uselib "gdi32"
#cfunc GetStockObject "GetStockObject" int
;	ソート機能付きリストボックス ($2=LBS_SORT)
	winobj "listbox", "", $200, $50200001 | $2, 150, 400
	hListbox = objinfo(stat, 2)
;	sysfont命令｢デフォルトGUIフォント｣相当適用
	sendmsg hListbox, $30, GetStockObject(17)

	pos 170, 40 : sdim a : input a, 100
	button "追加", *add
	button "読む", *get
	sdim list_text
	stop
*add
	if a = "" : stop
;	項目追加 (LB_ADDSTRING)
	sendmsg hListbox, $180, , a
;	入力ボックスを空に
	objprm 1, ""
	stop
*get
	n=0
	sendmsg hListbox, $189, n, varptr(list_text)	//n行目をlist_textに取得
	color 255,255,255 : boxf : color : pos 300,0
	mes "取得データ↓\n"+list_text
	stop

すみません、最大行数の取得は見つけました。
一度に全内容を読む方法を教えてください。

;	項目数の取得 (LB_GETCOUNT)

;	statにリストボックス内の項目数が返ります。
	sendmsg hListbox, $18B

sendmsg hListbox, $18B
listnum = stat

sdim list_text, listnum

repeat listnum
	sendmsg hListbox, $189, cnt, varptr(list_text(cnt))	//n行目をlist_textに取得
loop

repeat listnum
	print list_text(cnt)
loop

うーん求めている答えとちがうのですが・・・
一度に全内容を読む方法を教えていただければと・・・

しかし、Repeatを使った方法でそれなりの速度がでたので解決にします。
一度に全内容を読む方法があれば レス ください。

あれ？
リンク先の Kpanさんのサンプルスクリプトを実行すると…
空の文字が追加されるだけで、文字がでないぞ・・・？

…3.2b2 です。

「項目追加」と「入力ボックスを空に」を入れ替えてください。

*add

	if a = "" : stop
;	項目追加 (LB_ADDSTRING)
	sendmsg hListbox, $180, , a
;	入力ボックスを空に
	objprm 1, ""
	stop

なるほど、そういうことでしたか　（＾＾ゝ

>「項目追加」と「入力ボックスを空に」を入れ替えてください
指摘サンクスです〜。

>一度に全内容を読む方法を教えていただければと・
そういうウィンドウメッセージ（LB_〜）は存在しないです。

>そういうウィンドウメッセージ（LB_〜）は存在しないです。
存在しないんですか、そうですかありがとうございます。

>指摘サンクスです〜。
どういたしまして。