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

📄 frmoptions.frm

📁 游戏《家园》源码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmOptions 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MissionMan Options"
   ClientHeight    =   5844
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   8244
   Icon            =   "frmOptions.frx":0000
   MaxButton       =   0   'False
   ScaleHeight     =   5844
   ScaleWidth      =   8244
   StartUpPosition =   1  'CenterOwner
   Tag             =   "Options"
   Begin VB.Frame frmTools 
      Caption         =   "Tools"
      Height          =   1515
      Left            =   6240
      TabIndex        =   72
      Top             =   120
      Width           =   1875
      Begin VB.CheckBox Check1 
         Caption         =   "Free View Scale"
         Height          =   195
         Left            =   120
         TabIndex        =   73
         Top             =   1140
         Visible         =   0   'False
         Width           =   1635
      End
      Begin VB.CheckBox chkScale 
         Caption         =   "Free Object Scale"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   840
         Width           =   1635
      End
      Begin VB.CheckBox chkStat 
         Caption         =   "Status Bar"
         Height          =   195
         Left            =   120
         TabIndex        =   7
         Top             =   540
         Width           =   1635
      End
      Begin VB.CheckBox chkTool 
         Caption         =   "Toolbar"
         Height          =   195
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   1635
      End
   End
   Begin VB.Frame fmeCurs 
      Caption         =   "Cursor"
      Height          =   675
      Left            =   6240
      TabIndex        =   69
      Top             =   3660
      Width           =   1875
      Begin VB.ComboBox cmbCol 
         Height          =   315
         Index           =   6
         ItemData        =   "frmOptions.frx":030A
         Left            =   840
         List            =   "frmOptions.frx":0311
         Style           =   2  'Dropdown List
         TabIndex        =   30
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblCol6 
         Caption         =   "Color:"
         Height          =   195
         Left            =   120
         TabIndex        =   70
         Top             =   300
         Width           =   615
      End
   End
   Begin VB.CommandButton cmdReload 
      Caption         =   "&Reload"
      Height          =   375
      Left            =   120
      TabIndex        =   31
      Tag             =   "OK"
      Top             =   5340
      Width           =   1095
   End
   Begin VB.Frame fmeBand 
      Caption         =   "Bandbox"
      Height          =   675
      Left            =   4200
      TabIndex        =   63
      Top             =   3660
      Width           =   1875
      Begin VB.ComboBox cmbCol 
         Height          =   315
         Index           =   5
         ItemData        =   "frmOptions.frx":0318
         Left            =   840
         List            =   "frmOptions.frx":031F
         Style           =   2  'Dropdown List
         TabIndex        =   28
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblCol5 
         Caption         =   "Color:"
         Height          =   195
         Left            =   120
         TabIndex        =   64
         Top             =   300
         Width           =   615
      End
   End
   Begin VB.Frame fmeSel 
      Caption         =   "Selection"
      Height          =   675
      Left            =   4200
      TabIndex        =   61
      Top             =   4500
      Width           =   1875
      Begin VB.ComboBox cmbCol 
         Height          =   315
         Index           =   4
         ItemData        =   "frmOptions.frx":0326
         Left            =   840
         List            =   "frmOptions.frx":032D
         Style           =   2  'Dropdown List
         TabIndex        =   29
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblCol4 
         Caption         =   "Color:"
         Height          =   195
         Left            =   120
         TabIndex        =   62
         Top             =   300
         Width           =   615
      End
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save"
      Height          =   375
      Left            =   1320
      TabIndex        =   32
      Tag             =   "OK"
      Top             =   5340
      Width           =   1095
   End
   Begin VB.Frame fmePaths 
      Caption         =   "Paths"
      Height          =   1515
      Left            =   120
      TabIndex        =   58
      Top             =   120
      Width           =   5955
      Begin VB.TextBox txtData 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1020
         OLEDropMode     =   1  'Manual
         TabIndex        =   3
         Top             =   660
         Width           =   4815
      End
      Begin VB.CommandButton cmdData 
         Caption         =   "4"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Webdings"
            Size            =   8.4
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   840
         TabIndex        =   2
         Tag             =   "Apply"
         ToolTipText     =   "Browse"
         Top             =   660
         Width           =   195
      End
      Begin VB.CommandButton cmdObjects 
         Caption         =   "4"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Webdings"
            Size            =   8.4
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   840
         TabIndex        =   4
         Tag             =   "Apply"
         ToolTipText     =   "Browse"
         Top             =   1080
         Width           =   195
      End
      Begin VB.TextBox txtObjects 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1020
         OLEDropMode     =   1  'Manual
         TabIndex        =   5
         Top             =   1080
         Width           =   4815
      End
      Begin VB.CommandButton cmdWork 
         Caption         =   "4"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Webdings"
            Size            =   8.4
            Charset         =   2
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   840
         TabIndex        =   0
         Tag             =   "Apply"
         ToolTipText     =   "Browse"
         Top             =   240
         Width           =   195
      End
      Begin VB.TextBox txtWork 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1020
         OLEDropMode     =   1  'Manual
         TabIndex        =   1
         Top             =   240
         Width           =   4815
      End
      Begin VB.Label lblData 
         Caption         =   "Data:"
         Height          =   195
         Left            =   120
         TabIndex        =   71
         Top             =   720
         Width           =   615
      End
      Begin VB.Label lblObjects 
         Caption         =   "Object:"
         Height          =   195
         Left            =   120
         TabIndex        =   60
         Top             =   1140
         Width           =   615
      End
      Begin VB.Label lblWork 
         Caption         =   "Work:"
         Height          =   195
         Left            =   120
         TabIndex        =   59
         Top             =   300
         Width           =   615
      End
   End
   Begin VB.Frame fmeCamera 
      Caption         =   "Camera"
      Height          =   1815
      Left            =   120
      TabIndex        =   49
      Top             =   3360
      Width           =   3915
      Begin VB.CheckBox chkCam 
         Caption         =   "Free Camera"
         Height          =   195
         Left            =   120
         TabIndex        =   26
         Top             =   1440
         Width           =   1635
      End
      Begin VB.TextBox txtFocusX 
         Height          =   285
         Left            =   840
         TabIndex        =   23
         Top             =   960
         Width           =   915
      End
      Begin VB.TextBox txtFocusY 
         Height          =   285
         Left            =   1860
         TabIndex        =   24
         Top             =   960
         Width           =   915
      End
      Begin VB.TextBox txtFocusZ 
         Height          =   285
         Left            =   2880
         TabIndex        =   25
         Top             =   960
         Width           =   915
      End
      Begin VB.TextBox txtEyeZ 
         Height          =   285
         Left            =   2880
         TabIndex        =   22
         Top             =   540
         Width           =   915
      End
      Begin VB.TextBox txtEyeY 
         Height          =   285
         Left            =   1860
         TabIndex        =   21
         Top             =   540
         Width           =   915
      End
      Begin VB.TextBox txtEyeX 
         Height          =   285
         Left            =   840
         TabIndex        =   20
         Top             =   540
         Width           =   915
      End
      Begin VB.ComboBox cmbCol 
         Height          =   315
         Index           =   2
         ItemData        =   "frmOptions.frx":0334
         Left            =   2880
         List            =   "frmOptions.frx":033F
         Style           =   2  'Dropdown List
         TabIndex        =   27
         Top             =   1380
         Width           =   915
      End
      Begin VB.Label lblZC 
         Alignment       =   2  'Center
         Caption         =   "z"
         Height          =   195
         Left            =   2880
         TabIndex        =   55
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblYC 
         Alignment       =   2  'Center
         Caption         =   "y"
         Height          =   195
         Left            =   1860
         TabIndex        =   54
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblXC 
         Alignment       =   2  'Center
         Caption         =   "x"
         Height          =   195
         Left            =   840
         TabIndex        =   53
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblFocus 
         Caption         =   "Focus:"
         Height          =   195
         Left            =   120
         TabIndex        =   52
         Top             =   1020
         Width           =   615
      End
      Begin VB.Label lblEye 
         Caption         =   "Eye:"
         Height          =   195
         Left            =   120
         TabIndex        =   51
         Top             =   600
         Width           =   615
      End
      Begin VB.Label lblCol2 
         Caption         =   "Color:"
         Height          =   195
         Left            =   2160
         TabIndex        =   50
         Top             =   1440
         Width           =   615
      End
   End
   Begin VB.Frame fmeViews 
      Caption         =   "Views"
      Height          =   1395
      Left            =   120
      TabIndex        =   48
      Top             =   1800
      Width           =   3915
      Begin VB.TextBox txtOffsetX 
         Height          =   285
         Left            =   840
         TabIndex        =   9
         Top             =   540
         Width           =   915
      End
      Begin VB.TextBox txtOffsetY 
         Height          =   285
         Left            =   1860
         TabIndex        =   10
         Top             =   540
         Width           =   915
      End
      Begin VB.TextBox txtOffsetZ 
         Height          =   285
         Left            =   2880
         TabIndex        =   11
         Top             =   540
         Width           =   915
      End
      Begin VB.ComboBox cmbCol 
         Height          =   315
         Index           =   0
         ItemData        =   "frmOptions.frx":034E
         Left            =   2880
         List            =   "frmOptions.frx":0355
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   960
         Width           =   915
      End
      Begin VB.TextBox txtScale 
         Height          =   285
         Left            =   840
         TabIndex        =   12
         Top             =   960
         Width           =   915
      End
      Begin VB.Label lblOffset 
         Caption         =   "Offset:"
         Height          =   195
         Left            =   120
         TabIndex        =   68
         Top             =   600
         Width           =   615
      End
      Begin VB.Label lblXD 
         Alignment       =   2  'Center
         Caption         =   "x"
         Height          =   195
         Left            =   840
         TabIndex        =   67
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblYD 
         Alignment       =   2  'Center
         Caption         =   "y"
         Height          =   195
         Left            =   1860
         TabIndex        =   66
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblZD 
         Alignment       =   2  'Center
         Caption         =   "z"
         Height          =   195
         Left            =   2880
         TabIndex        =   65
         Top             =   240
         Width           =   915
      End
      Begin VB.Label lblCol0 
         Caption         =   "Color:"
         Height          =   195
         Left            =   2160
         TabIndex        =   57
         Top             =   1020
         Width           =   615
      End
      Begin VB.Label lblScale 
         Caption         =   "Scale:"
         Height          =   195

⌨️ 快捷键说明

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