您的位置:首页 > Web前端

get featureclass by IGxDialog

2009-06-19 12:21 120 查看
通過打開對話框直接獲取所選擇文件的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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: