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

📄 frm_hfecg2.frm

📁 在VB上采用改进的阈值法检测心电高频向量
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frm_HFECG2 
   Appearance      =   0  'Flat
   BackColor       =   &H00808080&
   Caption         =   "高频心电图分析"
   ClientHeight    =   8610
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10935
   ForeColor       =   &H8000000F&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   8610
   ScaleWidth      =   10935
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      BackColor       =   &H00C0C0C0&
      Caption         =   "切迹、扭挫"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2640
      Style           =   1  'Graphical
      TabIndex        =   72
      Top             =   8520
      Width           =   1095
   End
   Begin VB.TextBox Text26 
      Height          =   300
      Left            =   11880
      TabIndex        =   71
      Top             =   10080
      Width           =   800
   End
   Begin VB.TextBox Text25 
      Height          =   300
      Left            =   11880
      TabIndex        =   70
      Top             =   9840
      Width           =   800
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00C0C0C0&
      Caption         =   "切迹、扭挫显示"
      Height          =   615
      Left            =   1320
      Style           =   1  'Graphical
      TabIndex        =   68
      Top             =   8520
      Width           =   1095
   End
   Begin VB.TextBox Text24 
      Height          =   300
      Left            =   11280
      TabIndex        =   67
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text23 
      Height          =   300
      Left            =   10680
      TabIndex        =   66
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text22 
      Height          =   300
      Left            =   10080
      TabIndex        =   65
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text21 
      Height          =   300
      Left            =   9480
      TabIndex        =   64
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text20 
      Height          =   300
      Left            =   8880
      TabIndex        =   63
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text19 
      Height          =   300
      Left            =   8280
      TabIndex        =   62
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text18 
      Height          =   300
      Left            =   7680
      TabIndex        =   61
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text17 
      Height          =   300
      Left            =   7080
      TabIndex        =   60
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text16 
      Height          =   300
      Left            =   6480
      TabIndex        =   59
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text15 
      Height          =   300
      Left            =   5880
      TabIndex        =   58
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text14 
      Height          =   300
      Left            =   5280
      TabIndex        =   57
      Top             =   10080
      Width           =   600
   End
   Begin VB.TextBox Text13 
      Height          =   300
      Left            =   4680
      TabIndex        =   56
      Top             =   10080
      Width           =   615
   End
   Begin VB.TextBox Text12 
      Height          =   300
      Left            =   11280
      TabIndex        =   42
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text11 
      Height          =   300
      Left            =   10680
      TabIndex        =   41
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text10 
      Height          =   300
      Left            =   10080
      TabIndex        =   40
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text9 
      Height          =   300
      Left            =   9480
      TabIndex        =   39
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text8 
      Height          =   300
      Left            =   8880
      TabIndex        =   38
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text7 
      Height          =   300
      Left            =   8280
      TabIndex        =   37
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text6 
      Height          =   300
      Left            =   7680
      TabIndex        =   36
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text5 
      Height          =   300
      Left            =   7080
      TabIndex        =   35
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text4 
      Height          =   300
      Left            =   6480
      TabIndex        =   34
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text3 
      Height          =   300
      Left            =   5880
      TabIndex        =   33
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text2 
      Height          =   300
      Left            =   5280
      TabIndex        =   32
      Top             =   9840
      Width           =   600
   End
   Begin VB.TextBox Text1 
      Height          =   300
      Left            =   4680
      TabIndex        =   29
      Top             =   9840
      Width           =   600
   End
   Begin VB.CommandButton Command7 
      BackColor       =   &H00C0C0C0&
      Caption         =   "HFECG波形显示"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   2520
      Style           =   1  'Graphical
      TabIndex        =   28
      Top             =   9840
      Width           =   855
   End
   Begin VB.HScrollBar HScroll12 
      Height          =   255
      LargeChange     =   400
      Left            =   11280
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   27
      Top             =   6240
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll11 
      Height          =   255
      LargeChange     =   400
      Left            =   7560
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   26
      Top             =   6240
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll10 
      Height          =   255
      LargeChange     =   400
      Left            =   3840
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   25
      Top             =   6240
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll9 
      Height          =   255
      LargeChange     =   400
      Left            =   120
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   24
      Top             =   6240
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll8 
      Height          =   255
      LargeChange     =   400
      Left            =   11280
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   23
      Top             =   4080
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll7 
      Height          =   255
      LargeChange     =   400
      Left            =   7560
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   22
      Top             =   4080
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll6 
      Height          =   255
      LargeChange     =   400
      Left            =   3840
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   21
      Top             =   4080
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll5 
      Height          =   255
      LargeChange     =   400
      Left            =   120
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   20
      Top             =   4080
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll4 
      Height          =   255
      LargeChange     =   400
      Left            =   11280
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   19
      Top             =   2040
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll3 
      Height          =   255
      LargeChange     =   400
      Left            =   7560
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   18
      Top             =   2040
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll2 
      Height          =   255
      LargeChange     =   400
      Left            =   3840
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   17
      Top             =   2040
      Width           =   3735
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   255
      LargeChange     =   400
      Left            =   120
      Max             =   6400
      SmallChange     =   100
      TabIndex        =   16
      Top             =   2040
      Width           =   3735
   End
   Begin VB.PictureBox Picture12 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   11280
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   15
      Top             =   4680
      Width           =   3735
   End
   Begin VB.PictureBox Picture11 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   7560
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   14
      Top             =   4680
      Width           =   3735
   End
   Begin VB.PictureBox Picture10 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   3840
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   13
      Top             =   4680
      Width           =   3735
   End
   Begin VB.PictureBox Picture9 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   120
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   12
      Top             =   4680
      Width           =   3735
   End
   Begin VB.PictureBox Picture8 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   11280
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   11
      Top             =   2520
      Width           =   3735
   End
   Begin VB.PictureBox Picture7 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   7560
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   10
      Top             =   2520
      Width           =   3735
   End
   Begin VB.PictureBox Picture6 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   3840
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   9
      Top             =   2520
      Width           =   3735
   End
   Begin VB.PictureBox Picture5 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   120
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   8
      Top             =   2520
      Width           =   3735
   End
   Begin VB.PictureBox Picture4 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   11280
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   7
      Top             =   480
      Width           =   3735
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   7560
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   6
      Top             =   480
      Width           =   3735
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   3840
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   5
      Top             =   480
      Width           =   3735
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      Height          =   1575
      Left            =   120
      ScaleHeight     =   1515
      ScaleWidth      =   3675
      TabIndex        =   4
      Top             =   480
      Width           =   3735
   End
   Begin VB.CommandButton Command6 
      BackColor       =   &H00C0C0C0&
      Caption         =   "差分波形"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   13920
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   9360
      Width           =   1095
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H00C0C0C0&
      Caption         =   "找QRS波群"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1440
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   9840
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   14040
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   10080
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "HFECG信号获取"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   360
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   9840
      Width           =   855
   End
   Begin MSComDlg.CommonDialog dlgCommondi1 
      Left            =   360
      Top             =   480
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
      Color           =   4210752
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "总数"
      Height          =   300
      Left            =   11880
      TabIndex        =   69
      Top             =   9480
      Width           =   800
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "12"
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   11280
      TabIndex        =   55
      Top             =   9480
      Width           =   600
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "11"
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   10680
      TabIndex        =   54
      Top             =   9480
      Width           =   600
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "10"
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   10080

⌨️ 快捷键说明

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