📄 frmtemparteriavertebralis.frm
字号:
TabIndex = 82
Top = 2265
Width = 510
End
Begin VB.Label Label2
Caption = "属"
Height = 195
Index = 2
Left = 2595
TabIndex = 81
Top = 2265
Width = 255
End
Begin VB.Label Label2
Caption = "%,"
Height = 195
Index = 1
Left = 1725
TabIndex = 80
Top = 2265
Width = 195
End
Begin VB.Label Label2
Caption = "内径减少"
Height = 195
Index = 0
Left = 300
TabIndex = 79
Top = 2265
Width = 810
End
Begin VB.Label Label1
Caption = "Cm,"
Height = 195
Index = 0
Left = 9420
TabIndex = 78
Top = 1830
Width = 390
End
Begin VB.Label Label66
Caption = "PI"
Height = 195
Index = 1
Left = 9885
TabIndex = 77
Top = 570
Width = 315
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 15
Left = 10140
TabIndex = 76
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 14
Left = 9615
TabIndex = 75
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 13
Left = 8750
TabIndex = 74
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 12
Left = 8225
TabIndex = 73
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 11
Left = 7363
TabIndex = 72
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 10
Left = 6838
TabIndex = 71
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 9
Left = 5976
TabIndex = 70
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 8
Left = 5451
TabIndex = 69
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 7
Left = 4589
TabIndex = 68
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 6
Left = 4064
TabIndex = 67
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 5
Left = 3202
TabIndex = 66
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 4
Left = 2677
TabIndex = 65
Top = 840
Width = 195
End
Begin VB.Label Label35
Caption = "右"
Height = 195
Index = 3
Left = 1815
TabIndex = 64
Top = 840
Width = 195
End
Begin VB.Label Label17
Caption = "大小约"
Height = 195
Index = 0
Left = 6960
TabIndex = 61
Top = 1830
Width = 540
End
Begin VB.Label Label16
Caption = "内见"
Height = 195
Index = 0
Left = 4035
TabIndex = 60
Top = 1830
Width = 435
End
Begin VB.Label Label14
Caption = "侧椎动脉内膜"
Height = 195
Index = 0
Left = 1110
TabIndex = 59
Top = 1830
Width = 1200
End
Begin VB.Label Label13
Alignment = 2 'Center
Caption = "×"
Height = 195
Index = 0
Left = 7995
TabIndex = 58
Top = 1830
Width = 195
End
Begin VB.Label Label11
Caption = "椎动脉"
Height = 195
Left = 300
TabIndex = 57
Top = 1125
Width = 555
End
Begin VB.Label Label6
Caption = "回声斑块,"
Height = 195
Index = 0
Left = 5355
TabIndex = 56
Top = 1830
Width = 825
End
Begin VB.Label Label5
Caption = ","
Height = 195
Index = 0
Left = 3270
TabIndex = 55
Top = 1830
Width = 150
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 0
Left = 1290
TabIndex = 54
Top = 840
Width = 195
End
Begin VB.Label Label67
Caption = "MN"
Height = 195
Left = 7095
TabIndex = 53
Top = 570
Width = 210
End
Begin VB.Label Label66
Caption = "RI"
Height = 195
Index = 0
Left = 8490
TabIndex = 52
Top = 570
Width = 315
End
Begin VB.Label Label65
Caption = "S(Cm/s)"
Height = 195
Left = 4095
TabIndex = 51
Top = 570
Width = 915
End
Begin VB.Label Label59
Caption = "D(Cm/s)"
Height = 195
Left = 5505
TabIndex = 50
Top = 570
Width = 600
End
Begin VB.Label Label58
Caption = "内径(mm)"
Height = 195
Left = 1290
TabIndex = 49
Top = 570
Width = 825
End
Begin VB.Label Label57
Caption = "内膜厚(mm)"
Height = 195
Left = 2595
TabIndex = 48
Top = 570
Width = 990
End
End
End
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 2
Left = 0
TabIndex = 63
Top = 0
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 1
Left = 0
TabIndex = 62
Top = 0
Width = 195
End
End
Attribute VB_Name = "frmTempArteriaVertebralis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public strDescribe As String
'Public strTip As String
Public Loaded As Boolean '窗体是否加载
Private CurrentTempOrderNumber As Integer
Private Sub cmdAdd_Click()
strDescribe = strDescribe & ArteriaVertebralisDescribe(Me)
' strTip = ArteriaVertebralisTip(Me)
' AddTip strTip
AddDescribe strDescribe
Unload Me
With frmReport
' If .txtUSTip(0).Text = "" Then .txtUSTip(0).Text = "未见异常。"
.txtDescribe.SetFocus
End With
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdCover_Click()
' CleanTip
strDescribe = strDescribe & ArteriaVertebralisDescribe(Me)
' strTip = ArteriaVertebralisTip(Me)
' AddTip strTip
CoverDescribe strDescribe
Unload Me
With frmReport
' If .txtUSTip(0).Text = "" Then .txtUSTip(0).Text = "未见异常。"
.txtDescribe.SetFocus
End With
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case US_KEY_ADD
cmdAdd_Click
Case US_KEY_COVER
cmdCover_Click
Case US_KEY_CANCEL
cmdCancel_Click
Case vbKeyReturn
SendKeys "{TAB}"
Case Else
End Select
End Sub
Private Sub Form_Load()
strDescribe = ""
' strTip = ""
Me.Loaded = True
CurrentTempOrderNumber = modCommon.TempOrderNumber
modCommon.TempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
modCommon.OldTempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
TempletINI Me
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Terminate()
Me.Loaded = False
modCommon.TempLoadFlag(CurrentTempOrderNumber) = Me.Loaded
If modCommon.LastTempNumber <> CurrentTempOrderNumber Then modCommon.PopOrganTemp (modCommon.OrganModelNameChosen)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmTempArteriaVertebralis = Nothing
End Sub
Private Sub txtAV_Change(Index As Integer)
InPutArray(0) = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -