vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Bild-Datei zentriert in eine vorgegebene Fläche einpassen 
Autor: Manfred X
Datum: 22.06.20 14:15

Ich vermute, das ist die Funktion, die Du benötigst.
Der erste Parameter ist der Pfad der Bilddatei, der zweite
Parameter gibt an, in welche Fläche das Bild zentriert eingepasst werden
soll. Die Rückgabe ist eine Bitmap in der Größe des zweiten Parameters,
die das geladene Bild enthält.
Private Function GetPic(filename As String, picsize As Size) As Bitmap
 
        Dim bmpout As Bitmap  
        'Rückgabe-Bitmap (Bild zentriert eingepasst)
 
        Using bmp As New Bitmap(filename)
            'erforderliche Bildgröße berechnen (Zoomen)
            Dim w, h, l, t As Integer
            w = CInt(bmp.Width * picsize.Height / bmp.Height)
            h = picsize.Height
            If w > picsize.Width Then
                h = CInt(bmp.Height * picsize.Width / bmp.Width)
                w = picsize.Width
            End If
            'Bild zentrieren
            l = (picsize.Width - w) \ 2
            t = (pic_size.Height - h) \ 2
 
            'Ausgabebitmap
            bmpout = New Bitmap(pic_size.Width, pic_size.Height)
 
            'Geladenes Bild in erforderlicher Größe neu zeichnen
            Using gout As Graphics = Graphics.FromImage(bmpout)
                gout.InterpolationMode =
                    Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.LightGray) 'Hintergrundfarbe setzen
                gout.DrawImage(bmp,
                            New Rectangle(l, t, w, h),
                            New Rectangle(0, 0, bmp.Width, bmp.Height),
                            GraphicsUnit.Pixel)
            End Using
        End Using
        Return bmpout
 
    End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bild auf Bild einblenden137Dikn22.06.20 11:57
Re: Bild auf Bild einblenden66Manfred X22.06.20 13:14
Bild-Datei zentriert in eine vorgegebene Fläche einpassen62Manfred X22.06.20 14:15
Re: Bild auf Bild einblenden27Dikn23.06.20 13:41
Re: Bild auf Bild einblenden46Manfred X23.06.20 16:35
Re: Bild auf Bild einblenden15Dikn25.06.20 12:26
Animation: Bild in Picturebox verschieben28Manfred X25.06.20 13:34
Re: Bild auf Bild einblenden12Dikn26.06.20 08:48
Re: Bild auf Bild einblenden17Manfred X26.06.20 11:40
Animation: Bild über Bild schieben19Manfred X26.06.20 12:26
Re: Bild auf Bild einblenden14Dikn28.06.20 13:50
Re: Bild auf Bild einblenden10Dikn28.06.20 14:04

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel