⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmlayout.frm

📁 都是基于VB所做的程序集合,值得大家作为实践的参考资料.
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
               Style           =   2
            EndProperty
            BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               ImageIndex      =   116
            EndProperty
            BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Object.ToolTipText     =   "关于"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               ImageIndex      =   70
            EndProperty
         EndProperty
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打开工作空间"
      End
      Begin VB.Menu mnuFileClose 
         Caption         =   "关闭工作空间"
      End
      Begin VB.Menu mnuFileSeperator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "保存"
      End
      Begin VB.Menu mnuFileSaveAs 
         Caption         =   "另存为"
      End
      Begin VB.Menu mnuFileSeperator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilePrint 
         Caption         =   "打印"
      End
      Begin VB.Menu mnuFilePrintSetup 
         Caption         =   "打印设置"
      End
      Begin VB.Menu mnuFilePageSetup 
         Caption         =   "页面设置"
      End
      Begin VB.Menu mnuFileSeperator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "编辑"
      Begin VB.Menu mnuEditCut 
         Caption         =   "剪切"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuEditCopy 
         Caption         =   "复制"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuEditPaste 
         Caption         =   "粘贴"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnuEditSeperator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditSelectAll 
         Caption         =   "全选"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuEditInvertSel 
         Caption         =   "反选"
      End
      Begin VB.Menu EditSeperator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditDelete 
         Caption         =   "删除"
         Shortcut        =   {DEL}
      End
   End
   Begin VB.Menu mnuDraw 
      Caption         =   "绘图"
      Begin VB.Menu mnuDrawSelect 
         Caption         =   "选择"
      End
      Begin VB.Menu mnuDrawSeperator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDrawLine 
         Caption         =   "直线"
      End
      Begin VB.Menu mnuDrawRect 
         Caption         =   "矩形"
      End
      Begin VB.Menu mnuDrawRoundRect 
         Caption         =   "圆角矩形"
      End
      Begin VB.Menu mnuDrawEllipse 
         Caption         =   "椭圆"
      End
      Begin VB.Menu mnuDrawArc 
         Caption         =   "弧"
      End
      Begin VB.Menu mnuDrawSeperator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDrawPolygon 
         Caption         =   "多边形"
      End
      Begin VB.Menu mnuDrawPolyline 
         Caption         =   "折线"
      End
      Begin VB.Menu mnuDrawSeperator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDrawText 
         Caption         =   "文字"
      End
      Begin VB.Menu mnuDrawArtText 
         Caption         =   "艺术文字"
      End
      Begin VB.Menu mnuDrawMap 
         Caption         =   "地图"
      End
      Begin VB.Menu mnuDrawGrid 
         Caption         =   "表格"
      End
      Begin VB.Menu mnuDrawTpl 
         Caption         =   "模板"
      End
      Begin VB.Menu mnuDrawLengend 
         Caption         =   "图例"
      End
      Begin VB.Menu mnuDrawDirection 
         Caption         =   "方向标"
      End
      Begin VB.Menu mnuDrawScale 
         Caption         =   "比例尺"
      End
   End
   Begin VB.Menu mnuObj 
      Caption         =   "对象"
      Begin VB.Menu mnuObjProperty 
         Caption         =   "属性"
      End
      Begin VB.Menu mnuObjSeperator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuObjGroup 
         Caption         =   "组合"
      End
      Begin VB.Menu mnuObjUnGroup 
         Caption         =   "拆分"
      End
      Begin VB.Menu mnuObjSaveToTpl 
         Caption         =   "存为模板"
      End
      Begin VB.Menu mnuObjSeperator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuObjGrid 
         Caption         =   "网格对齐"
      End
      Begin VB.Menu mnuObjSeperator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuObjMoveToFront 
         Caption         =   "移至最前"
      End
      Begin VB.Menu mnuObjMoveToBack 
         Caption         =   "移至最后"
      End
      Begin VB.Menu mnuObjMoveForward 
         Caption         =   "前移一位"
      End
      Begin VB.Menu mnuObjMoveBackward 
         Caption         =   "后移一位"
      End
   End
   Begin VB.Menu mnuOper 
      Caption         =   "操作"
      Begin VB.Menu mnuOperZoomIn 
         Caption         =   "放大"
      End
      Begin VB.Menu mnuOperZoomOut 
         Caption         =   "缩小"
      End
      Begin VB.Menu mnuOperPalm 
         Caption         =   "漫游"
      End
      Begin VB.Menu mnuOperSeperator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMap 
         Caption         =   "地图"
         Begin VB.Menu mnuMapHold 
            Caption         =   "锁定地图"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuOperMapSeperator1 
            Caption         =   "-"
         End
         Begin VB.Menu mnuMapNull 
            Caption         =   "空操作"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuMapViewEntire 
            Caption         =   "全图显示"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuMapZoomIn 
            Caption         =   "地图放大"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuMapZoomOut 
            Caption         =   "地图缩小"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuMapZoomFree 
            Caption         =   "自由缩放"
            Enabled         =   0   'False
         End
         Begin VB.Menu mnuMapPalm 
            Caption         =   "地图漫游"
            Enabled         =   0   'False
         End
      End
   End
   Begin VB.Menu mnuLyt 
      Caption         =   "布局"
      Begin VB.Menu mnuLytSetup 
         Caption         =   "布局设置"
      End
      Begin VB.Menu mnuLytSeperator 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAlign 
         Caption         =   "对齐"
         Begin VB.Menu mnuAlignLeft 
            Caption         =   "左对齐"
         End
         Begin VB.Menu mnuAlignRight 
            Caption         =   "右对齐"
         End
         Begin VB.Menu mnuAlignTop 
            Caption         =   "上对齐"
         End
         Begin VB.Menu mnuAlignBottom 
            Caption         =   "下对齐"
         End
      End
      Begin VB.Menu mnuSpace 
         Caption         =   "等距"
         Begin VB.Menu mnuSpaceAcross 
            Caption         =   "水平等距"
         End
         Begin VB.Menu mnuSpaceDown 
            Caption         =   "垂直等距"
         End
      End
      Begin VB.Menu mnuSame 
         Caption         =   "大小"
         Begin VB.Menu mnuSameWidth 
            Caption         =   "等宽"
         End
         Begin VB.Menu mnuSameHeight 
            Caption         =   "等高"
         End
         Begin VB.Menu mnuSameSize 
            Caption         =   "等大小"
         End
      End
      Begin VB.Menu mnuCenter 
         Caption         =   "居中"
         Begin VB.Menu mnuCenterHorizon 
            Caption         =   "水平居中"
         End
         Begin VB.Menu mnuCenterVert 
            Caption         =   "垂直居中"
         End
         Begin VB.Menu mnuCenterBoth 
            Caption         =   "居中"
         End
      End
   End
   Begin VB.Menu mnuAbout 
      Caption         =   "帮助"
      Begin VB.Menu mnuAboutCmd 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmLayout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=====================================SuperMap Objects示范工程说明===========================================
'
'功能简介：示范SuperLayout中的工作空间和Layout对象的保存与打开。
'所用控件：SuperLayout控件和SuperWordspace控件
'所用数据：..\Data\World\WorldMap.smw文件
'操作说明：
'         1、此示例的基本操作和其他示例代码的操作相似，基于此程序的操作项目多功能较全，但是操作相似性强且极简
'            单，在程序说明中就不罗列操作了。在每一个相应的代码前面都有相应的程序说明，详细地说明了每段程序的
'            功能、实现条件及如何操作等综合事项；
'         2、此示例代码较长，是因为此示例代码实现的功能多，但每个功能的实现代码都较短，很容易让初学者看懂。功能
'            实现代码中有很大一部分是用来调整工具条和菜单状态的，真正的实现功能的代码很短，所以，希望初学者不要
'            被如此长的示例代码产生畏惧；
'         3、每个对象多有自己的属性对话框，当布局处于选择状态时双击某个对象即可弹出该对象的属性对话框，你可以通
'            过对其中某个或全部属性的修改来改变对象的状态；
'         4、这是从桌面示例代码中抽离出来的一个能够单独运行的示例程序，它与SuperMap及SuperWorkspace的关系在此
'            没有作太多的说明，但是可以通过桌面示例代码弥补这个缺陷。
'注   意：SuperLayout控件集成了桌面排版的主要功能，利用这个控件，可以快速、方便地开发出精致的桌面地图排版
'         系统.这个控件是SuperMap Objects控件集合中的一个特色控件，但是应用较容易，利于二次开发者开发。这个示
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -