main.frm

ESRI AE9.2控件使用示例示范了AE9.2与前版本的不同

VERSION 5.00
Object = "{033364CA-47F9-4251-98A5-C88CD8D3C808}#1.0#0"; "esriControls.olb"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Form1"
   ClientHeight    =   7890
   ClientLeft      =   45
   ClientTop       =   360
   ClientWidth     =   10125
   ClipControls    =   0   'False
   DrawMode        =   11  'Not Xor Pen
   HasDC           =   0   'False
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   13.917
   ScaleMode       =   7  'Centimeter
   ScaleWidth      =   17.859
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin esriControls.LicenseControl LicenseControl1 
      Left            =   4560
      OleObjectBlob   =   "main.frx":030A
      Top             =   3600
   End
   Begin esriControls.PageLayoutControl PageLayoutControl1 
      Height          =   6975
      Left            =   3360
      OleObjectBlob   =   "main.frx":0337
      TabIndex        =   3
      Top             =   600
      Width           =   6735
   End
   Begin esriControls.TOCControl TOCControl1 
      Height          =   3255
      Left            =   0
      OleObjectBlob   =   "main.frx":0E6F
      TabIndex        =   2
      Top             =   600
      Width           =   3255
   End
   Begin esriControls.ToolbarControl ToolbarControl1 
      Height          =   420
      Left            =   0
      OleObjectBlob   =   "main.frx":0EDE
      TabIndex        =   1
      Top             =   0
      Width           =   9615
   End
   Begin esriControls.MapControl MapControl1 
      Height          =   3735
      Left            =   0
      OleObjectBlob   =   "main.frx":0FA5
      TabIndex        =   0
      Top             =   3840
      Width           =   3255
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   7680
      Width           =   10095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim sFileName As String
sFileName = "I:\lx\2001G2006G48055020\2001G2006G48055020.mxd"

    If PageLayoutControl1.CheckMxFile(sFileName) Then
        PageLayoutControl1.LoadMxFile (sFileName)
    End If
 Label1.Caption = sFileName
 
 TOCControl1.SetBuddyControl PageLayoutControl1
 ToolbarControl1.SetBuddyControl PageLayoutControl1
End Sub

Private Sub PageLayoutControl1_OnPageLayoutReplaced(ByVal newPageLayout As Variant)
'加载相同的地图文档到mapcontrol控件
MapControl1.LoadMxFile PageLayoutControl1.DocumentFilename
MapControl1.Extent = MapControl1.FullExtent

End Sub