投稿日 | : 2004/10/19(Tue) 11:50 |
投稿者 | : 旅人A |
Eメール | : |
URL | : |
タイトル | : Re: フォームをスクロールさせるには? |
基本はフォームに目一杯ピクチャーボックスと垂直スクロールバーを貼る。
フォームのサイズは固定。
ピクチャーボックスのサイズをフォームより大きくする。
ピクチャボックスの位置を素直スクロールバーで動かす。
以下、サンプル
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