Hallo Frank,
ich glaube, damit PostPrivateEvent funktioniert, muss dieser initialisiert werden bevor man auf „speichern“ klickt. Mir ist nicht ganz klar, was gemacht werden soll, denn soweit ich weiß, wird durch PostPrivateEvent gar kein Dialogfenster angezeigt.
Wenn es nur darum geht nur den (Vorschlag-) Dateinamen im Dialogfenster anzugeben, dann könnte man das mit OnPopulateFileMetadata-Ereignis realisieren. In etwa so (VBA-Code):
Code:
Private WithEvents fuiE As FileUIEventsPrivate Sub fuiE_OnPopulateFileMetadata(ByVal FileMetadataObjects As ObjectsEnumerator, _
ByVal Formulae As String, _
ByVal Context As NameValueMap, _
HandlingCode As HandlingCodeEnum)
Dim FMD As FileMetadata: Set FMD = FileMetadataObjects.Item(1)
FMD.FileName = "Dein Dateiname hier eingeben"
HandlingCode = kEventHandled
End Sub
Alternativ könnte man den OnFileSaveAsDialog-Ereignis abfangen, den auf kEventHandled setzen und stattdessen seinen Eigenen FileSaveDialog kreieren bzw. ausführen. Das ist etwas aufwändiger, aber Vorteil dabei ist, dass man volle Kontrolle über alles hat, was FileDialog-Objekt anbietet.
------------------
alex
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP