- 博客(6)
- 资源 (2)
- 收藏
- 关注
原创 应用ISaveAs接口进行栅格格式内部转换代码
Dim pWsf As IWorkspaceFactory Set pWsf = New RasterWorkspaceFactory Dim pRasterWs As IRasterWorkspace Set pRasterWs = pWsf.OpenFromFile("d:/AE/testData", 0) Dim pRasterDs As IR
2007-08-03 17:25:00 973
原创 coverage转shapefile代码
Dim sInPath, sCoverageName, sOutPath, sShapefileName As StringsInPath = "d:/AE/testData"sCoverageName = "cover1:polygon"sOutPath = "d:/AE/testData"sShapefileName = "zhuan"Dim pPropertySet As IProperty
2007-08-03 17:23:00 1049
原创 打开shapefile格式文件代码
Dim pShpWksFact As IWorkspaceFactory Set pShpWksFact = New ShapefileWorkspaceFactory Dim pFeatWks As IFeatureWorkspace Set pFeatWks = pShpWksFact.OpenFromFile(filePath, 0
2007-08-03 17:21:00 880
原创 打开栅格数据代码
Dim pWsFact As IWorkspaceFactory Set pWsFact = New RasterWorkspaceFactory Dim pWs As IRasterWorkspace Set pWs = pWsFact.OpenFromFile(filePath, 0) Dim pRasterDataset
2007-08-03 17:18:00 673
原创 加载coverage文件代码
Dim pPropset As IPropertySet Set pPropset = New PropertySet pPropset.SetProperty "DATABASE", filePath 使用ArcInfoWorkspaceFactory类实现IWorkSpaceFactory接口对象
2007-08-03 17:14:00 627
原创 使一个子窗体总在最上
可采用Windows的API函数进行解决 在想要放在最上层的窗体顶部放置以下代码:Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, By
2007-08-01 17:59:00 612
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人