Share via

BeforeSave event

  • Article

Occurs immediately before the map is saved.

Applies to

Objects: Application

Syntax

object.BeforeSave(SaveAsUi, Cancel)

Parameters

Part

Description

object

An expression that evaluates to an Application object.

SaveAsUi

ByVal Boolean. True if the Save As dialog box will be displayed.

Cancel

Boolean. False when the event occurs. If the event procedure sets this argument to True, the map is not saved when the procedure is finished.

Remarks

  • Do not make this event infinitely recursive by calling itself or causing itself to be called.

Example

  Dim WithEvents objApp As MapPoint.Application

  Private Sub Form_Load()
    'Set up the application
    Set objApp = CreateObject("mappoint.application")
    objApp.Visible = True
    objApp.UserControl = True
  End Sub

  Private Sub Command1_Click()
    'Save the map when button is clicked
    objApp.ActiveMap.SaveAs "SavedFile.ptm"
  End Sub

  Private Sub objApp_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    MsgBox "BeforeSave event fired."
  End Sub