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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
1020
たこリストビューのスクロールについて3解決


たこ

リンク

2008/10/20(Mon) 17:29:36|NO.20343

下のサンプルで「アイテム2」と書いてあるのを押すと、
自動的にリストビューがスクロールされると思います。
これをやめさせたいのですが、どうすればいいのでしょうか?
わかる方教えてください _ _

#uselib "user32.dll" #func CreateWindowEx "CreateWindowExA" int,sptr,sptr,int,int,int,int,int,int,int,int,int #uselib "comctl32.dll" #func InitCommonControls "InitCommonControlsEx" var dim icce, 2 icce = 8, 2 InitCommonControls icce CreateWindowEx 0, "SysListView32", "", 0x50800029, 120,140, 400,200 , hWnd, 0, hInstance, 0 hLV = stat dim lvc, 6 lvc.0 = 7 lvc.1 = 0 lvc.2 = 100 repeat 2 szColumn = "カラム "+cnt lvc.3 = varptr(szColumn) sendmsg hLV, 0x101B, cnt, varptr(lvc) loop dim lvi, 13 lvi.0 = 1 repeat 20 szText = "アイテム "+cnt lvi.1 = cnt lvi.5 = varptr(szText) sendmsg hLV, 0x1007, 0, varptr(lvi) loop



この記事に返信する


junior

リンク

2008/10/20(Mon) 18:12:01|NO.20344

見た目ではよくわかりませんが、リストビューの最下行が半欠け(高さが足りない)に
なっているので、全部表示しようとして勝手にスクロールされています。
下のように高さを広げることで回避できます。

CreateWindowEx 0, "SysListView32", "", 0x50800029, 120,140, 400,【202】 , hWnd, 0, hInstance, 0

【202】の部分を210などにすれば、どうして勝手にスクロールする必要があるかわかると思います。



たこ

リンク

2008/10/20(Mon) 18:21:43|NO.20345

なるほど、そういうわけだったんですか
ご回答ありがとうございます



たこ

リンク

2008/10/22(Wed) 16:39:44|NO.20360

解決ボタンを押したのに似たような問題が出たので質問します

もし、↑の検証のようにユーザーの操作以外でスクロールされたら、
どのメッセージにその情報が入るのでしょうか?



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