form1.designer.vb

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

        Me.picturebox1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.picturebox1.Location = New System.Drawing.Point(8, 56)
        Me.picturebox1.Name = "picturebox1"
        Me.picturebox1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.picturebox1.Size = New System.Drawing.Size(585, 353)
        Me.picturebox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.picturebox1.TabIndex = 0
        '
        'Toolbar1
        '
        Me.Toolbar1.Location = New System.Drawing.Point(0, 24)
        Me.Toolbar1.Name = "Toolbar1"
        Me.Toolbar1.Size = New System.Drawing.Size(605, 25)
        Me.Toolbar1.TabIndex = 2
        '
        'MainMenu1
        '
        Me.MainMenu1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.file, Me.edit, Me.mnuHelp})
        Me.MainMenu1.Location = New System.Drawing.Point(0, 0)
        Me.MainMenu1.Name = "MainMenu1"
        Me.MainMenu1.Size = New System.Drawing.Size(605, 24)
        Me.MainMenu1.TabIndex = 3
        '
        'file
        '
        Me.file.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.new_Renamed, Me.open, Me.shut, Me.line1, Me.save, Me.saveas, Me.mnuS, Me.quit})
        Me.file.Name = "file"
        Me.file.Size = New System.Drawing.Size(59, 20)
        Me.file.Text = "文件(&F)"
        '
        'new_Renamed
        '
        Me.new_Renamed.Name = "new_Renamed"
        Me.new_Renamed.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
        Me.new_Renamed.Size = New System.Drawing.Size(183, 22)
        Me.new_Renamed.Text = "新建(&N)"
        '
        'open
        '
        Me.open.Name = "open"
        Me.open.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
        Me.open.Size = New System.Drawing.Size(183, 22)
        Me.open.Text = "打开(&O)..."
        '
        'shut
        '
        Me.shut.Name = "shut"
        Me.shut.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Q), System.Windows.Forms.Keys)
        Me.shut.Size = New System.Drawing.Size(183, 22)
        Me.shut.Text = "关闭(&Q)"
        '
        'line1
        '
        Me.line1.Name = "line1"
        Me.line1.Size = New System.Drawing.Size(180, 6)
        '
        'save
        '
        Me.save.Name = "save"
        Me.save.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys)
        Me.save.Size = New System.Drawing.Size(183, 22)
        Me.save.Text = "保存(&S)"
        '
        'saveas
        '
        Me.saveas.Name = "saveas"
        Me.saveas.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.I), System.Windows.Forms.Keys)
        Me.saveas.Size = New System.Drawing.Size(183, 22)
        Me.saveas.Text = "另存为(&A)..."
        '
        'mnuS
        '
        Me.mnuS.Name = "mnuS"
        Me.mnuS.Size = New System.Drawing.Size(180, 6)
        '
        'quit
        '
        Me.quit.Name = "quit"
        Me.quit.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
        Me.quit.Size = New System.Drawing.Size(183, 22)
        Me.quit.Text = "退出"
        '
        'edit
        '
        Me.edit.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.copy, Me.paste, Me.cut})
        Me.edit.Name = "edit"
        Me.edit.Size = New System.Drawing.Size(59, 20)
        Me.edit.Text = "编辑(&E)"
        '
        'copy
        '
        Me.copy.Name = "copy"
        Me.copy.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
        Me.copy.Size = New System.Drawing.Size(135, 22)
        Me.copy.Text = "复制"
        '
        'paste
        '
        Me.paste.Name = "paste"
        Me.paste.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys)
        Me.paste.Size = New System.Drawing.Size(135, 22)
        Me.paste.Text = "粘贴"
        '
        'cut
        '
        Me.cut.Name = "cut"
        Me.cut.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
        Me.cut.Size = New System.Drawing.Size(135, 22)
        Me.cut.Text = "剪切"
        '
        'mnuHelp
        '
        Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.about})
        Me.mnuHelp.Name = "mnuHelp"
        Me.mnuHelp.Size = New System.Drawing.Size(59, 20)
        Me.mnuHelp.Text = "帮助(&H)"
        '
        'about
        '
        Me.about.Name = "about"
        Me.about.Size = New System.Drawing.Size(112, 22)
        Me.about.Text = "关于..."
        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(605, 455)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.picturebox1)
        Me.Controls.Add(Me.Toolbar1)
        Me.Controls.Add(Me.MainMenu1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Location = New System.Drawing.Point(11, 57)
        Me.Name = "frmMain"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text = "地图制图实验4_地图缩放"
        Me.StatusBar1.ResumeLayout(False)
        Me.StatusBar1.PerformLayout()
        CType(Me.picturebox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.MainMenu1.ResumeLayout(False)
        Me.MainMenu1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
#End Region 
End Class