Mon programme calcule le ferraillage d'un poteau béton. L'utilisateur
entre les données, et lance le calcul qui aboutit sur le dessin du
poteau et une note de calcul que je genère en HTML.
L'image est enregistrée sur mon disque et est affichée dans une picturebox et dans la note de calcul en HTML.
Tout cela marche mais si je relance le calcul ça plante avec mon erreur de GDI+.
Je n'arrive pas à comprendre si c'est parce que l'image est utilisé que je n'arrive pas à l'afficcher de nouveau.
MON CODE
Private
Sub menu_Calculer(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles barre_calculer.Click, mnu_calculer.Click
...blablablabla....
'--- Affichage dessin ---
'Image de support
'pic.Dispose()
Dim img As Bitmap = New Bitmap(pic.Width, pic.Height)
'Dim img As New Bitmap(file_img_p)
'frm_note.Close()
'pic.Image = Nothing
'Paramètres de transformation
Dim ajust As ajustage = Ajuste_section(section, pic)
'Trace
Call Trace_section(section, img, ajust)
Call Trace_section(section_Br, img, ajust)
'Affichage sur la picturebox
Try
Image.FromFile(file_img_p).Dispose()
img.Save(file_img_p, ImageFormat.Gif)
pic.Image = Image.FromFile(file_img_p)
Catch ex As Exception
Console.WriteLine(">>>" & ex.Message)
End Try
'--- Note de calculs ---
'Call ndc_poteau(p, geom_p, soll_p, meca_p, arm_p)
'Call menu_ndc(sender, e)
'img.Dispose()
End Sub
MODULE DESSIN
Public Sub Trace_section(ByRef tableau() As PointF, ByVal img As Bitmap, ByVal ajust As ajustage)
'Trace une image à partir d'un tableau
Dim tableau_trace() As PointF
tableau_trace = tableau.Clone
'Tableau affichage
For i As Integer = 0 To tableau_trace.GetUpperBound(0)
tableau_trace(i).X = tableau(i).X * ajust.echelle.dx + ajust.vecteur.dx
tableau_trace(i).Y = tableau(i).Y * ajust.echelle.dy + ajust.vecteur.dy
Next i
'Créer une image en fonction de la picturebox
Dim graph As Graphics = Graphics.FromImage(img)
'graph.FromImage(img)
'Dessin
graph.FillRectangle(Brushes.White, New Rectangle(0, 0, img.Width, img.Height))
graph.DrawPolygon(Pens.Red, tableau_trace)
'Dim img1 As Image = New Bitmap(img.Width, img.Height, graph)
'img1.Save("c:\essai.bmp") ', ImageFormat.Bmp)
graph.Dispose()
End Sub