I want to be able Save multiple graphic file formats in > Save as type(.png , .jpg, ect.), By trial and Error the current code only loads one type at a time in the Save As type PopUp menu in the Save As dialog window. How do I get it to load both file types in the Save As type PopUp menu to have .png and .jpg. ? I suspect it might have to be done with the GetSaveFolderItem Function. Which I don’t have a clue how to rewrite it.
Dim pic as new Picture(cvsCapturPic.Width, cvsCapturPic.Height,32)
cvsCapturPic.drawinto(pic.graphics, 0, 0)
Dim dlg as SaveAsDialog
Dim f as FolderItem
dlg = new SaveAsDialog
dlg.Title = "Save PNG Picture File"
dlg.SuggestedFileName = "SaveAs.png"
dlg.Filter = FileTypes1.PngType
dlg.Title = "Save JPG Picture File"
dlg.SuggestedFileName = "SaveAs.jpg"
dlg.Filter = FileTypes1.JpgType
f = dlg.ShowModal
If f <> Nil Then
'pic.Save(f,pic.SaveAsPNG)
pic.Save(f, pic.SaveAsJPEG)
End If