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


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0116
ぺろmesboxのスクロール位置を取得したい2解決


ぺろ

リンク

2016/1/16(Sat) 00:55:49|NO.74133

mesboxのスクロールバーの情報取得(スクロール位置の取得)ができません。
頂いたサンプルなんですが、mesboxのスクロールを実現したいのですが
mesboxのスクロールの位置が取得できません。
どうすればいいか教えて下さい。よろしくお願いします


#include "user32.as" #define global WM_SIZE 0x5 #define global WS_VSCROLL 0x200000 #define global GWL_STYLE -16 #define global SWP_NOSIZE 0x1 #define global SWP_NOMOVE 0x2 #define global SWP_NOZORDER 0x4 #define global SWP_FRAMECHANGED 0x20 #define global SB_VERT 1 #define global SIF_RANGE 0x1 #define global SIF_PAGE 0x2 #define global SIF_POS 0x4 #define global SIF_TRACKPOS 0x10 #define global SIF_ALL 0x17 #define global TRUE 1 #define global SM_CXVSCROLL $00000002 #define global WM_VSCROLL $00000115 ;垂直スクロールメッセージ gsel 0, -1 xpic = 640 ypic = 480 screen 1, xpic, ypic, 0, 0, 0, xpic / 3, ypic / 4 oncmd gosub *SCROLL, WM_VSCROLL ; ONでスクリーン側のスクロールを取得します。 dim si, 7 si.0 = 28 si.1 = SIF_ALL si.2 = 0 si.3 = ypic - 1 si.4 = 0 si.5 = 0 si.6 = 0 a="a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\n\m\nn\no\np\nq\nr\ns\nt\nu\nv\nw\nx\ny\nz" mesbox a,100,100 : hhwnd = objinfo(stat,2) repeat GetScrollInfo hwnd, SB_VERT, varptr(si) ; hhwndを指定しても動きません;; si(5)=bar_pos SetScrollInfo hwnd, SB_VERT, varptr(si), 1 ; hhwndを指定しても動きません;; title ""+stat wait 1 loop *SCROLL oncmd 0 wp=wparam bar_pos=(wp>>16)&$ffff GetScrollInfo hwnd, SB_VERT, varptr(si) si(5)=bar_pos SetScrollInfo hwnd, SB_VERT, varptr(si), 1 title ""+stat oncmd 1 return



この記事に返信する


Rich

リンク

2016/1/16(Sat) 14:36:11|NO.74146

hwndをhhwndに変更
#include "user32.as"
#define SB_VERT 1 a="a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\n\m\nn\no\np\nq\nr\ns\nt\nu\nv\nw\nx\ny\nz" mesbox a,100,100 : hhwnd = objinfo(stat,2) repeat GetScrollPos hhwnd,SB_VERT ; hhwndを指定しても動きません;; title ""+stat wait 1 loop stop



ぺろ

リンク

2016/1/17(Sun) 01:24:16|NO.74157

全然違う事をしてました
ありがとうございます



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