📄 frmtempfoetus.frm
字号:
Y1 = 4650
Y2 = 4650
End
Begin VB.Line Line5
BorderStyle = 3 'Dot
X1 = 240
X2 = 4260
Y1 = 4170
Y2 = 4170
End
Begin VB.Line Line4
BorderStyle = 3 'Dot
X1 = 2850
X2 = 2850
Y1 = 3900
Y2 = 5520
End
Begin VB.Line Line3
BorderStyle = 3 'Dot
X1 = 1380
X2 = 1380
Y1 = 3900
Y2 = 5520
End
Begin VB.Label Label7
Caption = "彩色血流量"
Height = 195
Index = 0
Left = 240
TabIndex = 58
Top = 3900
Width = 915
End
Begin VB.Label Label7
Caption = "S/D"
Height = 195
Index = 1
Left = 570
TabIndex = 57
Top = 4320
Width = 255
End
Begin VB.Label Label4
Caption = "PI"
Height = 195
Index = 1
Left = 600
TabIndex = 56
Top = 4800
Width = 195
End
Begin VB.Label Label3
Caption = "RI"
Height = 195
Index = 10
Left = 600
TabIndex = 55
Top = 5280
Width = 195
End
Begin VB.Line Line2
BorderStyle = 3 'Dot
X1 = 2850
X2 = 2850
Y1 = 2820
Y2 = 3555
End
Begin VB.Line Line1
BorderStyle = 3 'Dot
X1 = 1740
X2 = 4200
Y1 = 3150
Y2 = 3150
End
Begin VB.Label Label15
Caption = "脐动脉"
Height = 195
Index = 1
Left = 1815
TabIndex = 54
Top = 3900
Width = 555
End
Begin VB.Label Label3
Caption = "大脑中动脉"
Height = 195
Index = 7
Left = 3075
TabIndex = 53
Top = 3900
Width = 915
End
Begin VB.Label Label24
Caption = "mm。"
Height = 195
Index = 1
Left = 9660
TabIndex = 52
Top = 390
Width = 315
End
Begin VB.Label Label5
Caption = "前后径:"
Height = 195
Index = 1
Left = 6720
TabIndex = 51
Top = 390
Width = 690
End
Begin VB.Label Label3
Caption = ","
Height = 195
Index = 0
Left = 2535
TabIndex = 50
Top = 851
Width = 75
End
Begin VB.Label Label4
Caption = "胎位:"
Height = 195
Index = 0
Left = 225
TabIndex = 49
Top = 851
Width = 600
End
Begin VB.Label Label4
Caption = "胎盘成熟度:"
Height = 195
Index = 6
Left = 5580
TabIndex = 48
Top = 851
Width = 1050
End
Begin VB.Label Label3
Caption = ","
Height = 195
Index = 4
Left = 7605
TabIndex = 47
Top = 855
Width = 255
End
Begin VB.Label Label2
Caption = "mm"
Height = 195
Index = 6
Left = 2415
TabIndex = 46
Top = 3300
Width = 315
End
Begin VB.Label Label2
Caption = "羊水范围:"
Height = 195
Index = 5
Left = 240
TabIndex = 45
Top = 2820
Width = 915
End
Begin VB.Label Label13
Caption = "mm"
Height = 195
Left = 3855
TabIndex = 44
Top = 2820
Width = 315
End
Begin VB.Label Label11
Caption = "mm"
Height = 195
Left = 2415
TabIndex = 43
Top = 2820
Width = 315
End
Begin VB.Label Label3
Caption = "mm"
Height = 195
Index = 3
Left = 3855
TabIndex = 42
Top = 3300
Width = 195
End
Begin VB.Label Label2
Caption = "胎心搏动及胎动, 心率"
Height = 195
Index = 2
Left = 2460
TabIndex = 41
Top = 1800
Width = 2235
End
Begin VB.Label Label6
Caption = "mm。"
Height = 195
Left = 9330
TabIndex = 40
Top = 855
Width = 315
End
Begin VB.Label Label5
Caption = "腹径:"
Height = 195
Index = 0
Left = 5190
TabIndex = 39
Top = 390
Width = 465
End
Begin VB.Label Label1
Caption = "胎盘厚度:"
Height = 195
Left = 7905
TabIndex = 38
Top = 855
Width = 855
End
Begin VB.Label Label24
Caption = "mm,"
Height = 195
Index = 0
Left = 6225
TabIndex = 37
Top = 390
Width = 315
End
Begin VB.Label Label3
Caption = ","
Height = 195
Index = 1
Left = 5265
TabIndex = 36
Top = 851
Width = 195
End
Begin VB.Label Label57
Caption = "mm,"
Height = 195
Left = 3270
TabIndex = 35
Top = 390
Width = 315
End
Begin VB.Label Label58
Caption = "双顶径:"
Height = 195
Left = 1980
TabIndex = 34
Top = 390
Width = 735
End
Begin VB.Label Label59
Caption = "mm,"
Height = 195
Left = 7920
TabIndex = 33
Top = 390
Width = 315
End
Begin VB.Label Label65
Caption = "股骨长:"
Height = 195
Left = 8430
TabIndex = 32
Top = 390
Width = 645
End
Begin VB.Label Label2
Caption = "胎盘位置:"
Height = 195
Index = 1
Left = 2850
TabIndex = 31
Top = 851
Width = 915
End
End
End
End
End
Attribute VB_Name = "frmTempFoetus"
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 & FoetusDescribe(Me)
strTip = FoetusTip(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 & FoetusDescribe(Me)
strTip = FoetusTip(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 frmTempFoetus = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -