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

📄 frmtempgb_p_s_bp.frm

📁 VB6.0编写的医院影像系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Begin VB.Form frmTempL_GB_P_S_BP 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "肝胆胰脾后腹膜"
   ClientHeight    =   7635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11790
   Icon            =   "frmTempL_GB_P_S_BP.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7635
   ScaleWidth      =   11790
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(Esc)"
      CausesValidation=   0   'False
      Height          =   495
      Left            =   9840
      TabIndex        =   60
      Top             =   7020
      Width           =   1575
   End
   Begin VB.CommandButton cmdCover 
      Caption         =   "覆盖(F3)"
      Height          =   495
      Left            =   8040
      TabIndex        =   59
      Top             =   7020
      Width           =   1635
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加(F2)"
      Height          =   495
      Left            =   6240
      TabIndex        =   58
      Top             =   7020
      Width           =   1635
   End
   Begin VB.PictureBox picOutside 
      CausesValidation=   0   'False
      Height          =   6900
      Left            =   0
      ScaleHeight     =   6840
      ScaleWidth      =   11730
      TabIndex        =   62
      TabStop         =   0   'False
      Top             =   0
      Width           =   11790
      Begin VB.VScrollBar vsbTemplet 
         CausesValidation=   0   'False
         Height          =   6840
         LargeChange     =   6000
         Left            =   11475
         Max             =   6000
         SmallChange     =   1500
         TabIndex        =   61
         TabStop         =   0   'False
         Top             =   0
         Width           =   255
      End
      Begin VB.PictureBox picInside 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         CausesValidation=   0   'False
         ForeColor       =   &H80000008&
         Height          =   9000
         Left            =   -300
         ScaleHeight     =   9000
         ScaleWidth      =   12045
         TabIndex        =   63
         TabStop         =   0   'False
         Tag             =   "腹部"
         Top             =   60
         Width           =   12045
         Begin VB.Frame fraBackPeritoneum 
            Caption         =   "后腹膜"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   795
            Left            =   360
            TabIndex        =   129
            Top             =   7350
            Width           =   11355
            Begin VB.TextBox txtBP_Z 
               Height          =   270
               Left            =   6540
               TabIndex        =   56
               Text            =   "txtBP_Z"
               Top             =   330
               Width           =   495
            End
            Begin VB.TextBox txtBP_Length 
               Height          =   270
               Left            =   4980
               TabIndex        =   54
               Text            =   "txtBP_Length"
               Top             =   330
               Width           =   495
            End
            Begin VB.TextBox txtBP_Width 
               Height          =   270
               Left            =   5760
               TabIndex        =   55
               Text            =   "txtBP_Width"
               Top             =   330
               Width           =   495
            End
            Begin VB.ComboBox cboBP_Bigger 
               Height          =   300
               Left            =   4200
               TabIndex        =   53
               Tag             =   "大小"
               Text            =   "cboBP_Bigger"
               Top             =   315
               Width           =   735
            End
            Begin VB.ComboBox cboBP_LymphNode 
               Height          =   300
               Left            =   1140
               TabIndex        =   52
               Tag             =   "腹主动脉旁"
               Text            =   "cboBP_LymphNode"
               Top             =   315
               Width           =   1395
            End
            Begin VB.Label Label71 
               Caption         =   "×"
               Height          =   195
               Left            =   6300
               TabIndex        =   139
               Top             =   368
               Width           =   195
            End
            Begin VB.Label Label56 
               Alignment       =   2  'Center
               Caption         =   "×"
               Height          =   195
               Left            =   5580
               TabIndex        =   133
               Top             =   375
               Width           =   135
            End
            Begin VB.Label Label57 
               Caption         =   "mm。"
               Height          =   195
               Left            =   7140
               TabIndex        =   132
               Top             =   375
               Width           =   315
            End
            Begin VB.Label Label58 
               Caption         =   "腹主动脉旁"
               Height          =   195
               Left            =   180
               TabIndex        =   131
               Top             =   375
               Width           =   975
            End
            Begin VB.Label Label59 
               Caption         =   "肿大淋巴结,"
               Height          =   195
               Left            =   2640
               TabIndex        =   130
               Top             =   375
               Width           =   1035
            End
         End
         Begin VB.Frame fraLiver 
            Caption         =   "肝脏"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   2055
            Left            =   360
            TabIndex        =   101
            Top             =   480
            Width           =   11355
            Begin VB.ComboBox cboL_Envelope 
               Height          =   300
               Left            =   2820
               TabIndex        =   17
               Tag             =   "肿块包膜"
               Text            =   "cboL_Envelope"
               Top             =   1560
               Width           =   735
            End
            Begin VB.ComboBox cboL_B 
               Height          =   300
               Left            =   5460
               TabIndex        =   18
               Tag             =   "肿块内部血流分布"
               Text            =   "cboL_B"
               Top             =   1560
               Width           =   1095
            End
            Begin VB.TextBox txtL_Z 
               Height          =   270
               Left            =   9540
               TabIndex        =   15
               Text            =   "txtL_Z"
               Top             =   1175
               Width           =   495
            End
            Begin VB.ComboBox cboL_Boundary 
               Height          =   300
               Left            =   1140
               TabIndex        =   16
               Tag             =   "肿块边界"
               Text            =   "cboL_Boundary"
               Top             =   1560
               Width           =   1275
            End
            Begin VB.ComboBox cboL_Vein 
               Height          =   300
               Left            =   3600
               TabIndex        =   6
               Tag             =   "血管纹理"
               Text            =   "cboL_Vein"
               Top             =   760
               Width           =   1455
            End
            Begin VB.TextBox txtL_PortalVein 
               Height          =   270
               Left            =   1140
               TabIndex        =   9
               Text            =   "txtL_PortalVein"
               Top             =   1175
               Width           =   495
            End
            Begin VB.TextBox txtL_Thick 
               Height          =   270
               Left            =   4320
               TabIndex        =   3
               Text            =   "txtL_Thick"
               Top             =   375
               Width           =   495
            End
            Begin VB.ComboBox cboL_Bigger 
               Height          =   300
               Left            =   6900
               TabIndex        =   12
               Tag             =   "大小"
               Text            =   "cboL_Bigger"
               Top             =   1160
               Width           =   915
            End
            Begin VB.TextBox txtL_Width 
               Height          =   270
               Left            =   8760
               TabIndex        =   14
               Text            =   "txtL_Width"
               Top             =   1175
               Width           =   495
            End
            Begin VB.TextBox txtL_Length 
               Height          =   270
               Left            =   7980
               TabIndex        =   13
               Text            =   "txtL_Length"
               Top             =   1175
               Width           =   495
            End
            Begin VB.ComboBox cboL_BileDuct 
               Height          =   300
               Left            =   6360
               TabIndex        =   7
               Tag             =   "胆管"
               Text            =   "cboL_BileDuct"
               Top             =   760
               Width           =   1455
            End
            Begin VB.ComboBox cboL_LightSpot 
               Height          =   300
               Left            =   6360
               TabIndex        =   4
               Tag             =   "光点"
               Text            =   "cboL_LightSpot"
               Top             =   360
               Width           =   2895
            End
            Begin VB.ComboBox cboL_Place 
               Height          =   300
               Left            =   2820
               TabIndex        =   10
               Tag             =   "肝部位"
               Text            =   "cboL_Place"
               Top             =   1160
               Width           =   1095
            End
            Begin VB.TextBox txtL_RDiameter 
               Height          =   270
               Left            =   1140
               TabIndex        =   1
               Text            =   "txtL_RDiameter"
               Top             =   375
               Width           =   495
            End
            Begin VB.ComboBox cboL_Echo 
               Height          =   300
               Left            =   1140
               TabIndex        =   5
               Tag             =   "回声分布"
               Text            =   "cboL_Echo"
               Top             =   760
               Width           =   1275
            End
            Begin VB.ComboBox cboL_InLiver 
               Height          =   300
               Left            =   9240
               TabIndex        =   8
               Tag             =   "肝内占位"
               Text            =   "cboL_InLiver"
               Top             =   760
               Width           =   1455
            End
            Begin VB.TextBox txtL_LLength 
               Height          =   270
               Left            =   2820
               TabIndex        =   2
               Text            =   "txtL_LLength"
               Top             =   375
               Width           =   495
            End
            Begin VB.ComboBox cboL_See 
               Height          =   300
               Left            =   4200
               TabIndex        =   11
               Tag             =   "所见声像图"
               Text            =   "cboL_See"
               Top             =   1160
               Width           =   2175
            End
            Begin VB.Label Label66 
               Caption         =   ","
               Height          =   255
               Left            =   2460
               TabIndex        =   143
               Top             =   1620
               Width           =   135
            End
            Begin VB.Label Label74 
               Caption         =   "包膜,"
               Height          =   195
               Left            =   3600
               TabIndex        =   142
               Top             =   1620
               Width           =   480
            End
            Begin VB.Label Label73 
               Caption         =   "内部血流分布"
               Height          =   195
               Left            =   4320
               TabIndex        =   141
               Top             =   1620
               Width           =   1095
            End
            Begin VB.Label Label72 
               Caption         =   "。"
               Height          =   195
               Left            =   6600
               TabIndex        =   140
               Top             =   1620
               Width           =   195
            End
            Begin VB.Label Label67 
               Caption         =   "×"
               Height          =   195
               Left            =   9300
               TabIndex        =   135
               Top             =   1213
               Width           =   195
            End
            Begin VB.Label Label65 
               Caption         =   "肿块边界"
               Height          =   195
               Left            =   180
               TabIndex        =   134
               Top             =   1620
               Width           =   855
            End
            Begin VB.Label Label12 
               Caption         =   ","
               Height          =   195
               Left            =   7860
               TabIndex        =   124
               Top             =   813
               Width           =   255
            End
            Begin VB.Label Label9 

⌨️ 快捷键说明

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