[GIS] Turn off field programmatically in ArcMap via VB.Net

arcmaparcobjectsvb.net

I'm creating an addin button in Arcmap via VB.net that when clicked, runs the identify tool. But I want only selected fields to appear in the identify dialog. My idea is to hide the unnecessary fields and then show them again once the identify tool is deactivated.

Is it possible to programmatically turn off/on a field?

Best Answer

You can use the IFieldInfo::Visible property. Here's one way

Dim pFieldInfo As IFieldInfo 
Dim pLayerFields As ILayerFields

pLayerFields = pMxDoc.FocusMap.Layer(0)
pFieldInfo = pLayerFields.FieldInfo(lIndex)
pFieldInfo.Visible = False

Related Solutions

[GIS] Displaying selected features in ArcGIS Identify Dialog using Visual Studio 2010/ArcObjects

This was a struggle, and I'm sure there is a classier way, but this is the code that I finally got working. The only glitch is that the identify box expands the first layer (so you can see all selected records), but the second layer stays condensed. You have to manually click the "+" to expand after the script runs.

Imports ESRI.ArcGIS.ArcMapUI
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.CartoUI
Imports ESRI.ArcGIS.Geodatabase

Public Class ShowSelectedWR
Inherits ESRI.ArcGIS.Desktop.AddIns.Button
Dim pMxDoc As IMxDocument
Dim activeView As IMap

Sub test()
    Dim pMxDoc As IMxDocument
    Dim pActiveView As IActiveView
    Dim pIdentifyDialog As IIdentifyDialog
    Dim pIdentifyDialogProps As IIdentifyDialogProps
    Dim pEnumLayer As IEnumLayer
    Dim pLayer As ILayer2
    Dim pFtrLyr As IFeatureLayer
    Dim pFtrSel As IFeatureSelection
    Dim pFtrCsr As IFeatureCursor
    Dim pFtr As IFeature

    pMxDoc = My.ArcMap.Application.Document
    pActiveView = pMxDoc.FocusMap
    pIdentifyDialog = New IdentifyDialog
    pIdentifyDialogProps = pIdentifyDialog
    pIdentifyDialog.Map = pMxDoc.FocusMap
    pIdentifyDialog.Display = pActiveView.ScreenDisplay

    pIdentifyDialog.ClearLayers()

    pEnumLayer = pIdentifyDialogProps.Layers

    pEnumLayer.Reset()
    pLayer = pEnumLayer.Next

    ' Get a ref to the first layer
    pFtrLyr = pMxDoc.FocusMap.Layer(0)

    ' Get a cursor on the selected features in this layer
    pFtrSel = pFtrLyr
    ' Sets cursor to start at beginning of selected feature
    pFtrSel.SelectionSet.Search(Nothing, False, pFtrCsr)

    ' loop thru selected features and display OID of each

    pFtr = pFtrCsr.NextFeature
    While Not pLayer Is Nothing
        Do While Not pFtr Is Nothing
            'MsgBox("Before pFtr NextFeature Call")
            pIdentifyDialog.AddLayerIdentifyOID(pLayer, pFtr.OID)
            Debug.Print(pFtr.OID)
            pFtr = pFtrCsr.NextFeature
            'MsgBox("End of First Loop")
        Loop
        ' Loop to move through layers and NOT call identify loop unless 
        ' there are selected records.
        pLayer = pEnumLayer.Next
        If Not pLayer Is Nothing Then
            pFtrLyr = pLayer
            pFtrSel = pFtrLyr
            pFtrSel.SelectionSet.Search(Nothing, False, pFtrCsr)
            Debug.Print(pFtrLyr.Name)
            pFtr = pFtrCsr.NextFeature
        End If
    End While
    pIdentifyDialog.Show()
End Sub

Public Sub New()

End Sub

Protected Overrides Sub OnClick()
    test()
End Sub

Protected Overrides Sub OnUpdate()
    Enabled = My.ArcMap.Application IsNot Nothing
End Sub
End Class

[GIS] unable to enable the addin extension

When you're starting ArcMap the OnStartup() is executed very early in the ArcMap startup process, at this stage ArcMap window is half-baked and trying to do too much is going to end badly. Not a lot of objects are initialized and ready at this stage and no windows have been created.

Instead wire the event My.ArcMap.Events.NewDocument which is fired at the end of the ArcMap startup process when the windows and objects are fully formed and just about to show the ArcMap application (and again for each new document...):

Protected Overrides Sub OnStartup()
    '
    ' TODO: Uncomment to start listening to document events
    '
    'WireDocumentEvents() // Esri start code...
    AddHandler My.ArcMap.Events.NewDocument, AddressOf ArcMapNewDocument
End Sub
Private Sub ArcMapNewDocument()
    ' TODO: Add code to handle new document event
    Debug.Print("NewDoc") ' wire further events here...
End Sub

It is safe however to unwire the event on the first run if you so wish:

Private Sub ArcMapNewDocument()
    ' TODO: Add code to handle new document event
    Debug.Print("NewDoc")   ' wire further events here
    RemoveHandler My.ArcMap.Events.NewDocument, AddressOf ArcMapNewDocument
End Sub

That way the extension is initialized only on the first run of ArcMap; I don't think there's much problem re-wiring the same event to the same delegate but just in case I think it would be safer to unwire it.

Best Answer

Related Solutions

[GIS] Displaying selected features in ArcGIS Identify Dialog using Visual Studio 2010/ArcObjects

[GIS] unable to enable the addin extension

Related Question