LayersOfMap Try It Out example in Ch. 6

jencarta · May 29th, 2015, 11:35 AM

I have tried the simple example starting on page 168 in VB .NET, following the instructions and then copying and pasting the vb code that I downloaded. From what I can tell, my solution is the same as the one provided in the downloaded code, yet, when I try to use the tool (debug mode), the button grays out and no window pops up.

It works fine with the code provided with the book (after changing the application to version 10.2). I have checked all the associated files and they are identical except for the LayersOfMap.vbproj.FileListAbsolute.txt and AddInID.txt files, and the value between <AddInID> and </AddInID> in the Config.esriaddinx file. Both solutions are using the .NET 3.5 framework.

Any suggestions? I would prefer to be able to get a version that I created from scratch working rather than always copy the downloaded code. I was able to get some simpler Try It Out projects in Chapter 2 to work.

jencarta · May 29th, 2015, 04:16 PM

I started from scratch and defined the variables and initialized them in separate lines of code. I'm not sure what made the difference, but it worked this time. Here is the code I used for LayersOfMapButton.vb:

Code:

Imports ESRI.ArcGIS.ArcMapUI
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Framework


Public Class LayersOfMapButton
    Inherits ESRI.ArcGIS.Desktop.AddIns.Button

    Public Sub New()

    End Sub

    Protected Overrides Sub OnClick()
        Dim pData As String
        Dim pMxDoc As IMxDocument
        Dim pMap As IMap
        pData = ""
        pMxDoc = My.ArcMap.Application.Document
        pMap = pMxDoc.FocusMap
        'Using layer count property

        Dim pLayer As ILayer
        For i As Integer = 0 To pMap.LayerCount - 1
            pLayer = pMap.Layer(i)
            pData = pData + " >> " + pLayer.Name + vbNewLine
        Next
        pData = pData + String.Format("{0} Map contains {1} layers" + vbNewLine, pMap.Name, pMap.LayerCount)
        pLayer = Nothing

        pData = pData + "-------------------------" + vbNewLine
        pData = pData + "Using layers property" + vbNewLine
        Dim pEnumLayer As IEnumLayer
        pEnumLayer = pMap.Layers
        pLayer = pEnumLayer.Next()
        Dim j As Integer
        j = 0
        While pLayer IsNot Nothing
            j = j + 1
            pData = pData + " >> " + pLayer.Name + vbNewLine
            pLayer = pEnumLayer.Next()
        End While
        pData = pData + String.Format("{0} Map contains {1} layer(s)" + vbNewLine, pMap.Name, j)

        Dim msgForm As New Message()
        msgForm.lbl.Text = pData
        msgForm.ShowDialog()

    End Sub