JR-Stegano Activex

Beispiel

Image

'Speichern als Bitmap

  With CD1

    .InitDir = App.Path

    .FileName = "" 'Clear the filename

    .CancelError = True 'Gives an error if cancel is pressed

    .DialogTitle = "Grafik speichern"

    .Filter = "All Files (*.bmp)|*.bmp"

    On Error Resume Next

    .Action = 2

  End With

  If Err <> 0 Then Exit Sub

  If JRStegano1.SaveAsBMP(CD1.FileName, True) = False Then

    MsgBox "Fehler beim speichern"

  End If

'Als PNG speichern

  If JRStegano1.SaveAsPNG(CD1.FileName, True) = False Then

  MsgBox "Fehler beim speichern"

  End If