投稿日 | : 2004/10/19(Tue) 15:55 |
投稿者 | : あらじん |
Eメール | : |
URL | : |
タイトル | : Re^2: フォームをスクロールさせるには? |
旅人Aさん、回答ありがとうございました。
さっそくサンプルをコピーしてトライしてみたところ、バッチリ出来ました。
ただ、あまりにもスクロールする範囲が小さいため、PictureBoxの下の方に書いてある
文字等がなかなか表示されません。
(PictureBoxは、フォームの倍ぐらいの大きさです)
これから、いろいろと調べてみようと思います。
また、よきヒント・アドバイス等ありましたら、ご協力のほど、よろしくお願いします。
本当にありがとうございました。
> 基本はフォームに目一杯ピクチャーボックスと垂直スクロールバーを貼る。
>
> フォームのサイズは固定。
> ピクチャーボックスのサイズをフォームより大きくする。
> ピクチャボックスの位置を素直スクロールバーで動かす。
>
> 以下、サンプル
> Private Sub Form_Load()
> '素直スクロールバーの設定
> With VScroll1
> '最大値、最小値
> .Max = Picture1.Height - .Height
> .Min = 0
>
> End With
> End Sub
>
> Private Sub VScroll1_Change()
> Picture1.Top = -VScroll1.Value
> End Sub