PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
10871 | 00/03/30 14:02:38 | RE(6):水平スクロールもできました By yamami |
10868 | 00/03/30 13:29:26 | RE(5):垂直スクロールはできました!(誰かSendのメッセージ番号の調べかたを教えてください・・・) By yamami |
10858 | 00/03/29 12:24:28 | RE(4):PB7.0: 画面のスクロールの位置を0に戻したい By こてちゅ |
10857 | 00/03/29 11:29:21 | RE(3):PB7.0: 画面のスクロールの位置を0に戻したい By yamami |
10845 | 00/03/28 14:21:07 | RE(2):PB7.0: 画面のスクロールの位置を0に戻したい By こてちゅ |
10840 | 00/03/28 12:49:03 | RE(1):PB7.0: 画面のスクロールの位置を0に戻したい By muramura |
10838 | 00/03/28 11:11:10 | PB7.0: 画面のスクロールの位置を0に戻したい By yamami |
カテゴリ:スクリプトの記述
日付:2000年03月30日 14:02 発信者:yamami
題名:RE(6):水平スクロールもできました
すいません。自己レスです。
最終的にこうなりました。
***************************************************
// 幅が狭くなったら水平スクロールバーを表示
IF THIS.width < ii_win_width THEN
THIS.Hscrollbar = TRUE
ELSE
Send(Handle(this),276,5,0)
THIS.Hscrollbar = FALSE
END IF
// 高さが狭くなったら垂直スクロールバーを表示
IF THIS.height < ii_win_height THEN
THIS.vscrollbar = TRUE
ELSE
Send(Handle(this),277,5,0)
THIS.vscrollbar = FALSE
END IF
***************************************************
>ちなみに未だ左へスクロールできずにいるんですが、2番目の引数をいくら変えても
>ダメなので、今度は1番目のメッセージコードを200番台総当たりしてみます。
垂直スクロールバーの 277を電卓で16進にしたら 115でしたので、115で
winuser.h を検索してみました。するとこんなところに。
#define WM_HSCROLL 0x0114
#define WM_VSCROLL 0x0115
これだ?と思ったので今度は 114を10進にして、メッセージ番号を276にしたら
うまく動きました。総当たりする前で良かった(^^;
SCROLLで検索した時は、上の文字の違うのがたくさんあって?でしたが、
ようやく少しだけわかってきました。
\"WM_\"って \"Window Messages\"ってことだったんですね?。辞書片手にwinuser.h
をじっくり読んでみようかと思います。失礼しました+ありがとうございます。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS (記載なし)
Browser InternetExplorer5.X
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.