【正文】
TIN 處理 、報(bào)表輸出 本模塊主要用于生成并打印各種表格 ,相關(guān)信息,數(shù)據(jù)匯總統(tǒng)計(jì)以及各種專題圖。通過調(diào)用 MAPGIS 組件的基本功能 ,并結(jié)合其他專業(yè)模型和專業(yè)模型分析控件 ,可以快速地開發(fā) GIS應(yīng)用程序 ,這 就大大降低了 GIS應(yīng)用系統(tǒng)的開發(fā)難度與開發(fā)成本。(2)將使用到的 MAPGIS 組件引用到應(yīng)用程序中 。(4)開發(fā)應(yīng)用系統(tǒng)專用的功能。通用 功能組件基于數(shù)據(jù)管理組件構(gòu)造而成,它們具有面向通用 GIS 功能;圖形顯示對(duì)象 MAPGISDC 封裝了 MAPGIS 的基本顯示操作;圖層對(duì)象 Layer 封裝了點(diǎn)、線、區(qū)、網(wǎng)文件的數(shù)據(jù)管理功能;地圖對(duì)象 Map 封裝了對(duì)MAPGIS 基本圖形的編輯 /輸出操作和對(duì)多個(gè)圖層的管理功能;圖例對(duì)象 Legend 封裝了點(diǎn)、線、區(qū)圖例元素的管理和操作功能,并提供了管理圖例文件存儲(chǔ)和圖例元素的功能; MSI 對(duì)象封裝了對(duì)圖像工作區(qū)的操作和顯示,并提供了矢量數(shù)據(jù)和柵格數(shù)據(jù)的相互轉(zhuǎn)換功能; DBS 對(duì)象封裝了操作和顯示圖庫(kù)工作區(qū)的方法。 首先將需要的組件和控件在 WINDOWS 注冊(cè)表或 REGSUV 命令進(jìn)行注冊(cè),這樣就可以像使用普通 VB 的 ACTIVE X 控件一樣使用 MAPGIS 控件了。 Public Function loadfile(ByVal aiType As Enum_Area_Type) Dim pntai As PntArea Dim linai As LinArea Dim regai As RegArea Dim myform As New frmDocument loadfile = 0 Select Case aiType 8 Case gisPNT: Set pntai = New PntArea If Then loadfile = 1 = gisPNT Set = pntai = pntai , , , End If Case gisLIN: Set linai = New LinArea If Then loadfile = 1 = gisLIN Set = linai = linai , , , End If Case gisREG Set regai = New RegArea If Then loadfile = 1 = gisREG Set = regai = regai , , , End If Case Else End Select If loadfile Then = False Else Set myform = Nothing End If Set pntai = Nothing Set linai = Nothing Set regai = Nothing End Function 9 SQL 過程 Private Sub sql_Click() Dim objQuery As New Dim regnum As Long Dim objIDList As New IDList = linai Set objIDList = (gisREG_ENTITY) If Not objIDList Is Nothing Then For regnum = 0 To 1 linai, objIDList(regnum), gisREG_ENTITY objIDList(regnum) objIDList(regnum) Next regnum End If Set objIDList = Nothing End Sub 三維模塊 Dim iTinLayer As New Dim iTinArea As Dim iLin As New LinArea Dim iPnt As New PntArea Dim demInfo As New DemInfoStru Public DspMyDraw As Integer Dim res As Boolean Private Sub about_Click() MsgBox 版本 amp。 . amp。 . amp。 作者 左海龍 End Su