?? form1.frm
字號(hào):
VERSION 5.00
Object = "{C552EA90-6FBB-11D5-A9C1-00104BB6FC1C}#1.0#0"; "MapControl.ocx"
Begin VB.Form Form1
Caption = "地圖漫游縮放"
ClientHeight = 8100
ClientLeft = 60
ClientTop = 450
ClientWidth = 10185
LinkTopic = "Form1"
ScaleHeight = 8100
ScaleWidth = 10185
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Center
Caption = "居中"
Height = 615
Left = 5520
TabIndex = 3
Top = 7560
Width = 2775
End
Begin VB.CommandButton ZoomOut
Caption = "縮小"
Height = 615
Left = 2760
TabIndex = 2
Top = 7560
Width = 2775
End
Begin VB.CommandButton ZoomIn
Caption = "放大"
Height = 615
Left = 0
TabIndex = 1
Top = 7560
Width = 2775
End
Begin esriMapControl.MapControl MapControl1
Height = 7575
Left = 0
OleObjectBlob = "Form1.frx":0000
TabIndex = 0
Top = 0
Width = 8295
End
Begin VB.Label Label1
Caption = $"Form1.frx":247E
Height = 8175
Left = 8280
TabIndex = 4
Top = 0
Width = 1935
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Center_Click()
MapControl1.Extent = MapControl1.FullExtent
End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Resize()
Dim dWidth As Double, dheight As Double, dMargin As Double
dMargin = ZoomIn.Top
dheight = Form1.ScaleHeight - MapControl1.Top - dMargin
If dheight > 0 Then
MapControl1.Height = dheight
'TOCControl1.Height = dheight
End If
End Sub
Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double)
If button = 1 Then
MapControl1.Extent = MapControl1.TrackRectangle
ElseIf button = 2 Then
MapControl1.Pan
End If
End Sub
Private Sub ZoomIn_Click()
Dim pEnvelop As IEnvelope
Set pEnvelop = MapControl1.Extent
pEnvelop.Expand 0.5, 0.5, True
MapControl1.Extent = pEnvelop
End Sub
Private Sub ZoomOut_Click()
Dim pEnvelop As IEnvelope
Set pEnvelop = MapControl1.Extent
pEnvelop.Expand 2, 2, True
MapControl1.Extent = pEnvelop
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -