【正文】 TextSymbol 對象設(shè)置字體和其他一些文字顯示方式。 主 要屬性如下： ? Color 屬性（ OLE_COLOR 類型）：設(shè)置文本的顯示顏色。 ? Fitted 屬性（ Boolean 類型）：設(shè)置文字是否依附于兩點之間的直線。 ? Font 屬性（ StdFont 類型）：返回 Visual Basic 標(biāo)準(zhǔn)字體對象的引用。 ? Height 屬性（ Double 類型）：設(shè)置字體高度。 ? HorizontalAlignment 屬性（ AlignmentConstants 類型）：設(shè)置文字水平對齊方式為左對齊（ moAlignLeft）、居中對齊（ moAlignCenter）或右對齊（ moAlignRight） 。 ? Rotation 屬性（ Double 類型）：設(shè)置文字的旋轉(zhuǎn)角度。 ? VerticalAlignment 屬性（ AlignmentConstants 類型）：設(shè)置文字垂直對齊方式為頂對齊（ moAlignTop）、居中對齊（ moAlignCenter）或底對齊（ moAlignBotton）。 通過設(shè)置 TextSymgol 對象中的屬性，可產(chǎn)生兩種文本 ： 依賴于比例尺的文本，即當(dāng)放大，文本大小增加；另一種是不依賴于比例尺的文本，即文本在屏幕上保持大小不變。要得到依賴比例尺的文本，應(yīng)該將 Height 屬性設(shè)置為非 0 值， Height 屬性值用地圖單位。要得到不依賴比例尺的文本，應(yīng)該將 Heigth 屬性設(shè)置為 0（默認(rèn)值）。 4 演示程序 下面這個例子描述了如何利用 ChartRenderer 對象的屬性和方法來繪制餅圖和柱狀圖，便于反應(yīng)出多個地理特征在某個屬性上的對比狀況。 為了在 VB 中實現(xiàn)這個例子，新建工程，在窗體 form1 中加入一個地圖控件 map control、 —frame 控件和 — ListBox 控件。在 frame1 中加入兩個 optionbutton 控件。在地圖控件中加入美國州圖層 ，將 list1 控件的 屬性設(shè)置為 2，以便進行多選。 可分別修改 option option frame 的 caption 屬性，依次設(shè)置為餅圖、柱狀圖、類型。再在 List1 上添加 Label 標(biāo)注， caption 屬性為 ” 字段名稱 ” 。 設(shè)置完成后，界面如下圖所示： 24 圖 21 應(yīng)用程序設(shè)計界面 切換到代碼編輯窗口，加入如下顯示的代碼： Option Explicit Dim cr As New Private Sub Form_Load() Dim recset As New Dim fld As Set (states).Renderer = cr Set recset = (states).Records For Each fld In If 0 And 8 Then End If Next fld End Sub Private Sub list1_click() End Sub 25 Private Sub Map1_BeforeLayerDraw(ByVal index As Integer, ByVal hDC As ) Dim i As Integer, ctr As Integer If = True Or = True Then Select Case 39。heights, widths, and sizes are somewhat arbitrary Case moBar = * = * Case moPie = * = * End Select If 0 Then For i = 0 To 1 If (i) = True Then ctr = ctr + 1 With cr .FieldCount = ctr .Field(ctr 1) = (i) .Color(ctr 1) = QBColor(ctr + 1) End With End If Next i End If End If End Sub Private Sub Option1_Click() If = True Then = moPie End If End Sub Private Sub Option2_Click() If = True Then 26 = moBar End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then = Else End If End Sub 運行，在字段中選中 white 和 black，得到的圖表反映了美國各州白人和黑人的分布對比狀況，柱狀圖和餅圖分別如下圖顯示： 圖 22 運行界面（ 1） 27 圖 23 運行界面（ 2） 結(jié)論 本 論 文介紹了如何使用 MapObjects 在 VB 平臺上制 作專題地圖，詳盡地介紹了 負(fù)責(zé)這一功能的相關(guān)對象的屬性和方法，并用代碼展示了一些對象的屬性和方法的使用，從而使專題地圖的制作過程清晰明了。通過理論和實踐相結(jié)合地討論，本論文嘗試使初級開發(fā)人員使用MapObjects 制作專題地圖的工作變得更明晰，更易于操作。 28 參考文獻： [1] 劉光 .地理信息系統(tǒng)二次開發(fā)教程 — 組件篇 .北京：清華大學(xué)出版社 .2021. [2] 王占全，趙斯思，徐慧 .地理信息系統(tǒng)（ GIS）開發(fā)工程案例精選 .北京：人民郵電出版社 .. [3] 李滿春等 .GIS 設(shè)計與實現(xiàn) .北京：科學(xué)出版社 .2021. [4] 薛偉 .MapObjects— 地理信息系統(tǒng)程序設(shè)計 [M].北京：國防工業(yè)出版社， 2021. [5] 余英梁剛 .Visual C++實踐與提高－ COM 和 COM＋篇 .北京：中國鐵道出版社 .2021. [6] 郝平 ,李瑞麟 ,應(yīng)時彥 ,陳國華 .組件式地理信息系統(tǒng)技術(shù) .浙江：浙江工業(yè)大學(xué)學(xué)報 .. [7] 胡鵬等 .地理信息系統(tǒng)教程 [M].武漢：武漢大學(xué)出版社， 2021. [8] J Sametinger. Software engineering with reusable ponents. Berlin:. [9] Jan and ponentbased software engineering. Berlin:. [10] Stephen R Schach. Classial and objectoriented software engineering with UML and C++.北京：世界圖書出版公司 .1999. [11] Bernd Bruegge,Allen H Dutoit. Objectoriented software engineering. Ypper Saddle River, NJ: Prentice Hall. 2021. 29 項 目 經(jīng) 理項 目 副 經(jīng) 理 項 目 總 工 質(zhì) 安 總 監(jiān)工程管理部物資管理部技術(shù)管理部檢測試驗室質(zhì)安管理部監(jiān) 督 工 程 管 理部 、 物 資 管 理部 、 檢 測 試 驗 室現(xiàn) 場 質(zhì) 檢 員 、 施 工 員施 工 班 組 3N7N承 承 承 承 承 承 承承 承3S7S承 承 承 承 承 承承 承 承3N7N承 承 承 承 承 承 承承 承 承 承3S7S承 承 承 承 承 承承 承 承 承 承3N7N承 承 承 承 承 承 承承 承3S7S承 承 承 承 承 承承 承 承3N7N承 承 承 承 承 承 3S7S承 承 承 承 承 承3N7N承 承 承 承 承 承 承承 承 承 承3S7S承 承 承 承 承 承承 承 承 承 承3N7N承 承 承 承 承 承 承承 承 承3S7S承 承 承 承 承 承承 承 承 承3N7N承 3S7S承 承 承承 承 承3N7N承 承 承 承 承 承 3S7S承 承 承 承 承 承e39。 d39。A（萬kWh）shg1Pshg1PshfPb b39。tjA shfP39。ae39。cdPq 9JWKf wvGt YM*Jgamp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 QA9wkxFyeQ^! djsXuyUP2kNXpRWXm Aamp。 UE9aQ@Gn8xp$Ramp。849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。ksv*3t nGK8!z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQc@UE% amp。 qYp@Eh5pDx2zVkum amp。gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。MuWFA5ux^Gj qv^$UE9wEwZQc@UE% amp。 qYp@Eh5pDx2zVkum amp。gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3tnGK8! z89Am UE9aQ@Gn8xp$Ramp。 849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3tnGK8! z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5ux^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQc@UE% amp。 qYp@Eh5pDx2zVkum amp。gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z8vGt YM*Jgamp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 QA9wkxFyeQ^! dj sXuyUP2kNXpRWXm Aamp。 UE9aQ@Gn8xp$Ramp。849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRrWwc^vR9CpbK!zn% Mz849Gx^G89Am UE9aQ@Gn8xp$Ramp。849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm6X4NGpP$vSTTamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRrWwc^vR9CpbK! zn% Mz849Gx^Gjqv^$UE9wEwZQ