VBプログラマ質問スレ（6.0以前） Part53

VBプログラマ質問スレ（6.0以前） Part53 at TECH

184:169
07/09/21 12:11:18
>>181
手抜き説明。書き殴りだからあっているかどうか不明

[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
元画像と表示画像、スクロールバーの値について適当な絵と値を書いて考えてみれ
これでカネ稼ぐんだろうから、少しは苦労しなよ。こんなのは基礎だぞ～

次ページ

続きを表示

1を表示