※ ChatGPTを利用し、要約された質問です（原文：VB6.0での画像縮小版表示）
VB6.0での画像縮小版表示
このQ&Aのポイント
VB6.0で画像縮小版表示を行う方法について教えてください。
VB6.0での画像縮小版表示では、画像ファイルを読み込んでイメージのサイズに合わせて表示する方法が一般的です。
ただし、この方法では大量のメモリーを消費し、パフォーマンスが低下する可能性があります。エクスプローラのように縮小版表示を行うための効率的な方法について教えてください。
VB6.0での画像縮小版表示
こんにちは
エクスプローラでファイル一覧表示するとき画像ファイルの縮小版表示が出来ます。
これと同じようなことをVB6.0で行おうとしました。
例えばファイルが10個あったら10個並べて表示します。
Imageを使いサイズを調整して出来ました。
しかし、問題がありました。メモリーを大量に消費します。
このためメモリーの少ないＰＣだと極端に遅くなります。
エクスプローラで縮小版表示すると遅くないです。
ということは良い方法があるのではないか、自分のやり方が悪いのではないかと思います。
良い方法を教えていただけませんか。
今のやり方
MotoH = ImgSum(Cunt).Height
MotoW = ImgSum(Cunt).Width
ImgSum(Cunt).Picture = LoadPicture("Fileのフルパス名")
Hsize = ImgSum(Cunt).Height
Wsize = ImgSum(Cunt).Width
SyukusyaH = MotoH / Hsize
SyukusyaW = MotoW / Wsize
If SyukusyaH < SyukusyaW Then
Syukusya = SyukusyaH
Else
Syukusya = SyukusyaW
End If
ImgSum(Cunt).Height = Hsize * Syukusya
mgSum(Cunt).Width = Wsize * Syukusya
ImgSum(Cunt).Stretch = True
要は読み込んだ画像を用意したイメージのサイズに合わせて表示しています。
よろしくお願いいたします。
お礼
ありがとうございます。 試してみます。