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

📄 frmmain1.frm

📁 VISUAL BASIC 6 实现的自动化控制系统程序. 里面包含了好几个OCX源代码.我5年前的作品.现在看起来有点垃圾了.
💻 FRM
📖 第 1 页 / 共 5 页
字号:
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         带小数          =   0   'False
      End
      Begin VB.Timer Timer2 
         Interval        =   400
         Left            =   1680
         Top             =   720
      End
      Begin MSAdodcLib.Adodc AdoPump 
         Height          =   330
         Left            =   495
         Top             =   -150
         Visible         =   0   'False
         Width           =   1425
         _ExtentX        =   2514
         _ExtentY        =   582
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   1
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb98\SL_QLY_RuiAn.mdb;Persist Security Info=False"
         OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb98\SL_QLY_RuiAn.mdb;Persist Security Info=False"
         OLEDBFile       =   ""
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   ""
         Caption         =   "AdoPump"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
      Begin MSAdodcLib.Adodc AdoValve 
         Height          =   330
         Left            =   2010
         Top             =   -150
         Visible         =   0   'False
         Width           =   2010
         _ExtentX        =   3545
         _ExtentY        =   582
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   2
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   "FILE NAME=D:\vb98\SL_QLY_RuiAn.UDL"
         OLEDBString     =   ""
         OLEDBFile       =   "D:\vb98\SL_QLY_RuiAn.UDL"
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   ""
         Caption         =   "AdoValve"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   0
         Left            =   1920
         TabIndex        =   3
         ToolTipText     =   "ToolTipText"
         Top             =   8160
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         TitlName        =   "12"
         OpenTime        =   "45"
         AddAmount       =   0
         IsChange        =   -1  'True
         IsInTab         =   -1  'True
         PopuMnuAble     =   -1  'True
         IsMaster        =   -1  'True
         MasterID        =   23
      End
      Begin VB.Timer Timer1 
         Interval        =   200
         Left            =   1080
         Top             =   720
      End
      Begin MSCommLib.MSComm MSComm1 
         Left            =   600
         Top             =   1200
         _ExtentX        =   1005
         _ExtentY        =   1005
         _Version        =   393216
         DTREnable       =   -1  'True
         RThreshold      =   18
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   1
         Left            =   1320
         TabIndex        =   4
         ToolTipText     =   "this is a tooltiptext"
         Top             =   8280
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   2
         Left            =   4560
         TabIndex        =   5
         Top             =   2520
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   3
         Left            =   4560
         TabIndex        =   6
         Top             =   4815
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   4
         Left            =   5520
         TabIndex        =   7
         Top             =   2520
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   5
         Left            =   5520
         TabIndex        =   8
         Top             =   4800
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   6
         Left            =   9360
         TabIndex        =   9
         Top             =   2520
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   7
         Left            =   9360
         TabIndex        =   10
         Top             =   4800
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   1
         Left            =   120
         TabIndex        =   37
         Top             =   8160
         Width           =   885
         _ExtentX        =   1561
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   4
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   2
         Left            =   3000
         TabIndex        =   38
         Top             =   2880
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   3
         Left            =   3000
         TabIndex        =   39
         Top             =   5280
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   4
         Left            =   5760
         TabIndex        =   40
         Top             =   2880
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   5
         Left            =   5760
         TabIndex        =   41
         Top             =   5280
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   6
         Left            =   8280
         TabIndex        =   42
         Top             =   2880
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   7
         Left            =   8280
         TabIndex        =   43
         Top             =   5280
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFlow 
         Height          =   405
         Index           =   1
         Left            =   7920
         TabIndex        =   45
         Top             =   1320
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   714
         yxstyle         =   0   'False
         Value           =   12.3
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   8
         Left            =   10440
         TabIndex        =   46
         Top             =   2880
         Width           =   1110
         _ExtentX        =   1958
         _ExtentY        =   714
         yxstyle         =   0   'False
         LEDLEN          =   5
         Value           =   12.3
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   8
         Left            =   10395
         TabIndex        =   47
         ToolTipText     =   "ToolTipText"
         Top             =   2520
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         OpenTime        =   "45"
         AddAmount       =   0
         IsChange        =   -1  'True
         IsInTab         =   -1  'True
         PopuMnuAble     =   -1  'True
         IsMaster        =   -1  'True
         MasterID        =   23
      End
      Begin ValveControlS.MyValve MyValve 
         Height          =   315
         Index           =   9
         Left            =   10395
         TabIndex        =   48
         Top             =   4815
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   556
         BackColor       =   12632319
         AddAmount       =   0
         PopuMnuAble     =   -1  'True
      End
      Begin 工程1.NUMCTL TxtFluxV 
         Height          =   405
         Index           =   9
         Left            =   10440
         TabIndex        =   49

⌨️ 快捷键说明

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