Bonjour à tous!

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
Merci du coup pousse!