サムネイル表示

質問

VBで画像のサムネイル表示をしたいです。

しかし、webで資料を検索しても、うまく見つからず,画像処理の知識ないため、どうしたらいいのかわかりません。

画像の種類は、Bitmap、jpegをカバーしたいのですが、
とりあえずBitmapをサムネイルしたい。

詳しい方いらしたら、上手いやり方を教えてください。

回答No.1

todo36 · ベストアンサー

bmpなら、PaintPictureで出来ます。

Private Sub Picture1_Click()

Dim s As String
Dim x As Long
Dim y As Long
Const w = 1024

With Picture1
.AutoRedraw = True
s = Dir("c:\windows\*.bmp")
Do While s <> ""
Debug.Print s
.PaintPicture LoadPicture("c:\windows\" & s), x, y, w, w
x = x + w
If (x + w > .Width) Then
x = 0
y = y + w
End If
s = Dir()
.Refresh
Loop
End With
End Sub

お礼

ご丁寧な回答どうもありがとうございました。

おかげさまでかなり進歩できたように思えます。