工具条

开发平台：
Visual Basic

Form1.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{C552EA90-6FBB-11D5-A9C1-00104BB6FC1C}#1.0#0"; "MapControl.ocx"
Begin VB.Form Form1 
   Caption         =   "使用ITool接口示例"
   ClientHeight    =   5820
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8475
   LinkTopic       =   "Form1"
   ScaleHeight     =   5820
   ScaleWidth      =   8475
   StartUpPosition =   3  '窗口缺省
   Begin esriMapControl.MapControl MapControl1 
      Height          =   5295
      Left            =   120
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   1
      Top             =   480
      Width           =   8295
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8475
      _ExtentX        =   14949
      _ExtentY        =   767
      ButtonWidth     =   635
      ButtonHeight    =   609
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "放大"
            Object.Tag             =   "ZoomIn"
            ImageIndex      =   2
            Style           =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "缩小"
            Object.Tag             =   "ZoomOut"
            ImageIndex      =   3
            Style           =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "漫游"
            Object.Tag             =   "Pan"
            ImageIndex      =   4
            Style           =   2
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "全屏"
            Object.Tag             =   "FullScreen"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "恢复操作"
            Object.Tag             =   "Default"
            ImageIndex      =   5
         EndProperty
      EndProperty
      MouseIcon       =   "Form1.frx":06E8
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   5400
      Top             =   1080
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   17
      ImageHeight     =   17
      MaskColor       =   8454143
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":084A
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":0DF0
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1396
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":193C
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Form1.frx":1EE2
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Cmd As ICommand
Private Sub Form_Load()
  Dim i As IAoInitialize
  Set i = New AoInitialize
  i.Initialize (esriLicenseProductCodeEngine)
   Me.MapControl1.AddShapeFile "D:代码整理dataShapefile", "分市州"
   Me.MapControl1.AddShapeFile "D:代码整理dataShapefile", "县界"
   Me.MapControl1.AddShapeFile "D:代码整理dataShapefile", "地级市人民政府驻地"
  
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case CStr(Button.Tag)
       Case "ZoomIn"
            '用自定义类clsZoomIn实现拉框放大
            Set Cmd = New clsZoomIn               '新建clsZoomIn的实例
            Cmd.OnCreate Me.MapControl1           '初始化该对象
            Set Me.MapControl1.CurrentTool = Cmd  '把该对象附给MapControl1
             
       Case "ZoomOut"
             '用自定义类clsZoomOut实现拉框缩小
             Set Cmd = New clsZoomOut             '新建clsZoomOut的实例
             Cmd.OnCreate Me.MapControl1          '初始化该对象
             Set Me.MapControl1.CurrentTool = Cmd '把该对象附给MapControl1
            
       Case "Pan"
            '用自定义类clsPan实现漫游
            Set Cmd = New clsPan                  '新建clsPan的实例
            Cmd.OnCreate Me.MapControl1           '初始化该对象
            Set Me.MapControl1.CurrentTool = Cmd  '把该对象附给MapControl1
            
       Case "FullScreen"
           
            Me.MapControl1.Extent = Me.MapControl1.FullExtent
       
       Case "Default"
       
            Set Me.MapControl1.CurrentTool = Nothing
'            Me.Toolbar1.Buttons.Item(2).Value = tbrUnpressed
'            Me.Toolbar1.Buttons.Item(3).Value = tbrUnpressed
'            Me.Toolbar1.Buttons.Item(4).Value = tbrUnpressed
       
   End Select
End Sub

						