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

📄 frmmain.frm

📁 一个不错的数控源码是vb的
💻 FRM
📖 第 1 页 / 共 5 页
字号:
            Shape           =   4  'Rounded Rectangle
            Top             =   240
            Width           =   495
         End
         Begin VB.Shape light 
            BackColor       =   &H00404040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00404040&
            FillColor       =   &H80000008&
            FillStyle       =   0  'Solid
            Height          =   495
            Index           =   4
            Left            =   405
            Shape           =   4  'Rounded Rectangle
            Top             =   285
            Width           =   495
         End
         Begin VB.Shape light 
            BackColor       =   &H00404040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00404040&
            FillColor       =   &H80000008&
            FillStyle       =   0  'Solid
            Height          =   495
            Index           =   5
            Left            =   1845
            Shape           =   4  'Rounded Rectangle
            Top             =   285
            Width           =   495
         End
         Begin VB.Shape light 
            BackColor       =   &H00404040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00404040&
            FillColor       =   &H80000008&
            FillStyle       =   0  'Solid
            Height          =   495
            Index           =   7
            Left            =   3165
            Shape           =   4  'Rounded Rectangle
            Top             =   285
            Width           =   495
         End
         Begin VB.Shape light 
            BackColor       =   &H00404040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00404040&
            FillColor       =   &H80000008&
            FillStyle       =   0  'Solid
            Height          =   495
            Index           =   6
            Left            =   4485
            Shape           =   4  'Rounded Rectangle
            Top             =   285
            Width           =   495
         End
      End
      Begin VB.Frame FrameProcessing 
         BackColor       =   &H00808080&
         ForeColor       =   &H00004040&
         Height          =   1995
         Left            =   120
         TabIndex        =   15
         Top             =   1200
         Width           =   5415
         Begin VB.Frame Frame3 
            Caption         =   "常用参数"
            Height          =   1935
            Left            =   0
            TabIndex        =   29
            Top             =   3120
            Width           =   5535
            Begin VB.Frame Frame5 
               Caption         =   "加工工艺"
               Height          =   1455
               Left            =   3240
               TabIndex        =   30
               Top             =   -240
               Width           =   1695
            End
         End
         Begin VB.Frame Frame7 
            BackColor       =   &H00808080&
            Caption         =   "参数"
            ForeColor       =   &H00004040&
            Height          =   615
            Left            =   240
            TabIndex        =   25
            Top             =   360
            Width           =   2295
            Begin VB.TextBox txtCutterWidth 
               BackColor       =   &H00808080&
               ForeColor       =   &H00FFFF00&
               Height          =   270
               Left            =   1200
               TabIndex        =   26
               Text            =   "0"
               Top             =   240
               Width           =   615
            End
            Begin VB.HScrollBar scroCutterWidth 
               Height          =   255
               Left            =   960
               Max             =   20
               TabIndex        =   27
               Top             =   240
               Width           =   1095
            End
            Begin VB.Label Label23 
               AutoSize        =   -1  'True
               BackColor       =   &H00808080&
               Caption         =   "刀宽:"
               ForeColor       =   &H00C0C0C0&
               Height          =   180
               Left            =   240
               TabIndex        =   28
               Top             =   240
               Width           =   540
            End
         End
         Begin VB.Frame Frame8 
            BackColor       =   &H00808080&
            Caption         =   "扫底次数"
            ForeColor       =   &H00004040&
            Height          =   615
            Left            =   2760
            TabIndex        =   22
            Top             =   360
            Width           =   2415
            Begin VB.OptionButton optSwapOneTime 
               BackColor       =   &H00808080&
               Caption         =   "一次"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Left            =   120
               TabIndex        =   24
               Top             =   240
               Value           =   -1  'True
               Width           =   735
            End
            Begin VB.OptionButton optSwapTwoTimes 
               BackColor       =   &H00808080&
               Caption         =   "两次"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Left            =   840
               TabIndex        =   23
               Top             =   240
               Width           =   735
            End
            Begin VB.OptionButton optSwapThreeTimes 
               BackColor       =   &H00808080&
               Caption         =   "三次"
               ForeColor       =   &H8000000F&
               Height          =   255
               Left            =   1560
               TabIndex        =   31
               Top             =   240
               Width           =   735
            End
         End
         Begin VB.Frame framCutTimes 
            BackColor       =   &H00808080&
            Caption         =   "切边次数"
            ForeColor       =   &H00004040&
            Height          =   615
            Left            =   2760
            TabIndex        =   19
            Top             =   1080
            Width           =   2415
            Begin VB.OptionButton optCutOneTime 
               BackColor       =   &H8000000C&
               Caption         =   "一次"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Left            =   240
               TabIndex        =   21
               Top             =   240
               Value           =   -1  'True
               Width           =   975
            End
            Begin VB.OptionButton optCutTwoTimes 
               BackColor       =   &H8000000C&
               Caption         =   "两次"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Left            =   1320
               TabIndex        =   20
               Top             =   240
               Width           =   735
            End
         End
         Begin VB.Frame Frame11 
            BackColor       =   &H00808080&
            Caption         =   "材料"
            ForeColor       =   &H00004040&
            Height          =   615
            Left            =   240
            TabIndex        =   16
            Top             =   1080
            Width           =   2295
            Begin VB.OptionButton OptProcessFactor 
               BackColor       =   &H8000000C&
               Caption         =   "软材料"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Index           =   0
               Left            =   240
               TabIndex        =   18
               Top             =   240
               Value           =   -1  'True
               Width           =   855
            End
            Begin VB.OptionButton OptProcessFactor 
               BackColor       =   &H00808080&
               Caption         =   "硬材料"
               ForeColor       =   &H00C0C0C0&
               Height          =   255
               Index           =   1
               Left            =   1320
               TabIndex        =   17
               Top             =   240
               Width           =   855
            End
         End
      End
   End
   Begin VB.Frame FrameGraphic 
      BackColor       =   &H00808080&
      Height          =   6255
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   6135
      Begin VB.Frame Frame4 
         Caption         =   "Frame4"
         Height          =   6255
         Left            =   6240
         TabIndex        =   8
         Top             =   0
         Width           =   15
      End
      Begin VB.PictureBox picGraphic 
         AutoRedraw      =   -1  'True
         BackColor       =   &H00000000&
         FillColor       =   &H00C0FFC0&
         FillStyle       =   6  'Cross
         ForeColor       =   &H00C0FFC0&
         Height          =   5895
         Left            =   120
         Picture         =   "frmMain.frx":670E7
         ScaleHeight     =   5835
         ScaleWidth      =   5835
         TabIndex        =   2
         Top             =   240
         Width           =   5895
         Begin VB.CommandButton Command2 
            Caption         =   "Command2"
            Height          =   735
            Left            =   4320
            TabIndex        =   85
            Top             =   4080
            Width           =   1335
         End
         Begin VB.CommandButton Command1 
            Caption         =   "Command1"
            Height          =   735
            Left            =   3360
            TabIndex        =   81
            Top             =   2880
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.Label Label6 
            Caption         =   "Label6"
            Height          =   735
            Left            =   2160
            TabIndex        =   83
            Top             =   1680
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.Label Label5 
            Caption         =   "Label5"
            Height          =   375
            Left            =   1200
            TabIndex        =   82
            Top             =   1680
            Visible         =   0   'False
            Width           =   735
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   6
            Left            =   4440
            TabIndex        =   33
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   5
            Left            =   3720
            TabIndex        =   32
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   4
            Left            =   3000
            TabIndex        =   14
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   3
            Left            =   2280
            TabIndex        =   13
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   2
            Left            =   1560
            TabIndex        =   12
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   1
            Left            =   840
            TabIndex        =   11
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.Label labLightSignal 
            Caption         =   "signal"
            Height          =   375
            Index           =   0
            Left            =   120
            TabIndex        =   10
            Top             =   5400
            Visible         =   0   'False
            Width           =   495
         End
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Caption         =   "Frame2"
      Height          =   8655
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   6375
      Begin VB.CommandButton cmdNCC 
         BackColor       =   &H0000FF00&

⌨️ 快捷键说明

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