📄 frmtempchest_heartp_abdomen.frm
字号:
Left = 1200
TabIndex = 68
Top = 2273
Width = 615
End
Begin VB.Label Label24
Caption = "脐"
Height = 255
Left = 240
TabIndex = 67
Top = 2273
Width = 255
End
Begin VB.Label Label23
Caption = "mm，"
Height = 255
Left = 3600
TabIndex = 66
Top = 1680
Width = 375
End
Begin VB.Label Label22
Caption = "×"
Height = 255
Left = 2640
TabIndex = 65
Top = 1680
Width = 135
End
Begin VB.Label Label21
Caption = "肝 前 ， 见"
Height = 255
Left = 240
TabIndex = 64
Top = 1680
Width = 1695
End
Begin VB.Label Label20
Caption = "mm，"
Height = 255
Left = 3600
TabIndex = 63
Top = 1080
Width = 375
End
Begin VB.Label Label19
Caption = "×"
Height = 255
Left = 2640
TabIndex = 62
Top = 1080
Width = 135
End
Begin VB.Label Label18
Caption = "脾肾隐窝 ， 见"
Height = 255
Left = 240
TabIndex = 61
Top = 1080
Width = 1575
End
Begin VB.Label Label17
Caption = "mm，"
Height = 255
Left = 3600
TabIndex = 60
Top = 480
Width = 375
End
Begin VB.Label Label16
Caption = "×"
Height = 255
Left = 2640
TabIndex = 59
Top = 480
Width = 135
End
Begin VB.Label Label15
Caption = "肝肾隐窝 ， 见"
Height = 255
Left = 240
TabIndex = 58
Top = 480
Width = 1575
End
End
Begin VB.Frame fraHeartP
Caption = "心包"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 240
TabIndex = 10
Top = 2400
Width = 11295
Begin VB.TextBox TxtH_J
Height = 285
Left = 6000
TabIndex = 13
Top = 473
Width = 735
End
Begin VB.TextBox TxtH_H
Height = 285
Left = 3840
TabIndex = 12
Top = 473
Width = 735
End
Begin VB.TextBox TxtH_Q
Height = 285
Left = 1800
TabIndex = 11
Top = 473
Width = 735
End
Begin VB.Label Label14
Caption = "mm；"
Height = 150
Left = 6840
TabIndex = 57
Top = 540
Width = 615
End
Begin VB.Label Label13
Caption = "mm； 心尖"
Height = 210
Left = 4680
TabIndex = 56
Top = 510
Width = 1215
End
Begin VB.Label Label12
Caption = "mm； 后壁"
Height = 210
Left = 2640
TabIndex = 55
Top = 510
Width = 1095
End
Begin VB.Label Label11
Caption = "心包分离： 前壁"
Height = 210
Left = 240
TabIndex = 54
Top = 510
Width = 1455
End
End
Begin VB.Frame fraChest
Caption = "胸腔"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1935
Left = 240
TabIndex = 91
Top = 240
Width = 11295
Begin VB.ComboBox comC_See
Height = 300
Index = 1
Left = 7560
TabIndex = 9
Tag = "所见影像"
Top = 1200
Width = 2775
End
Begin VB.ComboBox comC_See
Height = 300
Index = 0
Left = 7560
TabIndex = 4
Tag = "所见影像"
Top = 480
Width = 2775
End
Begin VB.ComboBox comC_Part
Height = 300
Index = 1
Left = 5280
TabIndex = 8
Tag = "回声区"
Top = 1200
Width = 1575
End
Begin VB.ComboBox comC_Part
Height = 300
Index = 0
Left = 5280
TabIndex = 3
Tag = "回声区"
Top = 480
Width = 1575
End
Begin VB.TextBox TxtC_W
Height = 300
Index = 1
Left = 4200
TabIndex = 7
Top = 1200
Width = 735
End
Begin VB.TextBox TxtC_W
Height = 300
Index = 0
Left = 4200
TabIndex = 2
Top = 480
Width = 735
End
Begin VB.TextBox TxtC_L
Height = 300
Index = 1
Left = 3120
TabIndex = 6
Top = 1200
Width = 735
End
Begin VB.TextBox TxtC_L
Height = 300
Index = 0
Left = 3120
TabIndex = 1
Top = 480
Width = 735
End
Begin VB.TextBox TxtC_Number
Height = 300
Index = 1
Left = 1440
TabIndex = 5
Top = 1200
Width = 495
End
Begin VB.TextBox TxtC_Number
Height = 300
Index = 0
Left = 1440
TabIndex = 0
Top = 480
Width = 495
End
Begin VB.Label Label10
Caption = "，内见"
Height = 255
Left = 6960
TabIndex = 53
Top = 1245
Width = 735
End
Begin VB.Label Label9
Caption = "，内见"
Height = 255
Left = 6960
TabIndex = 52
Top = 525
Width = 615
End
Begin VB.Label Label8
Caption = "mm"
Height = 255
Left = 5040
TabIndex = 51
Top = 1245
Width = 375
End
Begin VB.Label Label7
Caption = "mm"
Height = 270
Left = 5040
TabIndex = 50
Top = 510
Width = 375
End
Begin VB.Label Label4
Caption = "×"
Height = 255
Left = 3960
TabIndex = 49
Top = 1245
Width = 255
End
Begin VB.Label Label3
Caption = "×"
Height = 270
Left = 3960
TabIndex = 48
Top = 510
Width = 255
End
Begin VB.Label Label6
Caption = "肋间， 探及"
Height = 255
Left = 2040
TabIndex = 47
Top = 1245
Width = 1095
End
Begin VB.Label Label5
Caption = "肋间， 探及"
Height = 270
Left = 2040
TabIndex = 46
Top = 510
Width = 1095
End
Begin VB.Label Label2
Caption = "右侧胸腔，第"
Height = 255
Left = 240
TabIndex = 45
Top = 1245
Width = 1215
End
Begin VB.Label Label1
Caption = "左侧胸腔，第"
Height = 270
Left = 240
TabIndex = 44
Top = 510
Width = 1215
End
End
End
End
Attribute VB_Name = "frmTempChest_HeartP_Abdomen"
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 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 cmdCancel_Click()
Unload Me
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 cmdAdd_Click()
If fraChest.Enabled Then
strDescribe = strDescribe & ChestDescribe(Me)
End If
If fraHeartP.Enabled Then
strDescribe = strDescribe & HeartPDescribe(Me)
End If
If fraAbdomen.Enabled Then
strDescribe = strDescribe & AbdomenDescribe(Me)
End If
' strTip = JawTip(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 cmdCover_Click()
CleanTip
If fraChest.Enabled Then
strDescribe = strDescribe & ChestDescribe(Me)
End If
If fraHeartP.Enabled Then
strDescribe = strDescribe & HeartPDescribe(Me)
End If
If fraAbdomen.Enabled Then
strDescribe = strDescribe & AbdomenDescribe(Me)
End If
' strTip = JawTip(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_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 frmTempChest_HeartP_Abdomen = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -