gis開發(fā)和應用ppt課件-資料下載頁
2025-04-14 00:30本頁面
【正文】 a = End Sub 設置 TOCControl,ToolBarControl和 PageLayoutControl的聯(lián)系 Private Sub Form_Load() 39。在 Pagelayout中檢查和加載地圖文檔 Dim sFileName As String sFileName = \Data\“ If (sFileName) Then sFileName End If ‘設置聯(lián)系 PageLayoutControl1 PageLayoutControl1 End Sub 在 ToolBarControl中添加工具 Dim sProgID As String ‘添加 PageLayout中的瀏覽工具 sProgID = sProgID, , , True, , esriCommandStyleIconOnly sProgID = sProgID, , , False, , esriCommandStyleIconOnly sProgID = sProgID, , , False, , esriCommandStyleIconOnly ‘添加 Map瀏覽工具 sProgID = sProgID, , , True, , esriCommandStyleIconOnly sProgID = sProgID, , , False, , esriCommandStyleIconOnly sProgID = sProgID, , , False, , esriCommandStyleIconOnly 為 PageLayout創(chuàng)建彈出式菜單 IToolbarMenu指的是什么？ 菜單定義 Option Explicit Private m_pToolbarMenu As IToolbarMenu ‘菜單定義 Private Sub Form_Load() ‘創(chuàng)建新的菜單 Set m_pToolbarMenu = New ToolbarMenu ‘在菜單中添加命令 sProgID, , , False, esriCommandStyleIconAndText sProgID = sProgID, , , False, esriCommandStyleIconAndText sProgID = sProgID, , , False, esriCommandStyleIconAndText sProgID = sProgID, , , True, esriCommandStyleIconAndText sProgID = sProgID, , , False, esriCommandStyleIconAndText ‘把此菜單與 PageLayoutControl掛鉤 PageLayoutControl1 End Sub Private Sub PageLayoutControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long,ByVal y As Long, ByVal pageX As Double, ByVal pageY As Double) ‘右鍵彈出菜單 If button = vbRightButton Then x,y, End If End Sub 使在 TOCControl中的標注可編輯 = esriTOCControlManual 在 MapControl上畫圖形 Private Sub MapControl1_OnAfterDraw(ByVal display As Variant, ByVal viewDrawPhase As Long) Dim pViewDrawPhase As esriViewDrawPhase pViewDrawPhase = viewDrawPhase If pViewDrawPhase = esriViewForeground Then ‘刷新前景的時候畫 m_pEnvelope, m_pFillSymbol End If End Sub 創(chuàng)建一個自定義的工具 創(chuàng)建一個 ActiveX Dll的工程 添加相關的引用 實現(xiàn)兩個接口 ICommand和 ITool 編譯注冊 添加到對應的 ToolBarControl中 自定義 ToolBarControl 自定義 ToolBarControl就意味著可以定制 工具條 分發(fā) Private Sub Form_Load() 39。Create a new AoInitialize object Set m_pAoInitialize = New AoInitialize If m_pAoInitialize Is Nothing Then MsgBox Unable to initialize. This application cannot run! Unload Form1 Exit Sub End If 39。Determine if the product is available If (esriLicenseProductCodeEngine) = esriLicenseAvailable Then If (esriLicenseProductCodeEngine) esriLicenseCheckedOut Then MsgBox The initialization failed. This application cannot run! Unload Form1 Exit Sub End If Else MsgBox The ArcGIS Engine product is unavailable. This application cannot run! Unload Form1 Exit Sub End If End Sub 分析和設計方法 信息描述法 結構化設計方法 面向對象的設計方法 原型化設計方法 驗證軟件需求 從哪些方面驗證軟件需求的正確性 一致性 所有需求必須是致的，任何一條需求不能和其他需求互相矛盾。 完整性 需求必須是完整的，規(guī)格說明書應該包括用戶需要的每一個功能或性能。 現(xiàn)實性 指定的需求應該是用現(xiàn)有的硬件技術和軟件技術基本上可以實現(xiàn)的。 有效性 必須證明需求是正確有效的，確實能解決用戶面對的問題。
環(huán)評公示相關推薦
鄂ICP備17016276號-1