Meerdere charts opslaan in een document

Status
Niet open voor verdere reacties.

spoeft

Nieuwe gebruiker
Lid geworden
18 mei 2014
Berichten
2
Beste,


Ik ben een programma aan het maken die de cash flow weergeeft in een 3 verschillende grafieken.
Deze grafieken worden gemaakt door calculaties in mijn programma. Ik maak gebruik van de " chart " in de toolbox ( VB 2010 Express)

Nu zou ik graag deze 3 verschillende opslaan in een document.
De volgende code heb ik, maar deze slaat 1 grafiek op in 1 document.

Code:
 Displays a SaveFileDialog so the user can save the Image
	       ' assigned to Button2.
	       Dim saveFileDialog1 As New SaveFileDialog()
	       saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
	       saveFileDialog1.Title = "Save an Image File"
	       saveFileDialog1.ShowDialog()
	 
	       ' If the file name is not an empty string open it for saving.
	       If saveFileDialog1.FileName <> "" Then
	           ' Saves the Image via a FileStream created by the OpenFile method.
	           Dim fs As System.IO.FileStream = CType _
	              (saveFileDialog1.OpenFile(), System.IO.FileStream)
	           ' Saves the Image in the appropriate ImageFormat based upon the
	           ' file type selected in the dialog box.
	           ' NOTE that the FilterIndex property is one-based.
	           Select Case saveFileDialog1.FilterIndex
	               Case 1
	                   Chart1.SaveImage(fs, _
	                      System.Drawing.Imaging.ImageFormat.Jpeg)
	 
	               Case 2
	                   Chart1.SaveImage(fs, _
	                      System.Drawing.Imaging.ImageFormat.Bmp)
	 
	               Case 3
	                   Chart1.SaveImage(fs, _
	                      System.Drawing.Imaging.ImageFormat.Gif)
	           End Select

Zou iemand mij hiermee kunnen helpen?

Bij voorbaat dank.
 
Laatst bewerkt door een moderator:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan