Habe ein kleines JPG Converter Programm gemacht mit dem man andere Bilddateien in JPG umwandeln kann und dabei eine Kompressionsrate einstellen kann.
Mein Problem liegt beim Dialog Control. Kann mir einer eine Liste von gängigen Bilddateien geben, z.b. BMP im DialogFilter Stil?
Weiß nichtmehr ganz wie das geht, und mehr Bildformate außer TGA, BMP und GIF kenne ich nicht.
Außerdem habe ich das Problem, dass man wenn man auf Abbrechen beim Laden/Speichern von dem Bild klickt ein Laufzeitfehler auftritt. Wie kann ich das unterbinden? -- Mit freundlichen Grüßen Audron, audron@sxene.de
PrivateSub cmdSave_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F AsInteger
OnErrorResumeNext With CommonDialog1 .CancelError = True ' Hinweis, falls Datei bereits vorhanden ' weitere Flags-Eigenschaften finden Sie in der MSDN .Flags = cdlOFNOverwritePrompt
' Filter setzen - hier wird festgelegt, unter welchem ' Format eine Datei gespeichert wird. .Filter = "Textdateien (*.txt)|*.txt"
' Dialogfeld Speichern anzeigen .ShowSave If.FileName <> ""Then F = FreeFile Open.FileName For Output As #F Print #F, Text1.Text Close #F EndIf End With EndSub