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

📄 frmtemparteriavertebralis.frm

📁 VB6.0编写的医院影像系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Begin VB.Form frmTempArteriaVertebralis 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "椎动脉"
   ClientHeight    =   7620
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11790
   Icon            =   "frmTempArteriaVertebralis.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7620
   ScaleWidth      =   11790
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(Esc)"
      CausesValidation=   0   'False
      Height          =   495
      Left            =   9840
      TabIndex        =   45
      Top             =   7020
      Width           =   1575
   End
   Begin VB.CommandButton cmdCover 
      Caption         =   "覆盖(F3)"
      Height          =   495
      Left            =   8040
      TabIndex        =   44
      Top             =   7020
      Width           =   1635
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(F2)"
      Height          =   495
      Left            =   6240
      TabIndex        =   43
      Top             =   7020
      Width           =   1635
   End
   Begin VB.PictureBox picOutside 
      CausesValidation=   0   'False
      Height          =   6900
      Left            =   0
      ScaleHeight     =   6840
      ScaleWidth      =   11730
      TabIndex        =   46
      TabStop         =   0   'False
      Top             =   0
      Width           =   11790
      Begin VB.PictureBox picInside 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         CausesValidation=   0   'False
         ForeColor       =   &H80000008&
         Height          =   12000
         Left            =   -300
         ScaleHeight     =   12000
         ScaleWidth      =   12045
         TabIndex        =   47
         TabStop         =   0   'False
         Top             =   0
         Width           =   12045
         Begin VB.Frame fraArteriaVertebralis 
            Caption         =   "椎动脉"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   5955
            Left            =   360
            TabIndex        =   42
            Top             =   180
            Width           =   11355
            Begin VB.TextBox txtAV_Z 
               Height          =   270
               Index           =   1
               Left            =   8880
               TabIndex        =   33
               Text            =   "txtAV_Z"
               Top             =   3360
               Width           =   450
            End
            Begin VB.TextBox txtAV_Z 
               Height          =   270
               Index           =   0
               Left            =   8880
               TabIndex        =   19
               Text            =   "txtAV_Z"
               Top             =   1785
               Width           =   450
            End
            Begin VB.TextBox txtAV_DiadtoticPhase 
               Height          =   270
               Index           =   1
               Left            =   8220
               TabIndex        =   41
               Text            =   "txtAV_DiadtoticPhase"
               Top             =   4245
               Width           =   540
            End
            Begin VB.TextBox txtAV_PW 
               Height          =   270
               Index           =   1
               Left            =   5325
               TabIndex        =   40
               Text            =   "txtAV_PW"
               Top             =   4245
               Width           =   540
            End
            Begin VB.ComboBox cboAV_Spectrum 
               Height          =   300
               Index           =   1
               Left            =   2880
               TabIndex        =   39
               Tag             =   "频谱"
               Text            =   "cboAV_Spectrum"
               Top             =   4230
               Width           =   1140
            End
            Begin VB.ComboBox cboAV_CBloodStream 
               Height          =   300
               Index           =   1
               Left            =   1110
               TabIndex        =   38
               Tag             =   "彩色血流"
               Text            =   "cboAV_CBloodStream"
               Top             =   4230
               Width           =   900
            End
            Begin VB.ComboBox cboAV_BloodStream 
               Height          =   300
               Index           =   1
               Left            =   8220
               TabIndex        =   37
               Tag             =   "血流束"
               Text            =   "cboAV_BloodStream"
               Top             =   3780
               Width           =   900
            End
            Begin VB.TextBox txtAV_X 
               Height          =   270
               Index           =   1
               Left            =   7530
               TabIndex        =   31
               Text            =   "txtAV_X"
               Top             =   3360
               Width           =   450
            End
            Begin VB.TextBox txtAV_Y 
               Height          =   270
               Index           =   1
               Left            =   8220
               TabIndex        =   32
               Text            =   "txtAV_Y"
               Top             =   3360
               Width           =   450
            End
            Begin VB.ComboBox cboAV_Place 
               Height          =   300
               Index           =   1
               Left            =   300
               TabIndex        =   28
               Tag             =   "位置"
               Text            =   "cboAV_Place"
               Top             =   3345
               Width           =   720
            End
            Begin VB.ComboBox cboAV_Membrane 
               Height          =   300
               Index           =   1
               Left            =   2355
               TabIndex        =   29
               Tag             =   "内膜"
               Text            =   "cboAV_Membrane"
               Top             =   3345
               Width           =   870
            End
            Begin VB.ComboBox cboAV_Echo 
               Height          =   300
               Index           =   1
               Left            =   4455
               TabIndex        =   30
               Tag             =   "回声斑块"
               Text            =   "cboAV_Echo"
               Top             =   3345
               Width           =   870
            End
            Begin VB.TextBox txtAV_Reduce 
               Height          =   270
               Index           =   1
               Left            =   1110
               TabIndex        =   34
               Text            =   "txtAV_Reduce"
               Top             =   3795
               Width           =   540
            End
            Begin VB.ComboBox cboAV_Narrow 
               Height          =   300
               Index           =   1
               Left            =   2880
               TabIndex        =   35
               Tag             =   "狭窄"
               Text            =   "cboAV_Narrow"
               Top             =   3780
               Width           =   870
            End
            Begin VB.ComboBox cboAV_CDFI 
               Height          =   300
               Index           =   1
               Left            =   5325
               TabIndex        =   36
               Tag             =   "CDFI"
               Text            =   "cboAV_CDFI"
               Top             =   3780
               Width           =   1140
            End
            Begin VB.TextBox txtAV_DiadtoticPhase 
               Height          =   270
               Index           =   0
               Left            =   8205
               TabIndex        =   27
               Text            =   "txtAV_DiadtoticPhase"
               Top             =   2670
               Width           =   540
            End
            Begin VB.TextBox txtAV_PW 
               Height          =   270
               Index           =   0
               Left            =   5310
               TabIndex        =   26
               Text            =   "txtAV_PW"
               Top             =   2670
               Width           =   540
            End
            Begin VB.ComboBox cboAV_Spectrum 
               Height          =   300
               Index           =   0
               Left            =   2865
               TabIndex        =   25
               Tag             =   "频谱"
               Text            =   "cboAV_Spectrum"
               Top             =   2655
               Width           =   1140
            End
            Begin VB.ComboBox cboAV_CBloodStream 
               Height          =   300
               Index           =   0
               Left            =   1095
               TabIndex        =   24
               Tag             =   "彩色血流"
               Text            =   "cboAV_CBloodStream"
               Top             =   2655
               Width           =   900
            End
            Begin VB.ComboBox cboAV_BloodStream 
               Height          =   300
               Index           =   0
               Left            =   8205
               TabIndex        =   23
               Tag             =   "血流束"
               Text            =   "cboAV_BloodStream"
               Top             =   2205
               Width           =   900
            End
            Begin VB.ComboBox cboAV_CDFI 
               Height          =   300
               Index           =   0
               Left            =   5310
               TabIndex        =   22
               Tag             =   "CDFI"
               Text            =   "cboAV_CDFI"
               Top             =   2205
               Width           =   1140
            End
            Begin VB.ComboBox cboAV_Narrow 
               Height          =   300
               Index           =   0
               Left            =   2865
               TabIndex        =   21
               Tag             =   "狭窄"
               Text            =   "cboAV_Narrow"
               Top             =   2205
               Width           =   870
            End
            Begin VB.TextBox txtAV_Reduce 
               Height          =   270
               Index           =   0
               Left            =   1095
               TabIndex        =   20
               Text            =   "txtAV_Reduce"
               Top             =   2220
               Width           =   540
            End
            Begin VB.ComboBox cboAV_Echo 
               Height          =   300
               Index           =   0
               Left            =   4440
               TabIndex        =   16
               Tag             =   "回声斑块"
               Text            =   "cboAV_Echo"
               Top             =   1770
               Width           =   870
            End
            Begin VB.ComboBox cboAV_Membrane 
               Height          =   300
               Index           =   0
               Left            =   2325
               TabIndex        =   15
               Tag             =   "内膜"
               Text            =   "cboAV_Membrane"
               Top             =   1770
               Width           =   870
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   8
               Left            =   6700
               TabIndex        =   8
               Text            =   "txtAV_L_MN"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   9
               Left            =   7240
               TabIndex        =   9
               Text            =   "txtAV_R_MN"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   10
               Left            =   8090
               TabIndex        =   10
               Text            =   "txtAV_L_RI"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   11
               Left            =   8630
               TabIndex        =   11
               Text            =   "txtAV_R_RI"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   12
               Left            =   9480
               TabIndex        =   12
               Text            =   "txtAV_L_PI"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   13
               Left            =   10020
               TabIndex        =   13
               Text            =   "txtAV_R_PI"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   1
               Left            =   1680
               TabIndex        =   1
               Text            =   "txtAV_R_ID"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   2
               Left            =   2530
               TabIndex        =   2
               Text            =   "txtAV_L_Thick"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   4
               Left            =   3920
               TabIndex        =   4
               Text            =   "txtAV_L_S"
               Top             =   1080
               Width           =   480
            End
            Begin VB.TextBox txtAV 
               Height          =   270
               Index           =   5

⌨️ 快捷键说明

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