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

📄 dlgss7dtesttype.frm

📁 电力机车牵引变压器试验站总控程序
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form dlgSS7DTesttype 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "SS7D试验类型"
   ClientHeight    =   15000
   ClientLeft      =   435
   ClientTop       =   315
   ClientWidth     =   19080
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   15000
   ScaleWidth      =   19080
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame13 
      Caption         =   "提示信息:"
      Height          =   2295
      Left            =   14520
      TabIndex        =   95
      Top             =   4320
      Width           =   3855
      Begin VB.TextBox Text6 
         Height          =   1935
         Left            =   120
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   96
         Top             =   240
         Width           =   3615
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Frame2"
      Height          =   2535
      Left            =   600
      TabIndex        =   91
      Top             =   5400
      Width           =   4335
      Begin MSComctlLib.ProgressBar ProgressBar1 
         Height          =   1455
         Left            =   480
         TabIndex        =   92
         Top             =   360
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   2566
         _Version        =   393216
         Appearance      =   1
         Orientation     =   1
      End
      Begin MSComctlLib.ProgressBar ProgressBar2 
         Height          =   1455
         Left            =   1080
         TabIndex        =   93
         Top             =   360
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   2566
         _Version        =   393216
         Appearance      =   1
         Orientation     =   1
      End
      Begin MSComctlLib.ProgressBar ProgressBar3 
         Height          =   1455
         Left            =   1680
         TabIndex        =   94
         Top             =   360
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   2566
         _Version        =   393216
         Appearance      =   1
         Orientation     =   1
      End
   End
   Begin VB.CommandButton Command17 
      Caption         =   "试验组别选择"
      Enabled         =   0   'False
      Height          =   495
      Left            =   8040
      TabIndex        =   55
      Top             =   5400
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton Command14 
      Caption         =   "继电器闭合"
      Enabled         =   0   'False
      Height          =   495
      Left            =   9480
      TabIndex        =   54
      Top             =   5400
      Width           =   1215
   End
   Begin VB.CommandButton Command13 
      Caption         =   "继电器断开"
      Enabled         =   0   'False
      Height          =   495
      Left            =   9480
      TabIndex        =   53
      Top             =   6000
      Width           =   1215
   End
   Begin VB.CommandButton Command12 
      Caption         =   "升压"
      Enabled         =   0   'False
      Height          =   495
      Left            =   10920
      TabIndex        =   52
      Top             =   5400
      Width           =   1215
   End
   Begin VB.CommandButton Command11 
      Caption         =   "降压"
      Enabled         =   0   'False
      Height          =   495
      Left            =   10920
      TabIndex        =   51
      Top             =   6000
      Width           =   1215
   End
   Begin VB.CommandButton Command15 
      Caption         =   "填写试验结果"
      Enabled         =   0   'False
      Height          =   495
      Left            =   12360
      TabIndex        =   50
      Top             =   5400
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton Command16 
      Caption         =   "试验项目完成"
      Enabled         =   0   'False
      Height          =   495
      Left            =   12360
      TabIndex        =   49
      Top             =   6000
      Width           =   1215
   End
   Begin VB.Frame Frame8 
      Caption         =   "正在保存文件.............."
      Height          =   615
      Left            =   6360
      TabIndex        =   36
      Top             =   6600
      Visible         =   0   'False
      Width           =   3615
      Begin MSComctlLib.ProgressBar ProgressBar4 
         Height          =   255
         Left            =   0
         TabIndex        =   37
         Top             =   240
         Visible         =   0   'False
         Width           =   3615
         _ExtentX        =   6376
         _ExtentY        =   450
         _Version        =   393216
         Appearance      =   1
      End
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   14415
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   19125
      _ExtentX        =   33734
      _ExtentY        =   25426
      _Version        =   393216
      Tabs            =   4
      Tab             =   1
      TabsPerRow      =   4
      TabHeight       =   520
      TabCaption(0)   =   "主变压器试验"
      TabPicture(0)   =   "dlgSS7DTesttype.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(1)=   "Command2"
      Tab(0).Control(2)=   "Command1"
      Tab(0).Control(3)=   "Frame3"
      Tab(0).Control(4)=   "Image1(0)"
      Tab(0).ControlCount=   5
      TabCaption(1)   =   "平波电抗器试验"
      TabPicture(1)   =   "dlgSS7DTesttype.frx":001C
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "Image1(1)"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "Frame4"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).Control(2)=   "Command3"
      Tab(1).Control(2).Enabled=   0   'False
      Tab(1).Control(3)=   "Command4"
      Tab(1).Control(3).Enabled=   0   'False
      Tab(1).Control(4)=   "Frame5"
      Tab(1).Control(4).Enabled=   0   'False
      Tab(1).ControlCount=   5
      TabCaption(2)   =   "供电电抗器试验"
      TabPicture(2)   =   "dlgSS7DTesttype.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Frame7"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "Frame6"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).Control(2)=   "Command6"
      Tab(2).Control(2).Enabled=   0   'False
      Tab(2).Control(3)=   "Command5"
      Tab(2).Control(3).Enabled=   0   'False
      Tab(2).Control(4)=   "Image1(2)"
      Tab(2).Control(4).Enabled=   0   'False
      Tab(2).ControlCount=   5
      TabCaption(3)   =   "高压电流互感器试验"
      TabPicture(3)   =   "dlgSS7DTesttype.frx":0054
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "Frame12"
      Tab(3).Control(0).Enabled=   0   'False
      Tab(3).Control(1)=   "Frame11"
      Tab(3).Control(1).Enabled=   0   'False
      Tab(3).Control(2)=   "Command10"
      Tab(3).Control(2).Enabled=   0   'False
      Tab(3).Control(3)=   "Command9"
      Tab(3).Control(3).Enabled=   0   'False
      Tab(3).Control(4)=   "Image1(3)"
      Tab(3).Control(4).Enabled=   0   'False
      Tab(3).ControlCount=   5
      Begin VB.Frame Frame12 
         Caption         =   "试验项目"
         Height          =   2655
         Left            =   -68160
         TabIndex        =   85
         Top             =   1320
         Width           =   6975
         Begin VB.OptionButton Option1 
            Caption         =   "外施工频耐压试验"
            Height          =   495
            Index           =   31
            Left            =   2760
            TabIndex        =   90
            Top             =   1560
            Width           =   1815
         End
         Begin VB.OptionButton Option1 
            Caption         =   "绝缘电阻值测定"
            Height          =   495
            Index           =   30
            Left            =   600
            TabIndex        =   89
            Top             =   1560
            Width           =   1695
         End
         Begin VB.OptionButton Option1 
            Caption         =   "10%倍数下误差试验"
            Height          =   495
            Index           =   29
            Left            =   4800
            TabIndex        =   88
            Top             =   720
            Width           =   1935
         End
         Begin VB.OptionButton Option1 
            Caption         =   "误差试验"
            Height          =   495
            Index           =   28
            Left            =   2760
            TabIndex        =   87
            Top             =   720
            Width           =   1215
         End
         Begin VB.OptionButton Option1 
            Caption         =   "线圈极性检查"
            Height          =   495
            Index           =   27
            Left            =   600
            TabIndex        =   86
            Top             =   720
            Width           =   1455
         End
      End
      Begin VB.Frame Frame7 
         Caption         =   "试验项目"
         Height          =   2655
         Left            =   -68400
         TabIndex        =   79
         Top             =   840
         Width           =   6375
         Begin VB.OptionButton Option1 
            Caption         =   "外观检查"
            Height          =   495
            Index           =   17
            Left            =   360
            TabIndex        =   84
            Top             =   720
            Width           =   1215
         End
         Begin VB.OptionButton Option1 
            Caption         =   "绕组直流电阻测定"
            Height          =   495
            Index           =   18
            Left            =   2280
            TabIndex        =   83
            Top             =   720
            Width           =   1815
         End
         Begin VB.OptionButton Option1 
            Caption         =   "绝缘电阻值测定"
            Height          =   495
            Index           =   19
            Left            =   4440
            TabIndex        =   82
            Top             =   720
            Width           =   1575
         End
         Begin VB.OptionButton Option1 
            Caption         =   "测量交流电感的"
            Height          =   495
            Index           =   20
            Left            =   360
            TabIndex        =   81
            Top             =   1560
            Width           =   1695
         End
         Begin VB.OptionButton Option1 
            Caption         =   "外施工频耐压试验"
            Height          =   495
            Index           =   21
            Left            =   2280
            TabIndex        =   80
            Top             =   1560
            Width           =   1815
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "试验项目"
         Height          =   2175
         Left            =   6840
         TabIndex        =   74
         Top             =   1200
         Width           =   4695
         Begin VB.OptionButton Option1 
            Caption         =   "外施工频耐压试验"
            Height          =   495
            Index           =   16
            Left            =   2520
            TabIndex        =   78
            Top             =   1320
            Width           =   1815
         End
         Begin VB.OptionButton Option1 
            Caption         =   "交流电感的测量"
            Height          =   495
            Index           =   15
            Left            =   360
            TabIndex        =   77
            Top             =   1320
            Width           =   1575
         End
         Begin VB.OptionButton Option1 
            Caption         =   "绕组直流电阻测定"
            Height          =   495
            Index           =   14
            Left            =   2520
            TabIndex        =   76
            Top             =   360
            Width           =   1815
         End
         Begin VB.OptionButton Option1 
            Caption         =   "外观检查"
            Height          =   495
            Index           =   13
            Left            =   360
            TabIndex        =   75
            Top             =   360
            Width           =   1215
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "试验项目"
         Enabled         =   0   'False
         Height          =   4335
         Left            =   -69000
         TabIndex        =   60
         Top             =   720
         Width           =   7095
         Begin VB.OptionButton Option1 
            Caption         =   "外观检查"
            Height          =   495
            Index           =   0
            Left            =   360
            TabIndex        =   73
            Top             =   360
            Width           =   1215
         End
         Begin VB.OptionButton Option1 
            Caption         =   "密封试验"
            Height          =   495
            Index           =   1
            Left            =   2760
            TabIndex        =   72

⌨️ 快捷键说明

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