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

📄 frmpg2.frm

📁 这是一个实际的工程中所用的源程序
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Begin VB.Form frmPG2 
   BackColor       =   &H80000001&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "2#中控开关设备控制"
   ClientHeight    =   4755
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   10965
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4755
   ScaleWidth      =   10965
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label lbTitle 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "2#中控开关设备控制状态"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000E&
      Height          =   315
      Left            =   3900
      TabIndex        =   99
      Top             =   60
      Width           =   4215
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   98
      Left            =   9390
      Shape           =   3  'Circle
      Top             =   1065
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   98
      Left            =   9690
      TabIndex        =   98
      Top             =   1065
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   97
      Left            =   9390
      Shape           =   3  'Circle
      Top             =   795
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   97
      Left            =   9690
      TabIndex        =   97
      Top             =   795
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   96
      Left            =   9390
      Shape           =   3  'Circle
      Top             =   540
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   96
      Left            =   9690
      TabIndex        =   96
      Top             =   540
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   95
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   4470
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   95
      Left            =   8160
      TabIndex        =   95
      Top             =   4470
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   94
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   4215
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   94
      Left            =   8160
      TabIndex        =   94
      Top             =   4215
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   93
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   3945
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   93
      Left            =   8160
      TabIndex        =   93
      Top             =   3945
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   92
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   3690
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   92
      Left            =   8160
      TabIndex        =   92
      Top             =   3690
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   91
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   3420
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   91
      Left            =   8160
      TabIndex        =   91
      Top             =   3420
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   90
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   3165
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   90
      Left            =   8160
      TabIndex        =   90
      Top             =   3165
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   89
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   2895
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   89
      Left            =   8160
      TabIndex        =   89
      Top             =   2895
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   88
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   2640
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   88
      Left            =   8160
      TabIndex        =   88
      Top             =   2640
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   87
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   2370
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   87
      Left            =   8160
      TabIndex        =   87
      Top             =   2370
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   86
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   2115
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   86
      Left            =   8160
      TabIndex        =   86
      Top             =   2115
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   85
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   1845
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   85
      Left            =   8160
      TabIndex        =   85
      Top             =   1845
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   84
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   1590
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   84
      Left            =   8160
      TabIndex        =   84
      Top             =   1590
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   83
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   1320
      Width           =   285
   End
   Begin VB.Label lbSB 
      BackColor       =   &H80000001&
      Caption         =   "5#斗轮机堆料"
      ForeColor       =   &H80000005&
      Height          =   195
      Index           =   83
      Left            =   8160
      TabIndex        =   83
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Shape shpSB 
      BackColor       =   &H0000FFFF&
      BackStyle       =   1  'Opaque
      FillColor       =   &H80000004&
      FillStyle       =   0  'Solid
      Height          =   225
      Index           =   82
      Left            =   7860
      Shape           =   3  'Circle
      Top             =   1065
      Width           =   285

⌨️ 快捷键说明

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