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

📄 frmmain.frm

📁 一个不错的数控源码是vb的
💻 FRM
📖 第 1 页 / 共 5 页
字号:
         Left            =   4800
         Picture         =   "frmMain.frx":D9549
         Style           =   1  'Graphical
         TabIndex        =   52
         Top             =   6360
         Width           =   435
      End
      Begin TabDlg.SSTab tabProcess 
         Height          =   2055
         Left            =   120
         TabIndex        =   49
         Top             =   6480
         Width           =   6165
         _ExtentX        =   10874
         _ExtentY        =   3625
         _Version        =   393216
         Style           =   1
         Tabs            =   2
         Tab             =   1
         TabsPerRow      =   2
         TabHeight       =   520
         BackColor       =   8421504
         TabCaption(0)   =   "打 开 文 件"
         TabPicture(0)   =   "frmMain.frx":DA053
         Tab(0).ControlEnabled=   0   'False
         Tab(0).Control(0)=   "CommonDialog1"
         Tab(0).Control(1)=   "lblFilePath"
         Tab(0).Control(2)=   "Label1"
         Tab(0).Control(3)=   "Label3"
         Tab(0).ControlCount=   4
         TabCaption(1)   =   "加 工 统 计"
         TabPicture(1)   =   "frmMain.frx":DA06F
         Tab(1).ControlEnabled=   -1  'True
         Tab(1).Control(0)=   "Label4"
         Tab(1).Control(0).Enabled=   0   'False
         Tab(1).Control(1)=   "Label9"
         Tab(1).Control(1).Enabled=   0   'False
         Tab(1).Control(2)=   "Label10"
         Tab(1).Control(2).Enabled=   0   'False
         Tab(1).Control(3)=   "Label11"
         Tab(1).Control(3).Enabled=   0   'False
         Tab(1).Control(4)=   "Label12"
         Tab(1).Control(4).Enabled=   0   'False
         Tab(1).Control(5)=   "Label14"
         Tab(1).Control(5).Enabled=   0   'False
         Tab(1).Control(6)=   "Label15"
         Tab(1).Control(6).Enabled=   0   'False
         Tab(1).Control(7)=   "lblProcessed"
         Tab(1).Control(7).Enabled=   0   'False
         Tab(1).Control(8)=   "lblFinishRate"
         Tab(1).Control(8).Enabled=   0   'False
         Tab(1).Control(9)=   "lblFailingRate"
         Tab(1).Control(9).Enabled=   0   'False
         Tab(1).Control(10)=   "Label16(1)"
         Tab(1).Control(10).Enabled=   0   'False
         Tab(1).Control(11)=   "Label16(2)"
         Tab(1).Control(11).Enabled=   0   'False
         Tab(1).Control(12)=   "Label17(0)"
         Tab(1).Control(12).Enabled=   0   'False
         Tab(1).Control(13)=   "Label17(1)"
         Tab(1).Control(13).Enabled=   0   'False
         Tab(1).Control(14)=   "Label18(0)"
         Tab(1).Control(14).Enabled=   0   'False
         Tab(1).Control(15)=   "Label18(1)"
         Tab(1).Control(15).Enabled=   0   'False
         Tab(1).Control(16)=   "lblAccumulationTime(0)"
         Tab(1).Control(16).Enabled=   0   'False
         Tab(1).Control(17)=   "lblAccumulationTime(1)"
         Tab(1).Control(17).Enabled=   0   'False
         Tab(1).Control(18)=   "lblAccumulationTime(2)"
         Tab(1).Control(18).Enabled=   0   'False
         Tab(1).Control(19)=   "lblAverageTime(0)"
         Tab(1).Control(19).Enabled=   0   'False
         Tab(1).Control(20)=   "lblAverageTime(1)"
         Tab(1).Control(20).Enabled=   0   'False
         Tab(1).Control(21)=   "lblAverageTime(2)"
         Tab(1).Control(21).Enabled=   0   'False
         Tab(1).Control(22)=   "Label2(0)"
         Tab(1).Control(22).Enabled=   0   'False
         Tab(1).Control(23)=   "Label2(1)"
         Tab(1).Control(23).Enabled=   0   'False
         Tab(1).Control(24)=   "lblDate"
         Tab(1).Control(24).Enabled=   0   'False
         Tab(1).Control(25)=   "cmdSave"
         Tab(1).Control(25).Enabled=   0   'False
         Tab(1).ControlCount=   26
         Begin VB.CommandButton cmdSave 
            BackColor       =   &H8000000C&
            Caption         =   "保存"
            Height          =   255
            Left            =   5400
            Style           =   1  'Graphical
            TabIndex        =   79
            Top             =   1560
            Width           =   495
         End
         Begin MSComDlg.CommonDialog CommonDialog1 
            Left            =   -74760
            Top             =   1440
            _ExtentX        =   847
            _ExtentY        =   847
            _Version        =   393216
         End
         Begin VB.Label lblFilePath 
            BackColor       =   &H00000000&
            ForeColor       =   &H0000FF00&
            Height          =   975
            Left            =   -74520
            TabIndex        =   78
            Top             =   840
            Width           =   5295
         End
         Begin VB.Label lblDate 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "Label5"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   1200
            TabIndex        =   77
            Top             =   480
            Width           =   540
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "%"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   5760
            TabIndex        =   76
            Top             =   840
            Width           =   90
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "%"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   0
            Left            =   3960
            TabIndex        =   75
            Top             =   840
            Width           =   90
         End
         Begin VB.Label lblAverageTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   2
            Left            =   3840
            TabIndex        =   74
            Top             =   1200
            Width           =   90
         End
         Begin VB.Label lblAverageTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   3240
            TabIndex        =   73
            Top             =   1200
            Width           =   90
         End
         Begin VB.Label lblAverageTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   0
            Left            =   2400
            TabIndex        =   72
            Top             =   1200
            Width           =   90
         End
         Begin VB.Label lblAccumulationTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   2
            Left            =   3840
            TabIndex        =   71
            Top             =   1560
            Width           =   90
         End
         Begin VB.Label lblAccumulationTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   3240
            TabIndex        =   70
            Top             =   1560
            Width           =   90
         End
         Begin VB.Label lblAccumulationTime 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   0
            Left            =   2400
            TabIndex        =   69
            Top             =   1560
            Width           =   90
         End
         Begin VB.Label Label18 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "秒"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   4080
            TabIndex        =   68
            Top             =   1200
            Width           =   180
         End
         Begin VB.Label Label18 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "秒"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   0
            Left            =   4080
            TabIndex        =   67
            Top             =   1560
            Width           =   180
         End
         Begin VB.Label Label17 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "分"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   3480
            TabIndex        =   66
            Top             =   1200
            Width           =   180
         End
         Begin VB.Label Label17 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "分"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   0
            Left            =   3480
            TabIndex        =   65
            Top             =   1560
            Width           =   180
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "小时"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   2
            Left            =   2640
            TabIndex        =   64
            Top             =   1200
            Width           =   360
         End
         Begin VB.Label Label16 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "小时"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Index           =   1
            Left            =   2640
            TabIndex        =   63
            Top             =   1560
            Width           =   360
         End
         Begin VB.Label lblFailingRate 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   5400
            TabIndex        =   62
            Top             =   840
            Width           =   90
         End
         Begin VB.Label lblFinishRate 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   3600
            TabIndex        =   61
            Top             =   840
            Width           =   90
         End
         Begin VB.Label lblProcessed 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "0"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   1200
            TabIndex        =   60
            Top             =   840
            Width           =   90
         End
         Begin VB.Label Label15 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "累计加工时间:"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   240
            TabIndex        =   59
            Top             =   1560
            Width           =   1260
         End
         Begin VB.Label Label14 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "本次加工时间:"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   240
            TabIndex        =   58
            Top             =   1200
            Width           =   1260
         End
         Begin VB.Label Label12 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "次品率:"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   4440
            TabIndex        =   57
            Top             =   840
            Width           =   720
         End
         Begin VB.Label Label11 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "成品率:"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   2520
            TabIndex        =   56
            Top             =   840
            Width           =   720
         End
         Begin VB.Label Label10 
            AutoSize        =   -1  'True
            BackColor       =   &H00000000&
            Caption         =   "已加工:"
            ForeColor       =   &H0000FF00&
            Height          =   180
            Left            =   240
            TabIndex        =   55

⌨️ 快捷键说明

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