Can't get IIdentifyDialog2 to work in VB.net

MatthiasKl

I want to use the ArcMap Identify-Tool inside a WindowsForm. So I've created a button and added a clickevent:

    Private Sub btnIdentify_Click(sender As Object, e As EventArgs) Handles btnIdentify.Click 
        Dim intObjectID As Integer = lstResults.SelectedValue 
        Dim pLayer As ILayer2 = pDocument.FocusMap.Layer(0) 
        DoIdentify(pLayer, intObjectID) 
&nbsp;&nbsp;&nbsp; End Sub ‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍<SPAN class="line-numbers-rows"><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN></SPAN>

I've also created a sub procdedure similar to the one in the ArcObjects API Reference for .NET

    Private Sub DoIdentify(ByVal pLayer As ILayer, ByVal intObjectID As Integer) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If pActiveView Is Nothing Or pLayer Is Nothing Or intObjectID <= 0 Then 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pMap As IMap = pActiveView.FocusMap 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pIdentifyDialog As IIdentifyDialog = New IdentifyDialogClass() 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.Map = pMap 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.ClearLayers() 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pScreenDisplay As IScreenDisplay = pActiveView.ScreenDisplay 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pDisplay As IDisplay = pScreenDisplay 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.Display = pDisplay 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.AddLayerIdentifyOID(pLayer, intObjectID) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.Show() 
&nbsp;&nbsp;&nbsp; End Sub ‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍<SPAN class="line-numbers-rows"><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN></SPAN>

This code works perfectly fine. But I really want to use the new IIdentifyDialog2 Interface. But if I change the code to

    Private Sub DoIdentify(ByVal pLayer As ILayer, ByVal intObjectID As Integer) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If pActiveView Is Nothing Or pLayer Is Nothing Or intObjectID <= 0 Then 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pMap As IBasicMap2 = pActiveView.FocusMap 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pIdentifyDialog As IIdentifyDialog2 = New IdentifyDialogClass() 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.BasicMap = pMap 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.ClearLayers() 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pScreenDisplay As IScreenDisplay3 = pActiveView.ScreenDisplay 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pDisplay As IDisplay = pScreenDisplay 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.Display = pDisplay 
&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.AddLayerIdentifyOID(pLayer, intObjectID) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pIdentifyDialog.Show() 
&nbsp;&nbsp;&nbsp; End Sub ‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍‍<SPAN class="line-numbers-rows"><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN><SPAN>‍</SPAN></SPAN>

 
I get a NullReferenceException at pIdentifyDialog.ClearLayers() I already tried so many things but somehow I can't get it to work with the new Identify-Tool. Does anyone know the answer?

GKmieliauskas

I have found one sample, you can follow it and check if it works:

https://forum.esri-cis.ru/index.php?qa=36329&qa_1=identify

Site in Russian language, but code in VB

At first work with IIdentifyDialog variable (until ClearLayers).

After cast it to IIdentifyDialog2 variable and try your workflow