[Form1] '元画像をPicture1に表示、表示用画像にPicture2を用意 '簡単のためScaleModeはPixelで統一 'スクロールバーの値を利用する Private Sub HScroll1_Change() 'HScroll1の値の範囲は0からPicture1.Width-Picture2.Width Bitblt Picture2.hdc,0,0,Picture2.Width,Picture2.Height, _ Picture1.hdc,HScroll1.Value,VScroll1.Value, _ vbSrcCopy End Sub
Private Sub VScroll1_Change() 'VScroll1の値の範囲は0からPicture1.Height-Picture2.Height Bitblt Picture2.hdc,0,0,Picture2.Width,Picture2.Height, _ Picture1.hdc,HScroll1.Value,VScroll1.Value, _ vbSrcCopy End Sub 元画像と表示画像、スクロールバーの値について適当な絵と値を書いて考えてみれ これでカネ稼ぐんだろうから、少しは苦労しなよ。こんなのは基礎だぞ〜
