vb6 - ピクチャーボックス内の画像のズーム

Question

ピクチャーボックスコントロールと2つのコマンドボタンがあります。ピクチャーボックス内に画像を表示しています。

ズームインボタンとズームアウトボタンをクリックしたときに画像をズームすることはできますか？

または、スクロールバーを配置することもできます。スクロールバーの動きに合わせて画像をズームすることはできますか？

私はVB6を使用しています。

Answer 1

ここでは、BMPまたはJPGファイルを使用していると想定しています。

簡単なスクラッチ方法は、最初はプロパティStretch=Falseを使用してImageBoxにImageコントロールを配置することです。最初は、左上隅にあります。Pictureプロパティを画像オブジェクトに設定すると、画像コントロールのサイズが画像に合わせて変更されます。コントロールの元の幅と高さを変数に保存します。次に、Stretch=Trueに設定します。を使用して画像のサイズを変更することでズームインできます

img.Move 0, 0, sngWidth * sngMagFactor, sngHeight * sngMagFactor

ここで、sngMaxFactor = 4！または、どれだけズームしたいのか。

次の方法で元のサイズに戻します。

img.Move 0, 0, sngWidth, sngHeight

Move（）メソッドのLeft引数とTop引数を変更して、ズームした画像をパンすることもできます。

Answer 2

2つのpicボックスを使用するのが最も簡単な場合があります。「外側」ボックスは、「内側」ボックスへのビューポートと考えることができます。このビューポートは、必要に応じてサイズ変更および配置できます。効果は同じですが、コーディングははるかに簡単です。