form1.vb

这个是电子地图的 原程序 很好的,不错啊 侃侃 ,很有帮助

                    firstx = X : firsty = Y
                    tag_pan = True
                Case 6 : Fullmap()
                Case 7
    'UPGRADE_ISSUE: 常量 vbNotXorPen 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"”
    'UPGRADE_ISSUE: PictureBox 属性 picturebox1.DrawMode 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                    picturebox1.DrawMode = vbNotXorPen
                    picturebox1.ForeColor = System.Drawing.Color.Red
    'UPGRADE_ISSUE: PictureBox 属性 picturebox1.DrawWidth 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                    picturebox1.DrawWidth = 2
                    firstx = X : firsty = Y
                    tag_pan = True
                    endx = firstx : endy = firsty
    'UPGRADE_ISSUE: PictureBox 方法 picturebox1.Line 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
					picturebox1.Line (firstx, firsty) - (endx, endy), B
            End Select

            If tag_pan = False Then
    'UPGRADE_ISSUE: PictureBox 方法 picturebox1.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                picturebox1.Cls()
                DrawGrid()
            End If
        End If
    End Sub

    Private Sub Picview_MouseMove(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles picturebox1.MouseMove
        Dim Button As Short = eventArgs.Button \ &H100000
        Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
        Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
        Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
        Dim wx, wy As Single

        Call ScreenToWorld(X, Y, wx, wy)
        'UPGRADE_WARNING: 集合 StatusBar1.Panels 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
        StatusBar1.Items.Item(1).Text = "世界坐标：(" & VB6.Format(CStr(wx), "0.000") & "," & VB6.Format(CStr(wy), "0.000") & ")"
        'UPGRADE_WARNING: 集合 StatusBar1.Panels 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
        StatusBar1.Items.Item(2).Text = "屏幕坐标：(" & CStr(X) & "," & CStr(Y) & ")"

        If FunctionID = 7 And tag_pan = True Then
            'UPGRADE_ISSUE: PictureBox 方法 Picview.Line 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			Picview.Line (firstx, firsty) - (endx, endy), B
            'UPGRADE_ISSUE: PictureBox 方法 Picview.Line 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
			Picview.Line (firstx, firsty) - (X, Y), B
            endx = X : endy = Y
        End If
    End Sub

    Private Sub Picview_MouseUp(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles picturebox1.MouseUp
        Dim Button As Short = eventArgs.Button \ &H100000
        Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000
        Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X)
        Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y)
        If tag_pan = True Then
            If FunctionID = 5 Then
                Pan(firstx, firsty, X, Y)
                tag_pan = False
            ElseIf FunctionID = 7 Then
                ZoomWindow(firstx, firsty, X, Y)
                tag_pan = False
            End If
            'UPGRADE_ISSUE: PictureBox 方法 Picview.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
            Picview.Cls()
            DrawGrid()
        End If
    End Sub

    '============================================   按钮   ============================================

    Private Sub ToolbarView_ButtonClick(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolbarView.ItemClicked
        Dim Button As System.Windows.Forms.ToolStripItem = CType(eventSender, System.Windows.Forms.ToolStripItem) '视图工具
        Select Case Button.Owner.Items.IndexOf(Button)
            Case 2 : FunctionID = 1
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\pzoomin.ico")
                ZoomIn()
                'UPGRADE_ISSUE: PictureBox 方法 Picview.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.Cls()
                DrawGrid()
            Case 3 : FunctionID = 2
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\pzoomout.ico")
                ZoomOut()
                'UPGRADE_ISSUE: PictureBox 方法 Picview.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.Cls()
                DrawGrid()
            Case 4 : FunctionID = 3
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\zoomin.ico")
            Case 5 : FunctionID = 4
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\zoomout.ico")
            Case 6 : FunctionID = 5
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\hand.ico")
            Case 7 : FunctionID = 6
                picturebox1.Cursor = System.Windows.Forms.Cursors.Default
                Fullmap()
                'UPGRADE_ISSUE: PictureBox 方法 Picview.Cls 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.Cls()
                DrawGrid()
            Case 8 : FunctionID = 7
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MousePointer 不支持自定义鼠标指针。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="45116EAB-7060-405E-8ABE-9DBB40DC2E86"”
                Picview.Cursor = vbCustom
                'UPGRADE_ISSUE: PictureBox 属性 Picview.MouseIcon 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"”
                Picview.MouseIcon = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\icon\draw.cur")
        End Select
    End Sub
End Class