📄 frmtempkidneystransplant.frm
字号:
Width = 600
End
Begin VB.TextBox txtKT_PI
Height = 270
Index = 0
Left = 6090
TabIndex = 19
Text = "txtKT_PI"
Top = 2910
Width = 600
End
Begin VB.Label Label24
Caption = "×"
Height = 195
Left = 7620
TabIndex = 73
Top = 1477
Width = 195
End
Begin VB.Label Label23
Caption = "Vmin/Vmax"
Height = 195
Left = 7380
TabIndex = 72
Top = 2580
Width = 795
End
Begin VB.Label Label22
Caption = "。"
Height = 195
Left = 3300
TabIndex = 71
Top = 533
Width = 135
End
Begin VB.Label Label21
Caption = "移植肾位于"
Height = 195
Left = 1200
TabIndex = 70
Top = 533
Width = 975
End
Begin VB.Label Label20
Caption = "mm,"
Height = 225
Left = 8430
TabIndex = 69
Top = 1455
Width = 405
End
Begin VB.Label Label19
Caption = "积液,"
Height = 180
Left = 1500
TabIndex = 68
Top = 1484
Width = 495
End
Begin VB.Label Label17
Caption = ","
Height = 255
Left = 4680
TabIndex = 67
Top = 1920
Width = 135
End
Begin VB.Label Label16
Caption = "形态"
Height = 225
Left = 3780
TabIndex = 66
Top = 990
Width = 435
End
Begin VB.Label Label15
Caption = "见"
Height = 195
Left = 3390
TabIndex = 65
Top = 1477
Width = 195
End
Begin VB.Label Label14
Caption = "。"
Height = 195
Left = 5160
TabIndex = 64
Top = 1005
Width = 195
End
Begin VB.Label Label13
Caption = ","
Height = 195
Left = 5160
TabIndex = 63
Top = 1477
Width = 195
End
Begin VB.Label Label12
Caption = "×"
Height = 135
Left = 6870
TabIndex = 62
Top = 1507
Width = 195
End
Begin VB.Label Label11
Caption = "Vmin(m/s)"
Height = 195
Left = 3203
TabIndex = 61
Top = 2580
Width = 795
End
Begin VB.Label Label10
Caption = "。"
Height = 195
Left = 7350
TabIndex = 60
Top = 1950
Width = 315
End
Begin VB.Label Label9
Caption = "血流信号分布呈"
Height = 195
Left = 5010
TabIndex = 59
Top = 1950
Width = 1335
End
Begin VB.Label Label8
Caption = "血流信号"
Height = 195
Left = 2880
TabIndex = 58
Top = 1950
Width = 795
End
Begin VB.Label Label7
Caption = ","
Height = 195
Left = 2550
TabIndex = 57
Top = 1950
Width = 195
End
Begin VB.Label Label6
Caption = "肾内"
Height = 195
Left = 2145
TabIndex = 56
Top = 1477
Width = 405
End
Begin VB.Label Label5
Caption = "集合系统结构"
Height = 195
Left = 315
TabIndex = 55
Top = 1950
Width = 1125
End
Begin VB.Label Label3
Caption = "肾周"
Height = 195
Left = 315
TabIndex = 54
Top = 1477
Width = 375
End
Begin VB.Label Label1
Caption = "×"
Height = 135
Left = 2580
TabIndex = 53
Top = 1035
Width = 195
End
Begin VB.Label Label4
Caption = "段动脉"
Height = 195
Index = 6
Left = 300
TabIndex = 52
Top = 3360
Width = 855
End
Begin VB.Label Label67
Caption = "PI"
Height = 195
Left = 6293
TabIndex = 51
Top = 2550
Width = 195
End
Begin VB.Label Label58
Caption = "Vmax(m/s)"
Height = 195
Left = 1778
TabIndex = 50
Top = 2550
Width = 855
End
Begin VB.Label Label65
Caption = "RI"
Height = 195
Left = 4898
TabIndex = 49
Top = 2550
Width = 195
End
Begin VB.Label Label4
Caption = "×"
Height = 195
Index = 5
Left = 1800
TabIndex = 48
Top = 1005
Width = 225
End
Begin VB.Label Label4
Caption = "mm,"
Height = 195
Index = 4
Left = 3420
TabIndex = 47
Top = 1005
Width = 345
End
Begin VB.Label Label18
Caption = "移植肾大小"
Height = 195
Index = 4
Left = 315
TabIndex = 46
Top = 1005
Width = 1065
End
Begin VB.Label Label18
Caption = "弓形动脉"
Height = 195
Index = 2
Left = 300
TabIndex = 45
Top = 4170
Width = 795
End
Begin VB.Label Label2
Caption = "叶间动脉"
Height = 195
Index = 1
Left = 300
TabIndex = 44
Top = 3765
Width = 795
End
Begin VB.Label Label4
Caption = "肾主动脉"
Height = 195
Index = 0
Left = 300
TabIndex = 43
Top = 2955
Width = 795
End
Begin VB.Label Label2
Caption = "部位"
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 300
TabIndex = 42
Top = 2550
Width = 840
End
End
End
End
End
Attribute VB_Name = "frmTempKidneysTransplant"
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 & KidneysTransplantDescribe(Me)
' strTip = MammaryGlandTip(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 & KidneysTransplantDescribe(Me)
' strTip = MammaryGlandTip(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 frmTempKidneysTransplant = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -