frmmdipagelayout.frm

ArcEngine 这是基于AE组件的源代码

VERSION 5.00
Object = "{BA01FAC9-2AB7-4CC9-9732-938340408ACE}#1.0#0"; "PageLayoutControl.ocx"
Begin VB.Form frmMDIPageLayout 
   Caption         =   "Form1"
   ClientHeight    =   5220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4095
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5220
   ScaleWidth      =   4095
   Begin esriPageLayoutControl.PageLayoutControl PageLayoutControl 
      Height          =   5175
      Left            =   0
      OleObjectBlob   =   "frmMDIPageLayout.frx":0000
      TabIndex        =   0
      Top             =   0
      Width           =   4095
   End
End
Attribute VB_Name = "frmMDIPageLayout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
 If Me.WindowState <> vbMinimized Then
        PageLayoutControl.Left = 0
        PageLayoutControl.Height = Me.Height - 400
        PageLayoutControl.Top = 0
        PageLayoutControl.Width = Me.Width - 100
        esriArcCatalogUI.refresh
        refresh
    End If
End Sub

Private Sub PageLayoutControl_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)
   Dim objEnvelope As IEnvelope
   Dim pPoint As IPoint
   Dim pActiveView As IActiveView
   Set pActiveView = PageLayoutControl.ActiveView.FocusMap
   Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y) ''''
         
   Select Case m_CheckOperate
       Case 201
           Set objEnvelope = PageLayoutControl.TrackRectangle
           PageLayoutControl.Extent = objEnvelope
       Case 202
            Set objEnvelope = PageLayoutControl.Extent
            objEnvelope.Expand 2, 2, True
            PageLayoutControl.Extent = objEnvelope
       Case 203
           PageLayoutControl.Pan
       Case "205"
           PageLayoutControl.Extent = PageLayoutControl.FullExtent
    End Select
    esriArcCatalogUI.refresh esriViewGeography
    
End Sub