HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0629
エルリストビューの情報の取得2解決


エル

リンク

2013/6/29(Sat) 13:13:01|NO.55327

llmod3を使わずにリストビューを作っていて、
リストビューの情報を取得しようといろんなサイトをみて回ったのですが、
難しく理解できなかったのでお助けしていただけないでしょうか?

クリックした場所の文字列を取得したいです。
(test1.jpgをクリックしたらtest1.jpgという文字列を取得)



winobj "SysListView32", "", 0x00000200, 0x50000001, 640, 480 hList = objinfo(stat, 2) sendmsg hList, $1036, , $20 loopcount=10 ;リスト szText = "No" : LVCOLUMN = 0x000F, 0, 30, 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) szText = "更新" : LVCOLUMN = 0x000F, 0, 100, varptr(szText), 0, 2 sendmsg hList, 0x101B, 2, varptr(LVCOLUMN) ;ナンバー repeat loopcount pszText = strf("%02d",cnt+1) : LVITEM = 0x0001, cnt, 0, 0, 0, varptr(pszText) sendmsg hList, 0x1007, 0, varptr(LVITEM) loop ;ファイル名 repeat loopcount pszText = strf("%02d",cnt+1)+".jpg" : LVITEM = 0x0001, cnt, 1, 0, 0, varptr(pszText) sendmsg hList, 0x1006, 0, varptr(LVITEM) loop ;更新 repeat loopcount pszText = strf("%02d",cnt+1)+"日前" : LVITEM = 0x0001, cnt, 2, 0, 0, varptr(pszText) sendmsg hList, 0x1006, 0, varptr(LVITEM) loop stop



この記事に返信する


cats

リンク

2013/6/29(Sat) 18:55:37|NO.55333

sendmsgでLVM_GETNEXTITEMとLVNI_SELECTEDを使えば番号がstatに返ってきます。
動作確認できていないので動くかわかりません><

screen 0,640,500 winobj "SysListView32", "", 0x00000200, 0x50000001, 640, 480 hList = objinfo(stat, 2) sendmsg hList, $1036, , $20 loopcount=10 ;リスト szText = "No" : LVCOLUMN = 0x000F, 0, 30, 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) szText = "更新" : LVCOLUMN = 0x000F, 0, 100, varptr(szText), 0, 2 sendmsg hList, 0x101B, 2, varptr(LVCOLUMN) ;ナンバー repeat loopcount pszText = strf("%02d",cnt+1) : LVITEM = 0x0001, cnt, 0, 0, 0, varptr(pszText) sendmsg hList, 0x1007, 0, varptr(LVITEM) loop ;ファイル名 repeat loopcount pszText = strf("%02d",cnt+1)+".jpg" : LVITEM = 0x0001, cnt, 1, 0, 0, varptr(pszText) sendmsg hList, 0x1006, 0, varptr(LVITEM) loop ;更新 repeat loopcount pszText = strf("%02d",cnt+1)+"日前" : LVITEM = 0x0001, cnt, 2, 0, 0, varptr(pszText) sendmsg hList, 0x1006, 0, varptr(LVITEM) loop button "項目取得",*Get stop *Get sendmsg hList, 0x100C,-1,0x0002 dialog stat stop



エル

リンク

2013/6/29(Sat) 20:05:42|NO.55335

cats様ありがとうございます。
sendmsg便利ですね。無事番号が取得出来ましたありがとうございます!
これを元に1行まるまる取得と個別取得など出来るように勉強してみます。



ONION software Copyright 1997-2023(c) All rights reserved.