Thanks Mike,
It was late and I just missed the statement "Set FileUIEvents
= IvApp.FileUIEvents" that did it.
The next problem is that the event is fired before the
event so the FileName is empty, I had hope the event would give the "save
copy as" filename.
A wish would be to have the timing Boolean "BeforeOrAfter
As Inventor.EventTimingEnum" to return the filename on the "After"
timing.
I've tried much with Neil Munro's Command Event example
(big thanks for sharing) but it doesn't seen to catch this filename in
any of the other events.
Does anyone have an idea to get the "save
copy as" filename?
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Patrick
try this:
'declarations
Private WithEvents FileUIEvents As
FileUIEvents
Private OnFileSaveAsDialog As Boolean
'this goes on form
Set FileUIEvents = IvApp.FileUIEvents
OnFileSaveAsDialog = True
Private Sub FileUIEvents_OnFileSaveAsDialog(FileTypes() As String, ByVal
SaveCopyAs As Boolean, _
ByVal ParentHWND As Long, FileName As String,
HandlingCode As Inventor.HandlingCodeEnum)
If
OnFileSaveAsDialog = true Then
Debug.Print "Saveas Dialog
box is opening now"
End If
End Sub
Mike@RTSWright
