Hey,
Ich probiere ein sehr kleines Bild (16x16) zu zoomen (Also zoom um so auf 1500%). Mache ich das mit dem 'Strechimage' der Picturebox oder dem Code darunter wird das Bild sehr verschwommen. Photoshop und auch Paint bekommen es aber hin ohne Qualitätsverlust. Habt ihr vielleicht eine Idee mit welchem Ansatz man das lösen kann?
Der Code:
Noch etwas: Bei Bild Photoshop sieht man weiße Streifen die die 'einzelnen' Pixel abgrenzen. Wie geht denn sowas?
Hoffe ihr wisst Rat
Ich probiere ein sehr kleines Bild (16x16) zu zoomen (Also zoom um so auf 1500%). Mache ich das mit dem 'Strechimage' der Picturebox oder dem Code darunter wird das Bild sehr verschwommen. Photoshop und auch Paint bekommen es aber hin ohne Qualitätsverlust. Habt ihr vielleicht eine Idee mit welchem Ansatz man das lösen kann?
Der Code:
VB.NET-Quellcode
- Public Sub ZoomImage(ByRef ZoomValue As Int32)
- If original Is Nothing Then
- Exit Sub
- End If
- Dim zoomImage As New Bitmap(original,
- (Convert.ToInt32(original.Width * (ZoomValue) / 100)),
- (Convert.ToInt32(original.Height * (ZoomValue / 100))))
- Dim converted As Graphics = Graphics.FromImage(zoomImage)
- converted.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
- Pic.Image = Nothing 'Display PicBox
- Pic.Image = zoomImage
- End Sub
Noch etwas: Bei Bild Photoshop sieht man weiße Streifen die die 'einzelnen' Pixel abgrenzen. Wie geht denn sowas?
Hoffe ihr wisst Rat