get featureclass by IGxDialog

通過打開對話框直接獲取所選擇文件的featureclass.

    Dim pGxdialog As IGxDialog
    Set pGxdialog = New GxDialog
    
    pGxdialog.AllowMultiSelect = False
    pGxdialog.Title = "Select polygon shapefile"
    
    Dim pGxfilter As IGxObjectFilter
    Set pGxfilter = New GxFilterShapefiles
    Set pGxdialog.ObjectFilter = pGxfilter
    
    Dim pGxobjects As IEnumGxObject
    Dim pGxDataset As IGxDataset
    
        
    If pGxdialog.DoModalOpen(0, pGxobjects) = False Then
        getPolygonFile = ""
        Exit Function
    End If
  
  
    pGxobjects.Reset
         
    Set pGxDataset = pGxobjects.Next

    Dim pFeatureClass as IFeatureClass
    Set pFeatureClass =pGxDataset