topic Re: Closing / Ending a mxd in ArcObjects SDK Questions

Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 13:14:17 GMT

I have a dialog box with a cancel button on it. I want the whole mxd to close down when they click on the Cancel button. My button is written as such :

Private Sub cmdCancel_Click()
End

End Sub

What do I type to close the mxd???

Re: Closing / Ending a mxd

NeilClemmons — Mon, 07 Jan 2013 13:43:03 GMT

If you want to unload the mxd then call IApplication.NewDocument. If you want to close ArcMap itself then call IApplication.Shutdown.

Re: Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 15:28:49 GMT

Not to sure how to program that!!

Private Sub cmdCancel_Click()

IApplication.Shutdown
End

End Sub

This is how it is now and it does not shutdown the mxd.. All it does is close down the box!!!!

Re: Closing / Ending a mxd

NeilClemmons — Mon, 07 Jan 2013 15:35:28 GMT

IApplication is the interface you need to use. You will need to declare a variable of that type and set it to an instance of the ArcMap application. Once you've done that you can call the methods you need. How you do this depends on your environment so I'll leave that up to you.

Re: Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 17:10:47 GMT

Can't do that! If you notice it is for a command button in a dialog box program. When they open the mxd a dialog box pops up in order for them to answer some questions. On the box is a cancel button, when they hit the cancel button it needs to close the mxd. So I need the code to shut down an mxd when the cancel button is pushed on the dialog box.

Private Sub cmdCancel_Click()

IApplication.Shutdown
End

End Sub

Re: Closing / Ending a mxd

NeilClemmons — Mon, 07 Jan 2013 17:17:29 GMT

You always have a way to get a reference to the ArcMap application. If you're implementing an extension then it's passed into the Startup method. If you're implementing a command or tool then it's passed into the Create method. Addins have something similar but I don't work with them so I don't know it off the top of my head. In VBA, it's a built-in environment shortcut named Application.

Re: Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 17:35:53 GMT

So I would go to ThisDocument and put this code underneath my OpenDocument?? Like Such :

Private Function MxDocument_OpenDocument() As Boolean

      Dim frm As frmMapSetUp
      Set frm = New frmMapSetUp
      frmMapSetUp.Show

End Function

Private Sub cmdCancel_Click()

IApplication.Shutdown
End

End Sub

Is this right??

Re: Closing / Ending a mxd

KenBuja — Mon, 07 Jan 2013 17:44:17 GMT

If you're working with an Addin and you want to close ArcMap, then use the line

My.ArcMap.Application.Shutdown()

Re: Closing / Ending a mxd

NeilClemmons — Mon, 07 Jan 2013 17:44:40 GMT

No, that is not correct. First, you should have stated that you're using VBA to begin with so that someone trying to answer your question would know what environment you're working in. As I said in my last post, VBA has a built-in shortcut named Application. So the code would be:

Application.Shutdown()

However, since you're calling your form from ArcMap's OpenDocument event you will not be able to close ArcMap or load another document because ArcMap is already in the process of opening a document. You can only do these kind of things after the document has been loaded.

Re: Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 17:55:41 GMT

Sorry, didn't think I had to state I was using ArcOBjects because I went into the ArcObjects area of the forum. Sorry about that! So since I have open document in running in this document there is no way to program the cancel button to shut it down. Right!! Would I maybe put the programming of the cancel button in ThisDocument under the open document programming. Would that work? And use what you gave me.

Re: Closing / Ending a mxd

MichelleCouden1 — Mon, 07 Jan 2013 18:07:17 GMT

The mxd has loaded. You open an mxd to get the dialog box. So hitting the cancel button should close the mxd that is open at that time. Called UserForm1.mxd!!!

Re: Closing / Ending a mxd, Sorry Neil! I am new. I'm trying to understand.

MichelleCouden1 — Mon, 07 Jan 2013 18:18:45 GMT

I am trying to understand. I am new to ArcObjects the language is different then VBA. When you open an mxd to get the dialog box, I am not understanding why when you hit the cancel button it can't close that mxd.

Re: Closing / Ending a mxd

NeilClemmons — Mon, 07 Jan 2013 18:31:39 GMT

I don't know how to explain it other than to repeat what I've already said. The OpenDocument event fires when a document is opened. Inside this event, you are calling your form. You cannot close ArcMap or load another document from this form because ArcMap is already in the process of opening a document. I have tested this and each time I try it I get an Access Denied error. If you want to close ArcMap or load another document then you will have to do it from somewhere other than the OpenDocument event.

Also, ArcObjects is not a language. The language you are using is VBA. It's important to tell others this when asking a question because the vast majority of the people on this forum do not use VBA. They use a .NET language, C++ or Java. How you do things can vary greatly depending on your programming environment so telling people what environment you're using will get you a correct answer much faster.

Re: Closing / Ending a mxd

MichelleCouden1 — Tue, 08 Jan 2013 11:52:10 GMT

I got it. Thanks again for your help!!!! Hey, since your experienced in ArcObjects could you help me with another button code. Really, I just need proper command to get to a folder than open an mxd. I am using If then statements such as this :

Dim cboStations As String
'If cboStations = "Annual" Then gotofolder "K:\TASS\4_MAPPING_DATct_Maps\2012"
'Else
'gotofolder "K:\TASS\4_MAPPING_DATA_SUPPORT\Traffic_Mapping\Urban_Maps"

'Dim districts As String
'Dim cboDistrict As String
'If cboDistrict = "Abilene" Then getmxd "K:\TASS\4_MAPPe\Abilene_Base_Map.mxd"
'Elif
'cboDistrict = "Amarillo" then getmxd "K:\TASS\4_ps\2012\Amarillo"
Am I on the right track??

Re: Closing / Ending a mxd

BillSaunders — Sat, 10 May 2014 17:44:53 GMT

I am having a similar problem to the one documented in this thread. I have an inherited VBA .mxd that runs in both ArcGIS 9.3.1 and 10.0. The .mxd uses a form that includes an Exit button. In 9.3.1, selecting the Exit button shuts down ArcMap immediately (which is what we want). In 10.0, the Exit button leads to the dialog box "Save changes to xxx.mxd?" This may be minor, but I have a number of staff users who have some trouble spelling GIS, and saving changes would lead to unwanted text boxes included in subsequent iterations of the product layout (i.e. without me having to go in and clean them up). Everything else about this .mxd works the same in 9.3.1 and in 10.0. Wondering what else I need to do in the 10.0 version of the .mxd to get it to shutdown immediately without the dialog box. Here is the code for the Exit button in the form:

Private Sub cmdExit_Click()
'   Code to shutdown application
    Dim pApp As IApplication
    Set pApp = Application

'   Do not save changes
    pApp.Shutdown
    SendKeys "n"
End Sub

Thanks in advance.

Re: Closing / Ending a mxd

NeilClemmons — Mon, 12 May 2014 12:39:59 GMT

Before calling Shutdown, try calling IDocumentDirty2.SetClean.

Re: Closing / Ending a mxd

BillSaunders — Mon, 12 May 2014 18:39:58 GMT

Thanks for the quick reply. I changed the VBA code as follows:

Private Sub cmdExit_Click()
'   Code to shutdown application

    Dim pApp As IApplication
    Set pApp = Application

    Dim pDirty As IDocumentDirty2
    pDirty.SetClean

'   Do not save changes
    pApp.Shutdown
    SendKeys "n"
End Sub

But the mxd gives me a Runtime Error 91 when I select the Exit button and is hanging on the .SetClean command. Did I not implement this into VBA correctly?

Re: Closing / Ending a mxd

NeilClemmons — Mon, 12 May 2014 18:45:38 GMT

You have to instantiate the variable pDirty before you can use it.

Re: Closing / Ending a mxd

BillSaunders — Tue, 13 May 2014 16:28:12 GMT

DUH. Thanks. That works great. Now, for my info, why is this required in ArcGIS 10.0 and not in 9.3.1?

Re: Closing / Ending a mxd

NeilClemmons — Tue, 13 May 2014 18:21:22 GMT

ESRI fixes a lot of things behind the scenes with each version release. I can't say why they made this change in particular but I would guess it was an application design decision. They realized calling Shutdown didn't prompt to save changes so they changed it so that it does (unless you clear the dirty flag). Again, that's just speculation.