VBA - field names from GxFile/GxObject

LornaMurison

Hi, I am trying to populate a combobox with the field names of a polygon feature class selected by the user from a GxDialog.

Here is the code so far, I can't figure out how to get from GxObject to the field names.

Thanks

Private Sub btnCatch_Click()

'Allow the user to select the catchments feature class
Dim pGxDialog As IGxDialog
Set pGxDialog = New GxDialog

pGxDialog.Title = "Select Catchments Feature Class"
pGxDialog.ButtonCaption = "Select"
pGxDialog.AllowMultiSelect = False
pGxDialog.StartingLocation = "Catalog"

Dim pGxFilter As IGxObjectFilter
Set pGxFilter = New GxFilterPolygonFeatureClasses
Set pGxDialog.ObjectFilter = pGxFilter

Dim pLayerFiles As IEnumGxObject

pGxDialog.DoModalOpen 0, pLayerFiles

Dim pLayerFile As IGxObject
Set pLayerFile = pLayerFiles.Next


'Display the name of the selected feature class in the text box
txtboxSelectedFC.Text = pLayerFile.Name

'Populate combobox with the field names from that feature class
Dim pGxFile As IGxFile
Set pGxFile = New GxFile
pGxFile.Path = pLayerFile.FullName

Dim pGxLayer As IGxLayer




End Sub

kenbuja

This should work

    Dim pGxDialog As IGxDialog
    Set pGxDialog = New GxDialog
    
    pGxDialog.Title = "Select Catchments Feature Class"
    pGxDialog.ButtonCaption = "Select"
    pGxDialog.AllowMultiSelect = False
    pGxDialog.StartingLocation = "Catalog"
    
    Dim pGxFilter As IGxObjectFilter
    Set pGxFilter = New GxFilterPolygonFeatureClasses
    Set pGxDialog.ObjectFilter = pGxFilter
    
    Dim pLayerFiles As IEnumGxObject
    
    pGxDialog.DoModalOpen 0, pLayerFiles

    Dim pLayerFile As IGxObject
    Set pLayerFile = pLayerFiles.Next

    Dim pFLayer As IFeatureLayer
    Set pFLayer = New FeatureLayer
    Set pFLayer.FeatureClass = pLayerFile.InternalObjectName.Open
    
    Dim pFields As IFields
    Set pFields = pFLayer.FeatureClass.Fields
    
    Dim i As Integer
    For i = 0 To pFields.FieldCount - 1
        ComboBox1.AddItem pFields.Field(i).Name
    Next