📄 frmtempneckartery.frm
字号:
VERSION 5.00
Begin VB.Form frmTempNeckArtery
BorderStyle = 3 'Fixed Dialog
Caption = "颈动脉模板"
ClientHeight = 7635
ClientLeft = 45
ClientTop = 330
ClientWidth = 11790
Icon = "frmTempNeckArtery.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 = 96
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmdCover
Caption = "覆盖(F3)"
Height = 495
Left = 8040
TabIndex = 95
Top = 7020
Width = 1635
End
Begin VB.CommandButton cmdAdd
Caption = "添加(F2)"
Height = 495
Left = 6240
TabIndex = 94
Top = 7020
Width = 1635
End
Begin VB.PictureBox picOutside
CausesValidation= 0 'False
Height = 6900
Left = 0
ScaleHeight = 6840
ScaleWidth = 11730
TabIndex = 97
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 = 98
TabStop = 0 'False
Top = 0
Width = 12045
Begin VB.Frame fraLowerLimbVein
Caption = "颈动脉"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6555
Left = 360
TabIndex = 101
Top = 120
Width = 11355
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 11
Left = 8355
TabIndex = 53
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 10
Left = 7815
TabIndex = 52
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 5
Left = 4455
TabIndex = 47
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 4
Left = 3915
TabIndex = 46
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 0
Left = 1320
TabIndex = 42
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 1
Left = 1860
TabIndex = 43
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 3
Left = 3165
TabIndex = 45
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 2
Left = 2625
TabIndex = 44
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 6
Left = 5220
TabIndex = 48
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 7
Left = 5760
TabIndex = 49
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 8
Left = 6525
TabIndex = 50
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 9
Left = 7065
TabIndex = 51
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 12
Left = 9120
TabIndex = 54
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_Date3
Height = 270
Index = 13
Left = 9660
TabIndex = 55
Top = 2070
Width = 480
End
Begin VB.TextBox txtNA_S3
Height = 270
Index = 1
Left = 9900
TabIndex = 83
Text = "txtNA_S3"
Top = 4395
Width = 480
End
Begin VB.TextBox txtNA_S3
Height = 270
Index = 0
Left = 9900
TabIndex = 64
Text = "txtNA_S3"
Top = 2625
Width = 480
End
Begin VB.ComboBox cboNA_B
Height = 300
Index = 1
Left = 6840
TabIndex = 93
Tag = "收缩期峰速比"
Text = "cboNA_B"
Top = 5587
Width = 795
End
Begin VB.ComboBox cboNA_B
Height = 300
Index = 0
Left = 6840
TabIndex = 74
Tag = "收缩期峰速比"
Text = "cboNA_B"
Top = 3772
Width = 795
End
Begin VB.TextBox txtNA_SBPV
Height = 270
Index = 1
Left = 2280
TabIndex = 92
Text = "txtNA_SBPV"
Top = 5595
Width = 495
End
Begin VB.TextBox txtNA_ETV
Height = 270
Index = 1
Left = 9120
TabIndex = 91
Text = "txtNA_ETV"
Top = 5190
Width = 495
End
Begin VB.TextBox txtNA_PW
Height = 270
Index = 1
Left = 6840
TabIndex = 90
Text = "txtNA_PW"
Top = 5197
Width = 495
End
Begin VB.TextBox txtNA_BL
Height = 270
Index = 1
Left = 1740
TabIndex = 84
Text = "txtNA_BL"
Top = 4800
Width = 480
End
Begin VB.TextBox txtNA_S2
Height = 270
Index = 1
Left = 9120
TabIndex = 82
Text = "txtNA_S2"
Top = 4395
Width = 480
End
Begin VB.TextBox txtNA_S1
Height = 270
Index = 1
Left = 8340
TabIndex = 81
Text = "txtNA_S1"
Top = 4395
Width = 480
End
Begin VB.TextBox txtNA_Num
Height = 270
Index = 1
Left = 4860
TabIndex = 78
Text = "txtNA_Num"
Top = 4395
Width = 375
End
Begin VB.TextBox txtNA_SBPV
Height = 270
Index = 0
Left = 2280
TabIndex = 73
Text = "txtNA_SBPV"
Top = 3780
Width = 495
End
Begin VB.TextBox txtNA_ETV
Height = 270
Index = 0
Left = 9120
TabIndex = 72
Text = "txtNA_ETV"
Top = 3390
Width = 495
End
Begin VB.TextBox txtNA_PW
Height = 270
Index = 0
Left = 6840
TabIndex = 71
Text = "txtNA_PW"
Top = 3390
Width = 495
End
Begin VB.TextBox txtNA_BL
Height = 270
Index = 0
Left = 1740
TabIndex = 65
Text = "txtNA_BL"
Top = 3015
Width = 480
End
Begin VB.TextBox txtNA_S2
Height = 270
Index = 0
Left = 9120
TabIndex = 63
Text = "txtNA_S2"
Top = 2625
Width = 480
End
Begin VB.TextBox txtNA_S1
Height = 270
Index = 0
Left = 8340
TabIndex = 62
Text = "txtNA_S1"
Top = 2625
Width = 480
End
Begin VB.TextBox txtNA_Num
Height = 270
Index = 0
Left = 4860
TabIndex = 59
Text = "txtNA_Num"
Top = 2625
Width = 375
End
Begin VB.TextBox txtNA_Date1
Height = 270
Index = 2
Left = 2625
TabIndex = 16
Top = 1380
Width = 480
End
Begin VB.TextBox txtNA_Date2
Height = 270
Index = 13
Left = 9660
TabIndex = 41
Top = 1725
Width = 480
End
Begin VB.TextBox txtNA_Date2
Height = 270
Index = 12
Left = 9120
TabIndex = 40
Top = 1725
Width = 480
End
Begin VB.TextBox txtNA_Date1
Height = 270
Index = 13
Left = 9660
TabIndex = 27
Top = 1365
Width = 480
End
Begin VB.TextBox txtNA_Date1
Height = 270
Index = 12
Left = 9120
TabIndex = 26
Top = 1365
Width = 480
End
Begin VB.TextBox txtNA_Date0
Height = 270
Index = 13
Left = 9660
TabIndex = 13
Top = 1020
Width = 480
End
Begin VB.TextBox txtNA_Date0
Height = 270
Index = 12
Left = 9120
TabIndex = 12
Top = 1020
Width = 480
End
Begin VB.TextBox txtNA_Date2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -