Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
29.04.2005, 14:09 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Hi!

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

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
01.05.2005, 13:55 Uhr
FlAsH
keine Ahnung

Ich kann jetzt nicht testen, da ich kein VB habe momentan, aber vielleicht mit On error?

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
01.05.2005, 15:33 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Visual Basic:

On Error Resume Next

habich schon versucht, ist aber eine weniger elegante Methode dem Benutzer den Fehler zu vertuschen.

Da gabs doch mal Flags für oder??
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
01.05.2005, 19:41 Uhr
FlAsH
keine Ahnung

vielleicht hilft das von vb Archiv

Visual Basic:

Private Sub cmdSave_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  Dim F As Integer

  On Error Resume Next
  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
    End If
  End With
End Sub

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
02.05.2005, 20:29 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Zitat von FlAsH:

vielleicht hilft das von vb Archiv

Visual Basic:

[...]
.Flags = cdlOFNOverwritePrompt

das sagt nur, dass er es nach Anfrage vom User überschreiben soll (bestehende Dateien.)

Zitat von FlAsH:

vielleicht hilft das von vb Archiv

Visual Basic:

[...]

.Filter = "Textdateien (*.txt)|*.txt"

müsste nur wissen, wie mehrere hintereinander aussehen/wie man die Dateiformate aneinander reiht
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
03.05.2005, 19:17 Uhr
FlAsH
keine Ahnung

meisnt du so?

Visual Basic:

.Filter = "Textdateien (*.txt)|*.txt|Bild Dateien(*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: