|
|
Aus einem Bild Thumbnail erzeugen und anschließend speichern
|
|
Norbert Reiners
Man benötigt zwei Pictureboxen (Picture1 und Picture2) sowie eine Schaltfläche
(Command1)
Private Sub Command1_Click()
'Großes Bild "Picture1" nach Thumbnail "Picture2" kopieren
'Objekt.PaintPicture Bild, ZielX, ZielY, ZielBreite, ZielHöhe, QuelleX,
QuelleY, QuelleBreite, QuelleHöhe, Optionen
Picture1.AutoSize = True
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.Width, Picture2.Height,
0, 0, Picture1.Width, Picture1.Height
'Picture1.Refresh
'kleines Bild (Thumbnail) speichern
SavePicture Picture2.Image, "C:/test.bmp"
End Sub |
|
|