JR-Stegano Activex

Beispiel

AddFile

  With CD1

    .InitDir = App.Path

    .FileName = "" 'Clear the filename

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

    .DialogTitle = "Add File"

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

    On Error Resume Next

    .Action = 1

  End With

  If Err <> 0 Then Exit Sub

  myfile$ = CD1.FileName

  xlen = FileLen(myfile$)

'können die daten noch hinzugefügt werden??

  If JRStegano1.CanAddData(xlen) = False Then

    'Autoresize aktiv?

    If Check3.Value = 1 Then

    'hole benötigte Bildgröße

    JRStegano1.CalculateNewSize xlen, Mynewwidth, Mynewheight

    'Bildgröße anpassen

    If JRStegano1.ResizePicture(Mynewwidth, Mynewheight, True) = False Then

      MsgBox "Grafik konnte nicht auf nötige Größe geändert werden", vbOKOnly, "Daten nicht hinzugefügt"

      Exit Function