Tabbed feature inspector
ObjectInspector.vb
' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports ESRI.ArcGIS.ADF.CATIDs
Imports ESRI.ArcGIS.Editor
Imports ESRI.ArcGIS.Geodatabase
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.esriSystem

<ComClass(ObjectInspector.ClassId, ObjectInspector.InterfaceId, ObjectInspector.EventsId), _
 ProgId("TabbedFeatureInspectorVBNet.ObjectInspector")> _
Public NotInheritable Class ObjectInspector
  Inherits UserControl
  Implements ESRI.ArcGIS.Editor.IObjectInspector
  Implements ESRI.ArcGIS.Geodatabase.IClassExtension
  Implements ESRI.ArcGIS.Geodatabase.IFeatureClassExtension

#Region "COM Registration Function(s)"
  <ComRegisterFunction(), ComVisibleAttribute(False)> _
  Public Shared Sub RegisterFunction(ByVal registerType As Type)
    ' Required for ArcGIS Component Category Registrar support
    ArcGISCategoryRegistration(registerType)

    'Add any COM registration code after the ArcGISCategoryRegistration() call

  End Sub

  <ComUnregisterFunction(), ComVisibleAttribute(False)> _
  Public Shared Sub UnregisterFunction(ByVal registerType As Type)
    ' Required for ArcGIS Component Category Registrar support
    ArcGISCategoryUnregistration(registerType)

    'Add any COM unregistration code after the ArcGISCategoryUnregistration() call

  End Sub

#Region "ArcGIS Component Category Registrar generated code"
  ''' <summary>
  ''' Required method for ArcGIS Component Category registration -
  ''' Do not modify the contents of this method with the code editor.
  ''' </summary>
  Private Shared Sub ArcGISCategoryRegistration(ByVal registerType As Type)
    Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID)
    GeoObjectClassExtensions.Register(regKey)

  End Sub
  ''' <summary>
  ''' Required method for ArcGIS Component Category unregistration -
  ''' Do not modify the contents of this method with the code editor.
  ''' </summary>
  Private Shared Sub ArcGISCategoryUnregistration(ByVal registerType As Type)
    Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID)
    GeoObjectClassExtensions.Unregister(regKey)

  End Sub

#End Region
#End Region

#Region "COM GUIDs"
  ' These  GUIDs provide the COM identity for this class 
  ' and its COM interfaces. If you change them, existing 
  ' clients will no longer be able to access the class.
  Public Const ClassId As String = "2cfe1569-8732-4e73-ac8b-31b87be9631b"
  Public Const InterfaceId As String = "8e71ff21-3906-415c-a26d-af2d9c00233e"
  Public Const EventsId As String = "5636873f-0653-42fd-aca8-f87953c685f8"
  Friend WithEvents inspectorTabControl As System.Windows.Forms.TabControl
  Friend WithEvents standardTabPage As System.Windows.Forms.TabPage
  Friend WithEvents pictureBoxDefault As System.Windows.Forms.PictureBox
  Friend WithEvents customTabPage As System.Windows.Forms.TabPage
  Friend WithEvents listBoxInspector As System.Windows.Forms.ListBox
#End Region

  Dim m_inspector As ESRI.ArcGIS.Editor.IObjectInspector
  Private m_classHelper As ESRI.ArcGIS.Geodatabase.IClass
  'The win32 methods are required for in VS.net to correctly set parenting of customizable     area in the attribute inspector.
  Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
  Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
  Private Const SW_SHOW As Short = 5
  Private Const SW_HIDE As Short = 0
  Dim m_otitle As String = "Custom Feature Inspector Properties:"
  ' A creatable COM class must have a Public Sub New() 
  ' with no parameters, otherwise, the class will not be 
  ' registered in the COM registry and cannot be created 
  ' via CreateObject.
  Public Sub New()
    MyBase.New()
    InitializeComponent()
    If Me.m_inspector Is Nothing Then
      Me.m_inspector = New FeatureInspector()
    End If
  End Sub
  ''' <summary>
  ''' Clear the inspector before inspecting another object.
  ''' </summary>
  ''' <remarks></remarks>
  Public Sub Clear() Implements ESRI.ArcGIS.Editor.IObjectInspector.Clear
    Me.listBoxInspector.Items.Clear()
    Me.m_inspector.Clear()
  End Sub
  ''' <summary>
  ''' Copies the values from srcRow to the row being edited. 
  ''' </summary>
  ''' <param name="srcRow"></param>
  ''' <remarks></remarks>
  Public Sub Copy(ByVal srcRow As ESRI.ArcGIS.Geodatabase.IRow) Implements ESRI.ArcGIS.Editor.IObjectInspector.Copy
    Me.m_inspector.Copy(srcRow)
  End Sub
  ''' <summary>
  ''' The window handle for the inspector.
  ''' </summary>
  Public ReadOnly Property HWND() As Integer Implements ESRI.ArcGIS.Editor.IObjectInspector.HWND
    Get
      Try

        HWND = Me.Handle.ToInt32
     
        Exit Property

      Catch ex As Exception
        MessageBox.Show("IObjectInspector_hWnd: " & ex.Message)
      End Try
    End Get
  End Property
  ''' <summary>
  ''' Inspects the properties of the features.
  ''' </summary>
  ''' <param name="objects"></param>
  ''' <param name="Editor"></param>
    ''' <remarks>Implementation of the custom inspector for polygon, point and line geometry.</remarks>
  Public Sub Inspect(ByVal objects As ESRI.ArcGIS.Editor.IEnumRow, ByVal Editor As ESRI.ArcGIS.Editor.IEditor) Implements ESRI.ArcGIS.Editor.IObjectInspector.Inspect
    SetParent(Me.m_inspector.HWND, Me.standardTabPage.Handle.ToInt32)
    SetParent(Me.standardTabPage.Handle.ToInt32, Me.pictureBoxDefault.Handle.ToInt32)

    ShowWindow(Me.m_inspector.HWND, SW_SHOW)

    Me.m_inspector.Inspect(objects, Editor)

    'The user has selected the feature class name so exit. 
    If objects.Count > 1 Then Exit Sub

    Dim row As IRow = objects.Next
    Dim feature As IFeature = row

    'Custom inspector values set to populate the list box. 
    'depending on geometry of the feature. 
    Select Case feature.Shape.GeometryType
      Case esriGeometryType.esriGeometryPolygon
        'Do this for Polygons
        listBoxInspector.Items.Clear()
        ReportPolygons(feature)


      Case esriGeometryType.esriGeometryPolyline
        'Do this for polylines
        listBoxInspector.Items.Clear()
        ReportPolylines(feature)

      Case esriGeometryType.esriGeometryPoint
        'Do this for points
        listBoxInspector.Items.Clear()
        ReportPoints(feature)

    End Select
  End Sub
  ''' <summary>
  ''' Initializes the extension, passing in a reference to it's class helper. 
  ''' </summary>
  ''' <param name="pClassHelper"></param>
  ''' <param name="pExtensionProperties"></param>
  Public Sub Init(ByVal pClassHelper As ESRI.ArcGIS.Geodatabase.IClassHelper, ByVal pExtensionProperties As ESRI.ArcGIS.esriSystem.IPropertySet) Implements ESRI.ArcGIS.Geodatabase.IClassExtension.Init
    m_classHelper = pClassHelper.Class

  End Sub
  ''' <summary>
  ''' Informs the extension that it's class helper is going away.
  ''' </summary>
  Public Sub Shutdown() Implements ESRI.ArcGIS.Geodatabase.IClassExtension.Shutdown
    m_inspector = Nothing
  End Sub
  ''' <summary>
  ''' Reports area, perimeter and number of vertices of the polygon. 
  ''' </summary>
  ''' <param name="feature"></param>

  Private Sub ReportPolygons(ByVal feature As IFeature)
    Try
      Dim shpPolygon As IPolygon = feature.Shape
      Dim polyArea As IArea = shpPolygon
      Dim polyCurve As ICurve = shpPolygon
      Dim polyPoints As IPointCollection
      Dim fid As String = "FID:          "
      ' Stop the ListBox from drawing while items are added.
      listBoxInspector.BeginUpdate()
      listBoxInspector.ItemHeight = listBoxInspector.Font.Height * 2
      listBoxInspector.Items.Add(m_otitle)
      listBoxInspector.Items.Add("")
      listBoxInspector.Items.Add(fid.PadRight(22) & feature.OID)

      'Report Area First
      listBoxInspector.Items.Add("Area:                  " & CStr(polyArea.Area))

      'Then Perimeter
      polyCurve = shpPolygon
      listBoxInspector.Items.Add("Perimeter:           " & CStr(polyCurve.Length))

      'Number of vertices
      polyPoints = shpPolygon
      listBoxInspector.Items.Add("Vertices:              " & CStr(polyPoints.PointCount))

      Dim width As Integer = CInt(listBoxInspector.CreateGraphics().MeasureString(listBoxInspector.Items(listBoxInspector.Items.Count - 1).ToString(), listBoxInspector.Font).Width)
      ' Set the column width based on the width of each item in the list.
      listBoxInspector.ColumnWidth = width
      ' End the update process and force a repaint of the ListBox.
      listBoxInspector.EndUpdate()

    Catch ex As Exception
      MessageBox.Show("ReportPolygons:     " & ex.Message)
    End Try
  End Sub
  ''' <summary>
  ''' Reports length, FromPoint-x, FromPoint-y, ToPoint -x, ToPoint -y,  
  ''' </summary>
  ''' <param name="feature"></param>
  Private Sub ReportPolylines(ByVal feature As IFeature)
    Try
      Dim lCurve As ICurve

      lCurve = feature.Shape
      ' Stop the ListBox from drawing while items are added.
      listBoxInspector.BeginUpdate()
      listBoxInspector.Items.Add(m_otitle)
      listBoxInspector.Items.Add("")
      Dim fid As String = "FID:          "
      listBoxInspector.Items.Add(fid.PadRight(22) & feature.OID)

      'Report Length First
      listBoxInspector.Items.Add("LENGTH:             " & CStr(lCurve.Length))

      'Report Start Point next
      listBoxInspector.Items.Add("FROMPOINT-X:      " & CStr(lCurve.FromPoint.X))

      'Report End Point 
      listBoxInspector.Items.Add("FROMPOINT-Y:      " & CStr(lCurve.FromPoint.Y))

      'Report End Point last
      listBoxInspector.Items.Add("TOPOINT-X:          " & CStr(lCurve.ToPoint.X))

      listBoxInspector.Items.Add("TOPOINT-Y:          " & CStr(lCurve.ToPoint.Y))
      Dim width As Integer = CInt(listBoxInspector.CreateGraphics().MeasureString(listBoxInspector.Items(listBoxInspector.Items.Count - 1).ToString(), _
                 listBoxInspector.Font).Width)
      ' Set the column width based on the width of each item in the list.
      listBoxInspector.ColumnWidth = width
      ' End the update process and force a repaint of the ListBox.
      listBoxInspector.EndUpdate()

    Catch ex As Exception
      MessageBox.Show("ReportPolylines: " & ex.Message)
    End Try
  End Sub
  ''' <summary>
  ''' Reports the coordinates of the point feature. 
  ''' </summary>
  ''' <param name="feature"></param>
  Private Sub ReportPoints(ByVal feature As IFeature)
    Try
      Dim shpPt As IPoint = feature.Shape

      ' Stop the ListBox from drawing while items are added.
      listBoxInspector.BeginUpdate()
      listBoxInspector.Items.Add(m_otitle)
      listBoxInspector.Items.Add("")
      Dim fid As String = "FID:          "
      listBoxInspector.Items.Add(fid.PadRight(22) & feature.OID)

      'Report X and Y coordinate locations
      listBoxInspector.Items.Add("X-COORD:     " & (shpPt.X))
      listBoxInspector.Items.Add("Y-COORD:     " & (shpPt.Y))
      Dim width As Integer = CInt(listBoxInspector.CreateGraphics().MeasureString(listBoxInspector.Items(listBoxInspector.Items.Count - 1).ToString(), _
            listBoxInspector.Font).Width)
      ' Set the column width based on the width of each item in the list.
      listBoxInspector.ColumnWidth = width
      ' End the update process and force a repaint of the ListBox.
      listBoxInspector.EndUpdate()

    Catch ex As Exception
      MessageBox.Show("ReportPoints: " & ex.Message)
    End Try
  End Sub

  Private Sub InitializeComponent()
    Me.inspectorTabControl = New System.Windows.Forms.TabControl
    Me.standardTabPage = New System.Windows.Forms.TabPage
    Me.pictureBoxDefault = New System.Windows.Forms.PictureBox
    Me.customTabPage = New System.Windows.Forms.TabPage
    Me.listBoxInspector = New System.Windows.Forms.ListBox
    Me.inspectorTabControl.SuspendLayout()
    Me.standardTabPage.SuspendLayout()
    CType(Me.pictureBoxDefault, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.customTabPage.SuspendLayout()
    Me.SuspendLayout()
    '
    'inspectorTabControl
    '
    Me.inspectorTabControl.Controls.Add(Me.standardTabPage)
    Me.inspectorTabControl.Controls.Add(Me.customTabPage)
    Me.inspectorTabControl.Location = New System.Drawing.Point(3, 3)
    Me.inspectorTabControl.Name = "inspectorTabControl"
    Me.inspectorTabControl.SelectedIndex = 0
    Me.inspectorTabControl.Size = New System.Drawing.Size(326, 321)
    Me.inspectorTabControl.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
    Me.inspectorTabControl.TabIndex = 3
    '
    'standardTabPage
    '
    Me.standardTabPage.Controls.Add(Me.pictureBoxDefault)
    Me.standardTabPage.Location = New System.Drawing.Point(4, 22)
    Me.standardTabPage.Name = "standardTabPage"
    Me.standardTabPage.Padding = New System.Windows.Forms.Padding(3)
    Me.standardTabPage.Size = New System.Drawing.Size(318, 295)
    Me.standardTabPage.TabIndex = 0
    Me.standardTabPage.Text = "Standard"
    Me.standardTabPage.UseVisualStyleBackColor = True
    '
    'pictureBoxDefault
    '
    Me.pictureBoxDefault.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    Me.pictureBoxDefault.Location = New System.Drawing.Point(3, 3)
    Me.pictureBoxDefault.Name = "pictureBoxDefault"
    Me.pictureBoxDefault.Size = New System.Drawing.Size(309, 292)
    Me.pictureBoxDefault.TabIndex = 0
    Me.pictureBoxDefault.TabStop = False
    '
    'customTabPage
    '
    Me.customTabPage.Controls.Add(Me.listBoxInspector)
    Me.customTabPage.Location = New System.Drawing.Point(4, 22)
    Me.customTabPage.Name = "customTabPage"
    Me.customTabPage.Padding = New System.Windows.Forms.Padding(3)
    Me.customTabPage.Size = New System.Drawing.Size(318, 295)
    Me.customTabPage.TabIndex = 1
    Me.customTabPage.Text = "Custom"
    Me.customTabPage.UseVisualStyleBackColor = True
    '
    'listBoxInspector
    '
    Me.listBoxInspector.Anchor = System.Windows.Forms.AnchorStyles.None
    Me.listBoxInspector.Location = New System.Drawing.Point(4, 6)
    Me.listBoxInspector.MultiColumn = True
    Me.listBoxInspector.Name = "listBoxInspector"
    Me.listBoxInspector.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
    Me.listBoxInspector.Size = New System.Drawing.Size(308, 264)
    Me.listBoxInspector.TabIndex = 3
    '
    'ObjectInspector
    '
    Me.Controls.Add(Me.inspectorTabControl)
    Me.Name = "ObjectInspector"
    Me.Size = New System.Drawing.Size(340, 330)
    Me.inspectorTabControl.ResumeLayout(False)
    Me.standardTabPage.ResumeLayout(False)
    CType(Me.pictureBoxDefault, System.ComponentModel.ISupportInitialize).EndInit()
    Me.customTabPage.ResumeLayout(False)
    Me.ResumeLayout(False)

  End Sub

  Private Sub ObjectInspector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  End Sub
End Class