Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bild zoom
Autor: smither
Datum: 03.01.04 14:39
mit der folgenden function mach ich das in einem programm von mir, so wird das bild auch proportional verkleinert (ich denke vergrössern bekommst du dann hin). die variable frm ist die form in der das image ist. hoffe mal das dir das weiterhilft Function ResizeImage(img As Image, pixelH As Long, pixelW As Long, frm as Object) Dim currentH As Long Dim currentW As Long currentH = frm.ScaleY(img.Height, vbTwips, vbPixels) currentW = frm.ScaleX(img.Width, vbTwips, vbPixels) If currentH > pixelH Or currentW > pixelW Then img.Stretch = True While currentH > pixelH Or currentW > pixelW img.Height = img.Height / 1.1 img.Width = img.Width / 1.1 currentH = frm.ScaleY(img.Height, vbTwips, vbPixels) currentW = frm.ScaleX(img.Width, vbTwips, vbPixels) Wend End Function

Bild zoom	704	Andy288bln	30.12.03 16:59
Re: Bild zoom	486	smither	03.01.04 14:39
Re: Bild zoom	455	Andy288bln	03.01.04 16:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen