Discussion :

[Paul Van Walleghem]

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!

[Pol63]

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

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)
        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

[Paul Van Walleghem]

Merci!!!