topic Conversion: VBA to .NET ThisDocument in ArcObjects SDK Questions

Conversion: VBA to .NET ThisDocument

NathanAmboy — Mon, 15 Mar 2010 18:35:02 GMT

The following code was in my "ThisDocument" in VBA. I've exported it to it's own .NET Class. How do I set pMxdoc to my Arcmap session in the code - it has null value for now? And what is the best way to Dim forms? I've seen three ways: as "Object"; as "Form1"; as System.Windows.Forms.Form - also null value for now ....

    Public Sub DYO_Click()
        Dim DYO_UserForm As Form1
        Dim pMxdoc As ESRI.ArcGIS.ArcMapUI.IMxDocument
        Dim pMap As ESRI.ArcGIS.Carto.IMap = pMxdoc.FocusMap
        DYO_UserForm.Show()
    End Sub

Conversion: VBA to .NET ThisDocument

G__Venkata_VijayaKumar — Fri, 02 Apr 2010 20:47:20 GMT

Where is this code in the Dot net class. Are you creating a button or a tool?

Conversion: VBA to .NET ThisDocument

DevdattaTengshe — Sun, 12 Dec 2021 07:45:16 GMT

The following code was in my "ThisDocument" in VBA. I've exported it to it's own .NET Class. How do I set pMxdoc to my Arcmap session in the code - it has null value for now?

The variable "ThisDocument" does not exist when customizing through .NET. What you need to do, is to get it through the application. If you have a custom command button/tool, then you probably have a variable called m_app of the type IApplication, which was initialized on the 'On create' event. you just need:
to use the IApplication.Document property to get to the Document from which you can cast to IMxDocument

And what is the best way to Dim forms? I've seen three ways: as "Object"; as "Form1"; as System.Windows.Forms.Form - also null value for now ....

Generally we dim & open a form like this:

Dim frm as Myform=new Myform()                'Myform is the name of your form
frm.show

Conversion: VBA to .NET ThisDocument

MikeLouwrens — Sun, 12 Dec 2021 07:45:19 GMT

The following code was in my "ThisDocument" in VBA. I've exported it to it's own .NET Class. How do I set pMxdoc to my Arcmap session in the code - it has null value for now?

This is what I do to replace the ThisDocument VBA lines...
Replace this (or similar) from VBA:

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

With this in .Net:

Dim pDoc As IDocument = m_application.Document
Dim pMxDoc As IMxDocument = CType(pDoc, IMxDocument)

It might not be the right/best way to do it, but it's worked for me everytime I've used it.

HTH
Mike.