📄 frmtempbyskull.frm
字号:
Caption = "颈内动脉与颈总动脉收缩期峰速之比"
Height = 195
Index = 4
Left = 3900
TabIndex = 115
Top = 3825
Visible = 0 'False
Width = 2955
End
Begin VB.Label Label2
Caption = "cm/s,"
Height = 195
Index = 5
Left = 7380
TabIndex = 114
Top = 3435
Visible = 0 'False
Width = 390
End
Begin VB.Label Label2
Caption = "狭窄下游峰值流速"
Height = 195
Index = 6
Left = 780
TabIndex = 113
Top = 3825
Visible = 0 'False
Width = 1560
End
Begin VB.Label Label2
Caption = "。"
Height = 195
Index = 9
Left = 7695
TabIndex = 112
Top = 3825
Visible = 0 'False
Width = 165
End
Begin VB.Label Label2
Caption = "杂色血流信号,频谱"
Height = 195
Index = 11
Left = 1740
TabIndex = 111
Top = 5235
Visible = 0 'False
Width = 1575
End
Begin VB.Label Label3
Caption = "狭窄下游峰值流速"
Height = 195
Index = 1
Left = 780
TabIndex = 110
Top = 5640
Visible = 0 'False
Width = 1500
End
Begin VB.Label Label2
Caption = "％,"
Height = 195
Index = 12
Left = 2280
TabIndex = 109
Top = 4830
Visible = 0 'False
Width = 315
End
Begin VB.Label Label2
Caption = "狭窄, CDFI示"
Height = 195
Index = 13
Left = 3660
TabIndex = 108
Top = 4830
Visible = 0 'False
Width = 1365
End
Begin VB.Label Label2
Caption = "属"
Height = 195
Index = 14
Left = 2610
TabIndex = 107
Top = 4830
Visible = 0 'False
Width = 210
End
Begin VB.Label Label1
Caption = ",PW测得狭窄处收缩期峰值流速"
Height = 195
Index = 1
Left = 4320
TabIndex = 106
Top = 5235
Visible = 0 'False
Width = 2490
End
Begin VB.Label Label17
Caption = "回声斑块,"
Height = 195
Index = 1
Left = 6360
TabIndex = 105
Top = 4440
Visible = 0 'False
Width = 840
End
Begin VB.Label Label16
Caption = "内径减少"
Height = 195
Index = 1
Left = 780
TabIndex = 104
Top = 4830
Visible = 0 'False
Width = 855
End
Begin VB.Label Label14
Caption = "侧"
Height = 195
Index = 1
Left = 1080
TabIndex = 103
Top = 4440
Visible = 0 'False
Width = 240
End
Begin VB.Label Label13
Alignment = 2 'Center
Caption = "变细。"
Height = 195
Index = 1
Left = 8580
TabIndex = 102
Top = 4830
Visible = 0 'False
Width = 675
End
Begin VB.Label Label6
Caption = "。"
Height = 195
Index = 1
Left = 4095
TabIndex = 101
Top = 4440
Visible = 0 'False
Width = 165
End
Begin VB.Label Label5
Caption = "动脉管膜"
Height = 195
Index = 1
Left = 2340
TabIndex = 100
Top = 4440
Visible = 0 'False
Width = 750
End
Begin VB.Label Label2
Caption = ", 狭窄处血流束"
Height = 195
Index = 15
Left = 6480
TabIndex = 99
Top = 4830
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label2
Caption = "。"
Height = 195
Index = 20
Left = 7695
TabIndex = 98
Top = 5640
Visible = 0 'False
Width = 165
End
Begin VB.Label Label15
Caption = ", 狭窄处血流束"
Height = 225
Left = 6450
TabIndex = 97
Top = 3030
Visible = 0 'False
Width = 1365
End
Begin VB.Label Label18
Caption = "变细。"
Height = 195
Left = 8640
TabIndex = 96
Top = 3045
Visible = 0 'False
Width = 975
End
Begin VB.Label Label19
Caption = ",PW测得狭窄处收缩期峰值流速"
Height = 195
Left = 4320
TabIndex = 95
Top = 3435
Visible = 0 'False
Width = 2475
End
End
End
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 2
Left = 0
TabIndex = 93
Top = 0
Width = 195
End
Begin VB.Label Label35
Caption = "左"
Height = 195
Index = 1
Left = 0
TabIndex = 92
Top = 0
Width = 195
End
End
Attribute VB_Name = "frmTempBySkull"
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 & BySkullDescribe(Me)
' strTip = BySkullTip(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 & BySkullDescribe(Me)
' strTip = BySkullTip(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 frmTempBySkull = Nothing
End Sub
Private Sub txtNA_Date0_Change(Index As Integer)
InPutArray(0) = True
End Sub
Private Sub txtNA_Date1_Change(Index As Integer)
InPutArray(1) = True
End Sub
Private Sub txtNA_Date2_Change(Index As Integer)
InPutArray(2) = True
End Sub
Private Sub txtNA_Date3_Change(Index As Integer)
InPutArray(3) = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -