www.pudn.com > mapxoracle.zip > ToolBars.frm

VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Begin VB.Form ToolBars  
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   375 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   8925 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MDIChild        =   -1  'True 
   MinButton       =   0   'False 
   ScaleHeight     =   375 
   ScaleWidth      =   8925 
   ShowInTaskbar   =   0   'False 
   Begin MSComctlLib.Toolbar Toolbar1  
      Height          =   390 
      Left            =   0 
      TabIndex        =   0 
      Top             =   0 
      Width           =   1440 
      _ExtentX        =   2540 
      _ExtentY        =   688 
      ButtonWidth     =   609 
      ButtonHeight    =   582 
      Appearance      =   1 
      ImageList       =   "ImageList1" 
      _Version        =   393216 
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}  
         NumButtons      =   4 
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Object.ToolTipText     =   "选择" 
            ImageIndex      =   1 
            Style           =   2 
         EndProperty 
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Object.ToolTipText     =   "放大" 
            ImageIndex      =   2 
            Style           =   2 
         EndProperty 
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Object.ToolTipText     =   "缩小" 
            ImageIndex      =   3 
            Style           =   2 
         EndProperty 
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Object.ToolTipText     =   "平移" 
            ImageIndex      =   4 
            Style           =   2 
         EndProperty 
      EndProperty 
      OLEDropMode     =   1 
   End 
   Begin VB.ComboBox Combo2  
      Height          =   300 
      Left            =   5760 
      TabIndex        =   4 
      Top             =   0 
      Width           =   2295 
   End 
   Begin VB.ComboBox Combo1  
      Height          =   300 
      Left            =   2520 
      TabIndex        =   2 
      Top             =   0 
      Width           =   2175 
   End 
   Begin MSComctlLib.ImageList ImageList1  
      Left            =   2400 
      Top             =   1560 
      _ExtentX        =   1005 
      _ExtentY        =   1005 
      BackColor       =   -2147483643 
      ImageWidth      =   16 
      ImageHeight     =   16 
      MaskColor       =   12632256 
      _Version        =   393216 
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}  
         NumListImages   =   4 
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "ToolBars.frx":0000 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "ToolBars.frx":031A 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "ToolBars.frx":0634 
            Key             =   "" 
         EndProperty 
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}  
            Picture         =   "ToolBars.frx":094E 
            Key             =   "" 
         EndProperty 
      EndProperty 
   End 
   Begin VB.Label Label2  
      AutoSize        =   -1  'True 
      Caption         =   "数据集:" 
      Height          =   180 
      Left            =   4920 
      TabIndex        =   3 
      Top             =   120 
      Width           =   630 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "图层选择:" 
      Height          =   180 
      Left            =   1560 
      TabIndex        =   1 
      Top             =   120 
      Width           =   810 
   End 
End 
Attribute VB_Name = "ToolBars" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Combo1_Click() 
    On Error GoTo error1 
    Formmain.Map1.Layers(ToolBars.Combo1.Text).Editable = True 
error1: 
    Select Case Err.Number 
       Case 1279 
           MsgBox "只读文件不可编辑.", , "错误提示" '指shp文件 
           On Error GoTo 0 
    End Select 
End Sub 
 
Private Sub Form_Load() 
     
    Dim i As Integer 
 
    Me.Top = MDIForm1.Top 
    Me.Left = MDIForm1.Left 
    Me.Width = MDIForm1.ScaleWidth 
    Me.Height = Toolbar1.ButtonHeight 
        
     
    For i = 1 To Formmain.Map1.Layers.Count 
      Combo1.AddItem Formmain.Map1.Layers.Item(i).name 
    Next i 
     
    For i = 1 To Formmain.Map1.Datasets.Count 
      Combo2.AddItem Formmain.Map1.Datasets.Item(i).name 
    Next i 
     
    If Combo1.ListCount > 0 Then Combo1.ListIndex = 0 
    If Combo2.ListCount > 0 Then Combo2.ListIndex = 0 
     
    Toolbar1.Buttons.Item(1).Value = tbrPressed 
     
End Sub 
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 
 Dim i As Integer 
  
  
 Select Case Button.Index 
     
    Case 1 
      Formmain.Map1.CurrentTool = miArrowTool 
    Case 2 ' Zoom In 
      Formmain.Map1.CurrentTool = ToolConstants.miZoomInTool 
      'Formmain.Map1.MousePointer = miCustomCursor 
      'Formmain.Map1.MouseIcon = "c:\windows\cursors\globe.ani" 
     ' Formmain.Map1.MouseIcon = "c:\windows\cursors\Help_1.cur" 
    Case 3 ' Zoom Out 
      Formmain.Map1.CurrentTool = ToolConstants.miZoomOutTool 
    Case 4 ' Pan 
      Formmain.Map1.CurrentTool = ToolConstants.miPanTool 
     
  End Select 
   
End Sub