Redimensionnement des Images dans la VB.NET

Je voudrais faire une simple VB utilitaire pour redimensionner les images à l'aide de vb.net. J'ai de la difficulté à comprendre ce que vb classe à utiliser pour manipuler les images. L'Image de la classe et de la classe Bitmap ne fonctionnent pas.

Des idées, des conseils, des astuces, tutoriel liens sont grandement appréciés.

Grâce.

OriginalL'auteur Moshe | 2010-01-27

Voici un article avec les détails complets sur la façon de le faire.

Private Sub btnScale_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnScale.Click
    ' Get the scale factor.
    Dim scale_factor As Single = Single.Parse(txtScale.Text)

    ' Get the source bitmap.
    Dim bm_source As New Bitmap(picSource.Image)

    ' Make a bitmap for the result.
    Dim bm_dest As New Bitmap( _
        CInt(bm_source.Width * scale_factor), _
        CInt(bm_source.Height * scale_factor))

    ' Make a Graphics object for the result Bitmap.
    Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

    ' Copy the source image into the destination bitmap.
    gr_dest.DrawImage(bm_source, 0, 0, _
        bm_dest.Width + 1, _
        bm_dest.Height + 1)

    ' Display the result.
    picDest.Image = bm_dest
End Sub

[Modifier]

Un de plus sur les mêmes lignes.

OriginalL'auteur Binoj Antony

16

Vous pouvez simplement utiliser cette ligne de code pour redimensionner votre image en visual basic .net
```
Public Shared Function ResizeImage(ByVal InputImage As Image) As Image
        Return New Bitmap(InputImage, New Size(64, 64))
End Function
```
Où;
1. "InputImage" est l'image que vous souhaitez redimensionner.
2. "64 X 64" est la taille requise, vous pouvez le modifier selon vos besoins je.e 32X32 etc.
OriginalL'auteur Muhammad Saqib

Ce sera de nouveau la taille de l'image à l'aide de la meilleure qualité avec le soutien de 32bpp avec alpha. La nouvelle image de l'image originale centrée à l'intérieur de la nouvelle dans le ratio d'aspect original.

#Region " ResizeImage "
Public Overloads Shared Function ResizeImage(SourceImage As Drawing.Image, TargetWidth As Int32, TargetHeight As Int32) As Drawing.Bitmap
Dim bmSource = New Drawing.Bitmap(SourceImage)
Return ResizeImage(bmSource, TargetWidth, TargetHeight)
End Function
Public Overloads Shared Function ResizeImage(bmSource As Drawing.Bitmap, TargetWidth As Int32, TargetHeight As Int32) As Drawing.Bitmap
Dim bmDest As New Drawing.Bitmap(TargetWidth, TargetHeight, Drawing.Imaging.PixelFormat.Format32bppArgb)
Dim nSourceAspectRatio = bmSource.Width / bmSource.Height
Dim nDestAspectRatio = bmDest.Width / bmDest.Height
Dim NewX = 0
Dim NewY = 0
Dim NewWidth = bmDest.Width
Dim NewHeight = bmDest.Height
If nDestAspectRatio = nSourceAspectRatio Then
'same ratio
ElseIf nDestAspectRatio > nSourceAspectRatio Then
'Source is taller
NewWidth = Convert.ToInt32(Math.Floor(nSourceAspectRatio * NewHeight))
NewX = Convert.ToInt32(Math.Floor((bmDest.Width - NewWidth) / 2))
Else
'Source is wider
NewHeight = Convert.ToInt32(Math.Floor((1 / nSourceAspectRatio) * NewWidth))
NewY = Convert.ToInt32(Math.Floor((bmDest.Height - NewHeight) / 2))
End If
Using grDest = Drawing.Graphics.FromImage(bmDest)
With grDest
.CompositingQuality = Drawing.Drawing2D.CompositingQuality.HighQuality
.InterpolationMode = Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
.PixelOffsetMode = Drawing.Drawing2D.PixelOffsetMode.HighQuality
.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias
.CompositingMode = Drawing.Drawing2D.CompositingMode.SourceOver
.DrawImage(bmSource, NewX, NewY, NewWidth, NewHeight)
End With
End Using
Return bmDest
End Function
#End Region

Drawing2D.SmoothingMode ne s'applique pas ici, il n'est pertinente que pour le dessin vectoriel 2D méthodes telles que Graphics.DrawLine
Soyez prudent avec cela. Le With grDest section semblait toujours aussi légère augmentation des valeurs alpha, seulement perceptible sur un traitement itératif de la même image avec un semi-opaque élément de l'image. Au fil du temps, cela est devenu de moins en moins opaque. J'ai commenté l' .SmoothingMode partie et Changé CompositingMode à SourceCopy. Encore en test, mais l'un de ces deux semblent l'avoir fait. Peur que je ne peux pas donner une réponse plus précise que ne comprennent pas GDI qui bien. Peut-être que @Carter peut être en mesure de les aider à poursuivre compte tenu de sa connaissance de la GDI.

OriginalL'auteur Carter Medlin

Ne connais pas trop VB.NET syntaxe mais ici, c'est l'idée et la

Dim source As New Bitmap("C:\image.png") 
Dim target As New Bitmap(size.Width, size.Height, PixelFormat.Format24bppRgb)
Using graphics As Graphics = Graphics.FromImage(target)
graphics.DrawImage(source, new Size(48, 48)) 
End Using

OriginalL'auteur Alex LE

    Dim x As Integer = 0
Dim y As Integer = 0
Dim k = 0
Dim l = 0
Dim bm As New Bitmap(p1.Image)
Dim om As New Bitmap(p1.Image.Width, p1.Image.Height)
Dim r, g, b As Byte
Do While x < bm.Width - 1
y = 0
l = 0
Do While y < bm.Height - 1
r = 255 - bm.GetPixel(x, y).R
g = 255 - bm.GetPixel(x, y).G
b = 255 - bm.GetPixel(x, y).B
om.SetPixel(k, l, Color.FromArgb(r, g, b))
y += 3
l += 1
Loop
x += 3
k += 1
Loop
p2.Image = om

OriginalL'auteur Deshan Nawanjana

Vous devez vous connecter pour publier un commentaire.