HSPTV!掲示板

HSPのリストビューで

一列目の(商品コード)のアイテムを追加したら、追加したアイテムが一番上にいくんですが。

二列目の(商品名)のアイテムを１行目と同じように追加しても、一番上に行きません。

どうやったら２列目の(商品名)を追加したら１行目と同じように一番上に行くんでしょうか?

参考にさせてもらったサイト : http://halapeco.blog37.fc2.com/blog-entry-90.html


/* ソースコード */

winobj "SysListView32", "", 0x00000200, 0x50000001, 300, 100
hList = objinfo(stat, 2)
sendmsg hList, $1036, , $20

szText = "商品コード"
LVCOLUMN = 0x000F, 0, 100, varptr(szText), 0, 0
sendmsg hList, 0x101B, 0, varptr(LVCOLUMN)

szText = "商品名"
LVCOLUMN = 0x000F, 0, 100, varptr(szText), 0, 1
sendmsg hList, 0x101B, 1, varptr(LVCOLUMN)

/* １行目(商品コード)のアイテムを一番上に追加 */

pszText = "A001"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

pszText = "A002"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

pszText = "A003"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

pszText = "A004"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

pszText = "A005"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

pszText = "A006"
LVITEM = 0x0001, 0, 0, 0, 0, varptr(pszText)
sendmsg hList, 0x1007, 0, varptr(LVITEM)

リストビューは、アイテムとサブアイテムって構造になってます。
一番先頭の列がアイテム。それより右の列は、アイテムに関連したサブアイテムだ、という
考え方です。

で、例示されているソースでは、０行目にどんどんアイテムを入れていってますね。
すでにアイテムがある行へアイテムを挿入すると、既存のアイテム群は下へシフトされます。
ところが、サブアイテムはあくまでアイテムにくっついてるモノなので、０行目の１列目以降
にいくらサブアイテムを入れても、書き換わるだけなわけです。

以下のソースを実行すれば、リストビューの仕組みがだいぶ理解しやすいかと。（´ω｀）

#include "sysval.as"
#include "gblconst.as"
#include "winapi32.as"
#include "exlistview.as"

	pos 30, 30
	hLView = Createlstview(0, 0, 0, 300, 200)	; listview作成
	LSVexset hLView, $0021						; Listviewのスタイル設定
	; カラムをセット
	LSVcladd hLView, "商品コード", 0, 0, 100, 0, 0
	LSVcladd hLView, "商品名",     1, 0, 100, 0, 0
	; ０行目にアイテムとサブアテムをセット
	LSVimadd hLView, "A001", 0, 0
	LSVsubadd hLView, "B001", 0, 1
	dialog "アイテム入ったよ"
	; また０行目にアイテムとサブアテムをセット
	; （既存アイテム＆サブアイテムはシフトされる）
	LSVimadd hLView, "A002", 0, 0
	LSVsubadd hLView, "B002", 0, 1
	dialog "シフトされてるね？"
	; 再度０行目にアイテムをセット
	; （シフトされる）
	LSVimadd hLView, "A003", 0, 0
	LSVimadd hLView, "A004", 0, 0
	dialog "アイテムだけ２連続でセットしたよ"
	LSVsubadd hLView, "B003", 0, 1
	LSVsubadd hLView, "B004", 0, 1
	dialog "次にサブアイテムを２連続でセット……あれ？"

あっ(uﾟωﾟ )しまった。

追記です。上のソースは、HSPNEXTさんが公開されてるstdlibを使っています。

↓からstdlib110.lzhをダウンロードして、
http://hspnext.com/module/library.htm

解凍して出てきたフォルダ内のlibraryフォルダにある、上記インクルードファイルを
ソースと同じフォルダにコピーしてきてから実行してください。

>>(´ω`)様
(´ω`)様のソースのおかげで、リストビューの仕組みがわかり、やりたいこともできました!!
★☆｡.:*:･"ﾟ★('-^v)Thanks(v^-')★｡.:*:･"☆★