📄 frmtempgb_p_s_bp.frm
字号:
TabIndex = 48
Text = "txtS_Z"
Top = 337
Width = 495
End
Begin VB.TextBox txtS_Width
Height = 270
Left = 4860
TabIndex = 47
Text = "txtS_Width"
Top = 337
Width = 495
End
Begin VB.TextBox txtS_Length
Height = 270
Left = 4080
TabIndex = 46
Text = "txtS_Length"
Top = 337
Width = 495
End
Begin VB.ComboBox cboS_See
Height = 300
Left = 1155
TabIndex = 45
Tag = "脾内见"
Text = "cboS_See"
Top = 330
Width = 1830
End
Begin VB.Label Label89
Caption = "肿块边界"
Height = 195
Left = 180
TabIndex = 158
Top = 795
Width = 735
End
Begin VB.Label Label88
Caption = "内部血流分布"
Height = 195
Left = 4800
TabIndex = 157
Top = 795
Width = 1095
End
Begin VB.Label Label87
Caption = "包膜,"
Height = 195
Left = 3900
TabIndex = 156
Top = 795
Width = 480
End
Begin VB.Label Label86
Caption = ","
Height = 255
Left = 2460
TabIndex = 155
Top = 765
Width = 135
End
Begin VB.Label Label85
Caption = "。"
Height = 195
Left = 7080
TabIndex = 154
Top = 795
Width = 255
End
Begin VB.Label Label69
Caption = "×"
Height = 195
Left = 5400
TabIndex = 137
Top = 375
Width = 195
End
Begin VB.Label Label53
Caption = "大小"
Height = 195
Left = 3600
TabIndex = 69
Top = 375
Width = 435
End
Begin VB.Label Label54
Caption = "mm,"
Height = 195
Left = 6240
TabIndex = 68
Top = 375
Width = 315
End
Begin VB.Label Label55
Alignment = 2 'Center
Caption = "×"
Height = 195
Left = 4680
TabIndex = 67
Top = 375
Width = 135
End
Begin VB.Label Label60
Caption = "脾内见"
Height = 195
Left = 195
TabIndex = 66
Top = 390
Width = 1635
End
Begin VB.Label Label61
Caption = ","
Height = 195
Left = 3075
TabIndex = 65
Top = 390
Width = 255
End
End
Begin VB.ComboBox cboA_PelvicCavity
Height = 300
Left = 1515
TabIndex = 57
Tag = "腹腔盆腔"
Text = "cboA_PelvicCavity"
Top = 8325
Width = 1830
End
Begin VB.Label Label51
Caption = "腹部胀气明显,腹腔脏器显示"
Height = 195
Left = 555
TabIndex = 128
Top = 180
Width = 2355
End
Begin VB.Label Label52
Caption = "。"
Height = 195
Left = 4140
TabIndex = 127
Top = 180
Width = 555
End
Begin VB.Label Label62
Caption = "腹腔盆腔"
Height = 195
Left = 555
TabIndex = 126
Top = 8385
Width = 855
End
Begin VB.Label Label63
Caption = "。"
Height = 195
Left = 3435
TabIndex = 125
Top = 8385
Width = 255
End
End
End
End
Attribute VB_Name = "frmTempL_GB_P_S_BP"
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
Private Sub cmdAdd_Click()
If cboA_Viscera.Text <> "" Then
strDescribe = strDescribe & VisceraDescribe(Me)
End If
If fraLiver.Enabled Then
strDescribe = strDescribe & LiverDescribe(Me)
strTip = LiverTip(Me)
AddTip strTip
End If
If fraGallBladder.Enabled Then
strDescribe = strDescribe & GallBladderDescribe(Me)
strTip = GallBladderTip(Me)
AddTip strTip
End If
If fraPancreas.Enabled Then
strDescribe = strDescribe & PancreasDescribe(Me)
strTip = PancreasTip(Me)
AddTip strTip
End If
If fraSpleen.Enabled Then
strDescribe = strDescribe & SpleenDescribe(Me)
strTip = SpleenTip(Me)
AddTip strTip
End If
If fraBackPeritoneum.Enabled Then
strDescribe = strDescribe & BackPeritoneumDescribe(Me)
strTip = BackPeritoneumTip(Me)
AddTip strTip
End If
If cboA_PelvicCavity.Text <> "" Then
strDescribe = strDescribe & PelvicCavityDescribe(Me)
strTip = PelvicCavityTip(Me)
AddTip strTip
End If
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
If cboA_Viscera.Text <> "" Then
strDescribe = strDescribe & VisceraDescribe(Me)
End If
If fraLiver.Enabled Then
strDescribe = strDescribe & LiverDescribe(Me)
strTip = LiverTip(Me)
AddTip strTip
End If
If fraGallBladder.Enabled Then
strDescribe = strDescribe & GallBladderDescribe(Me)
strTip = GallBladderTip(Me)
AddTip strTip
End If
If fraPancreas.Enabled Then
strDescribe = strDescribe & PancreasDescribe(Me)
strTip = PancreasTip(Me)
AddTip strTip
End If
If fraSpleen.Enabled Then
strDescribe = strDescribe & SpleenDescribe(Me)
strTip = SpleenTip(Me)
AddTip strTip
End If
If fraBackPeritoneum.Enabled Then
strDescribe = strDescribe & BackPeritoneumDescribe(Me)
strTip = BackPeritoneumTip(Me)
AddTip strTip
End If
If cboA_PelvicCavity.Text <> "" Then
strDescribe = strDescribe & PelvicCavityDescribe(Me)
strTip = PelvicCavityTip(Me)
AddTip strTip
End If
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 vbKeyPageUp
vsbTemplet.Value = IIf(vsbTemplet.Value - vsbTemplet.LargeChange < vsbTemplet.Min, _
vsbTemplet.Min, vsbTemplet.Value - vsbTemplet.LargeChange)
Case vbKeyPageDown
vsbTemplet.Value = IIf(vsbTemplet.Value + vsbTemplet.LargeChange > vsbTemplet.Max, _
vsbTemplet.Max, vsbTemplet.Value + vsbTemplet.LargeChange)
Case Else
End Select
End Sub
Private Sub Form_Load()
strDescribe = ""
strTip = ""
picInside.Top = -vsbTemplet.Min
TempletINI Me
Screen.MousePointer = vbDefault
End Sub
Private Sub txtBP_Length_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtBP_Length)
End Sub
Private Sub txtBP_Width_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtBP_Width)
End Sub
Private Sub txtGB_CBD_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_CBD)
End Sub
Private Sub txtGB_In_Length_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_In_Length)
End Sub
Private Sub txtGB_In_Width_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_In_Width)
End Sub
Private Sub txtGB_Length_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_Length)
End Sub
Private Sub txtGB_WallThick_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_WallThick)
End Sub
Private Sub txtGB_Width_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtGB_Width)
End Sub
Private Sub txtL_Length_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_Length)
End Sub
Private Sub txtL_LLength_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_LLength)
End Sub
Private Sub txtL_PortalVein_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_PortalVein)
End Sub
Private Sub txtL_RDiameter_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_RDiameter)
End Sub
Private Sub txtL_Thick_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_Thick)
End Sub
Private Sub txtL_Width_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtL_Width)
End Sub
Private Sub txtP_Body_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtP_Body)
End Sub
Private Sub txtP_Caput_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtP_Caput)
End Sub
Private Sub txtP_Cauda_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtP_Cauda)
End Sub
Private Sub txtP_IDiameter_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtP_IDiameter)
End Sub
Private Sub txtS_Length_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtS_Length)
End Sub
Private Sub txtS_Width_Validate(Cancel As Boolean)
Cancel = ValidatePositiveNum(txtS_Width)
End Sub
Private Sub vsbTemplet_Change()
picInside.Top = -vsbTemplet.Value
End Sub
Private Sub vsbTemplet_Scroll()
vsbTemplet_Change
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -