基于VB的AO开发.pptVIP

第四章 基于VB的AO开发(入门篇) 12、添加ZoomIn(放大)功能 在OnMouseDown程序中添加如下代码： 第四章 基于VB的AO开发(入门篇) 运行程序以后，用鼠标点击图形，然后拉动一个矩形，释放鼠标。 图层将放大显示。 第四章 基于VB的AO开发(入门篇) 13、添加Pan（漫游）功能 修改前面的OnMouseDown程序，如果点击左键，则执行放大操作，如果点击右键，则执行移动操作。代码如下： 运行程序，执行相关的放大和漫游操作。 第四章 基于VB的AO开发(入门篇) 14、添加移动到全范围(Zoom to Full Extent)的功能 （1）在VB的窗体上添加一个命令按钮(CommandButton)。修改命令按钮的Caption属性为”Full Extent” （2）双击Full Extent命令按钮，添加代码。 Private Sub Command1_Click() MapControl1.Extent = MapControl1.FullExtent End Sub （3）点击MapControl控件，修改ShowScrollbars属性为False。 （4）运行程序，测试成果。 第四章 基于VB的AO开发(入门篇) 15、创建Find（寻找）工具 给定一个州的名字，找到该州，并放大显示。 例子数据位于：\\arcgis\arcexe83\\ArcObjects Developer Kit\Samples\Data\Usa 操作如下： (1)使用属性页添加图层states.shp和ushigh.shp。 （2）添加一个Label按钮，并修改其Caption属性为：“State”。 （3）添加一个TextBox按钮，并清除其text属性。 （4）双击TextBox按钮，进入代码编写环境。 （5）选择KeyPress事件，然后添加如下代码。 第四章 基于VB的AO开发(入门篇) Private Sub Text1_KeyPress(KeyAscii As Integer) if the return key has been pressed If KeyAscii = vbKeyReturn Then Dim i As Integer Dim pFeatureLayer As IFeatureLayer Loop through the MapControl layers to find the States layer For i = 0 To MapControl1.LayerCount - 1 Set pFeatureLayer = MapControl1.Layer(i) If pFeatureLayer.Name = States Then Exit For End If Next i 第四章 基于VB的AO开发(入门篇) Create a query string Dim sQuery As String sQuery = STATE_NAME = Text1.Text Create the query filter Dim pQueryFilter As IQueryFilter Set pQueryFilter = New QueryFilter pQueryFilter.WhereClause = sQuery Query interface for IFeatureSelection and perform selection Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFeatureLayer pFeatureSelection.SelectFeatures pQueryFilter, esriSelectionResultNew, True Get the selection set Dim pSelectionSet As ISelectionSet 第四章 基于VB的AO开发(入门篇) Set pSelectionSet = pFeatureSelection.SelectionSet Get the feature cursor Dim pFeatureCursor As IFeatureCursor pSelectionSet.Search Nothing, True, pF