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
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
-----------------------------------------------------------
佛对我说:你心里有尘。我用力的拭擦。