Select from Selected

Question

I have written a basic feature classs editor that loops through selected features editing attributes one at a time. I was hoping to highlight the current feature from the selected features. A simple process to do by hand. I already set properties and show the attribute table via ITableSelectionColor ITableProperty ITableProperties and ITableWindow. Does anyone know a method to highlight a feature in an attribute table of seleted features?

GregRieck · Answer

Hi, This is what I was able to get working in my solution for selecting a row and changing the color. You need to add the stdole DLL to your project references.

Then after your "pTabWin.Show True" add the following code. Basically the window needs to be shown before you can select from it and change the color. In this example I've hard code the OID parameter, i.e. 3.

ITableWindow3 tw3 = tw3.ActiveTableWindow as ITableWindow3;
        ITableControl3 tc3 = tw3.TableControl as ITableControl3;
        if (tc3 != null)
          tc3.SetCurrentRow(true, 3);
        IRgbColor rgbcolor = new RgbColorClass();
        rgbcolor.Red = 255;
        rgbcolor.Green = 255;
        rgbcolor.Blue = 0;
        IColor color = rgbcolor as IColor;
        tc3.SetCellFont(3, "", color, null, null);

Greg

GregRieck · Answer

Hi,

Did you ever figure this out?

Greg

ColinBird · Answer

'Some code to illustrate

Public Sub FlashIt()
  Dim pDoc As IMxDocument
  Dim pLayer As IFeatureLayer
  Dim pFeat As IFeature
  Dim pFeatureSeln As IFeatureSelection
  Dim pSelectionSet As ISelectionSet
  Dim pCursor As IFeatureCursor
  Dim aa As Integer
  
  Set pDoc = ThisDocument
  Set pLayer = pDoc.FocusMap.Layer(0)
  Set pFeatureSeln = pLayer
  
  ShowTable pLayer
  
  Set pSelectionSet = pFeatureSeln.SelectionSet
  pSelectionSet.Search Nothing, True, pCursor
  Set pFeat = pCursor.NextFeature
  aa = 0
  Do Until pFeat Is Nothing
    aa = aa + 1
    If (aa = 4) Then
      FlashFeature pFeat
      ' Highlight pFeat Rather than flash this feature I would like to highlight it in the
    End If
    Set pFeat = pCursor.NextFeature
  Loop
End Sub
Private Sub ShowTable(pLayer As ILayer)
  Dim pTabWin As ITableWindow
  Set pTabWin = New TableWindow
  Set pTabWin.FeatureLayer = pLayer
  Set pTabWin.Application = Application
  pTabWin.ShowSelected = True
  pTabWin.TableSelectionAction = esriNoAction
  pTabWin.Show True
End Sub
Private Sub FlashFeature(pFeature As IFeature)
  Dim pMxApp As IMxApplication
  Dim pIdObj As IIdentifyObj
  Dim pFeatIdObj As IFeatureIdentifyObj
  
  Set pMxApp = Application
  Set pFeatIdObj = New FeatureIdentifyObject
  pFeatIdObj.Feature = pFeature
  Set pIdObj = pFeatIdObj
  pIdObj.Flash pMxApp.Display
End Sub