Zoomer un Bitmap

Bonjour à tous!

La fontion incomplète ci-dessous zoom un bitmap au facteur qu'elle reçoit en paramètre:

Code:

---

1 2 3 4 5 6 7

Public Function Zoom(ByVal oBmp As Bitmap, ByVal nZoom As Integer) As Bitmap Dim dFactor As Double = nZoom / 100 Dim oBmpPage As New Bitmap(CInt(oBmp.Height * dFactor), CInt(oBmp.Width * dFactor)) Dim oGraph As Graphics = Graphics.FromImage(oBmpPage) Return oBmpPage End Function

---

Comment puis-je donner une nouvelle taille à l'objet graphique et le reconvertir en objet Bitmap?

C'est bête mais je cale vraiment sur ce point.:bug:
Merci du coup pousse!

il ne manque qu'une ligne dans ta fonction pour qu'elle marche

Code:

---

1 2 3 4 5 6 7

Public Function Zoom(ByVal oBmp As Bitmap, ByVal nZoom As Integer) As Bitmap Dim dFactor As Double = nZoom / 100 Dim oBmpPage As New Bitmap(CInt(oBmp.Height * dFactor), CInt(oBmp.Width * dFactor)) Dim oGraph As Graphics = Graphics.FromImage(oBmpPage) oGraph.DrawImage( ) Return oBmpPage End Function

---

il suffit de dessiner l'image sur le graphique du nouveau bitmap
il y a une surcharge qui demande sourceRect et destRect, taille d'origine et taille que tu veux agrandir
il te faut donc 2 variables rectangle et calculer la taille du nouveau rectangle après zoom

Merci!!!:king: