Hi,
ich lasse mir hier ein Bild in einer PictureBox anzeigen, aber die Originaldimensionen sind deutlich größer als die Picturebox. Kann ich das Bild an die PictureBox anpassen, wenn möglich ohne Verzerrung, also mit Rand, falls die Übersetzung nicht stimmen sollte?
Spoiler anzeigen
Viele Grüße
CodeTags korrigiert ~VaporiZed
ich lasse mir hier ein Bild in einer PictureBox anzeigen, aber die Originaldimensionen sind deutlich größer als die Picturebox. Kann ich das Bild an die PictureBox anpassen, wenn möglich ohne Verzerrung, also mit Rand, falls die Übersetzung nicht stimmen sollte?
VB.NET-Quellcode
- Dim Foto As String = "abc"
- Dim imgdir As New DirectoryInfo(Application.StartupPath & "\bilder")
- If imgdir.Exists Then
- Dim strfile As String
- strfile = imgdir.FullName & "\" & Foto & ".jpg"
- Try
- Dim bm As New Bitmap(strfile)
- PictureBox1.Image = bm
- Catch ex As Exception
- strfile = imgdir.FullName & "\Error.jpg"
- Dim bm As New Bitmap(strfile)
- PictureBox1.Image = bm
- MsgBox("Gestellfoto existiert nicht in Datenbank!", MsgBoxStyle.Exclamation)
- End Try
- Else
- MsgBox("Verzeichnis nicht gefunden!", MsgBoxStyle.Exclamation)
- Me.Close()
- Exit Sub
- End If
- End If
Viele Grüße
CodeTags korrigiert ~VaporiZed
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()