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

📄 frmmain.frm

📁 这是我的一个课题:我省农业分布调查咨询系统。课题是和省农业厅合作的。源代码完整
💻 FRM
📖 第 1 页 / 共 5 页
字号:
            Key             =   "Move"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":4D16
            Key             =   "Ruler"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":506A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":50DE
            Key             =   "Select"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5432
            Key             =   "Select Rectangle"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5786
            Key             =   "Select Radius"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5ADA
            Key             =   "Select Polygon"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":5E2E
            Key             =   "Layers Controls"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   3  'Align Left
      Height          =   7110
      Left            =   0
      TabIndex        =   2
      Top             =   420
      Width           =   585
      _ExtentX        =   1032
      _ExtentY        =   12541
      ButtonWidth     =   609
      ButtonHeight    =   582
      ImageList       =   "LeftToolImages"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   11
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Arrow"
            Object.ToolTipText     =   "返回工具"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Zoom In"
            Object.ToolTipText     =   "放大"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Zoom Out"
            Object.ToolTipText     =   "缩小"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Pan"
            Object.ToolTipText     =   "漫游"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Ruler"
            Object.ToolTipText     =   "测距"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "info"
            Object.ToolTipText     =   "信息"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Select"
            Object.ToolTipText     =   "单选"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Select Rectangle"
            Object.ToolTipText     =   "矩形选择"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Select Radius"
            Object.ToolTipText     =   "圆形选择"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Select Polygon"
            Object.ToolTipText     =   "多边形选择"
            ImageIndex      =   10
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar tbToolBar 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   11370
      _ExtentX        =   20055
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "imlToolbarIcons"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "Open"
            Object.ToolTipText     =   "打开"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "Save"
            Object.ToolTipText     =   "保存"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Print"
            Object.ToolTipText     =   "打印地图"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "Copy"
            Object.ToolTipText     =   "复制"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "full"
            Object.ToolTipText     =   "查看整个地图"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "clear"
            Object.ToolTipText     =   "清除"
            ImageIndex      =   12
            Style           =   5
            BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
               NumButtonMenus  =   2
               BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "clearsel"
                  Text            =   "清除选区"
               EndProperty
               BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Key             =   "clearthe"
                  Text            =   "清除专题图"
               EndProperty
            EndProperty
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Findsimple"
            Object.ToolTipText     =   "简单查询"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "FindCustomize"
            Object.ToolTipText     =   "自定义查询"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Key             =   "findelsemap"
            Object.ToolTipText     =   "按地图区域查询"
            ImageIndex      =   14
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Chart"
            Object.ToolTipText     =   "创建专题图"
            ImageIndex      =   10
         EndProperty
      EndProperty
      Begin VB.ComboBox mapCombo1 
         BackColor       =   &H80000018&
         ForeColor       =   &H00C00000&
         Height          =   300
         ItemData        =   "frmMain.frx":6182
         Left            =   4920
         List            =   "frmMain.frx":6184
         Style           =   2  'Dropdown List
         TabIndex        =   6
         ToolTipText     =   "调入地图"
         Top             =   120
         Width           =   2655
      End
      Begin MSComctlLib.Toolbar Toolbar2 
         Height          =   585
         Left            =   3480
         TabIndex        =   4
         Top             =   1080
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   1032
         ButtonWidth     =   609
         ButtonHeight    =   926
         Appearance      =   1
         _Version        =   393216
      End
      Begin VB.Frame Frame1 
         Caption         =   "调入地图"
         Height          =   412
         Left            =   3960
         TabIndex        =   7
         Top             =   0
         Width           =   3615
      End
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00C0C000&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00404000&
      Height          =   7455
      Left            =   460
      Top             =   480
      Width           =   10215
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnumapOpen 
         Caption         =   "调入地图"
         Begin VB.Menu menumapopen_dm 
            Caption         =   "四川省地貌区划图"
         End
         Begin VB.Menu menumapopen_qh 
            Caption         =   "四川省农业气侯区划图"
         End
         Begin VB.Menu menumapopen_sl 
            Caption         =   "四川省水利区划图"
         End
         Begin VB.Menu menumapopen_sw 
            Caption         =   "四川省农业水文地质区划图"
         End
         Begin VB.Menu menumapopen_xzqy 
            Caption         =   "四川省乡镇企业区划图"
         End
         Begin VB.Menu menumapopen_xmy 
            Caption         =   "四川省畜牧业区划图"
         End
         Begin VB.Menu menumapopen_yy 
            Caption         =   "四川省渔业区划图"
         End
         Begin VB.Menu menumapopen_zzy 
            Caption         =   "四川省种植业区划图"
         End
         Begin VB.Menu menumapopen_zhly 
            Caption         =   "四川省综合农业区划图"
         End
         Begin VB.Menu menumapopen_xz 
            Caption         =   "四川省行政区划图"
         End

⌨️ 快捷键说明

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