📄 frmphotoedit1.frm
字号:
VERSION 5.00
Object = "{3A75EE84-8E64-43F4-A904-E4835B9A3DB4}#3.9#0"; "DICOMax.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{806F1F89-D431-4F37-A387-2868CC03DCA8}#48.0#0"; "GetData.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmPhotoEdit
BackColor = &H00354B34&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 9555
ClientLeft = 0
ClientTop = 0
ClientWidth = 11490
ClipControls = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 9555
ScaleWidth = 11490
ShowInTaskbar = 0 'False
Begin DICOMax.DICOMX dcmEdit
Height = 9015
Left = 1800
TabIndex = 0
Top = 120
Width = 9735
Object.Visible = -1 'True
BorderStyle = 2
Enabled = -1 'True
ImageSlicesCurrent= 0
ImageZoomPct = 100
ImageSmoothOn = -1 'True
ImageWinCenter = 0
ImageWinWidth = 0
ImageOverlayOn = 0 'False
ImageOverlayColor= 1
ImageColorScheme= 1
ImageTool = 1
ToolBarVisible = 0 'False
ImageZoomBestFit= 0 'False
ImageUseRefContrast= -1 'True
ImageShowHeaderInfo= 0 'False
OpenFileName = ""
ToolBarPos = 1
DICOMInstitutionName= "Anonymous"
DICOMCityName = "Unknow"
DICOMStudyDescrp= "Functional"
DICOMManufacturer= "http://www.dicom3.cn/"
DICOMSeriesTag = ""
DICOMPatientName= "NO Name"
DICOMPatientID = "No ID"
DICOMModality = "OT"
DICOMSOPClassUID= ""
DICOMSOPInstanceUID= ""
ImagePOS = 5
ImageVScrollPosition= 17
ImageHScrollPosition= 10
DICOMPatientBirthDate= "Unknow"
DICOMPatientSex = "Unknow"
ImageOverlayLanguage= 1
ImageMagnifyZoomSize= 2
DICOMStudyDate = ""
DICOMSeriesDate = ""
DICOMImageDate = ""
DICOMStudyTime = ""
DICOMSeriesTime = ""
DICOMImageTime = ""
DICOMSeriesNumber= 0
DICOMImageNumber= 0
OpenUrlFileName = ""
DICOMRefPhyName = ""
DICOMStudyInstanceUID= ""
DICOMSeriesInstanceUID= ""
DICOMStudyID = ""
ImageMeasureMaxItem= 8
ImageMeasureResultIndex= 1
ImageXGRGBColor = 1
DICOMDirStudyPos= 0
DICOMDirSeriesPos= 0
DICOMDirImagePos= 0
DICOMImplementationClassUID= ""
DICOMImplementationVersionName= ""
DICOMSourceApplicationEntityTitle= ""
FrameOfReferenceUID= ""
ImageMeasureFontSize= 8
ImageMeasureTextPreSet= "TEXT"
ImageMeasureTextFontSize= 8
ImageMeasureSelectIndex= 0
OCXLanguage = 1
ImageMagnifySize= 60
ImageOverlayFontSize= 10
ImageOverlayFontName= "Arial"
ImageOverlayShowRuler= 0 'False
EnableMouseScroll= -1 'True
DICOMPixelSpaceWidth= 0
DICOMPixelSpaceHeight= 0
ShowRealTimeImage= -1 'True
ImageSortByFileName= -1 'True
Begin VB.PictureBox picFilter
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 1380
Left = 0
ScaleHeight = 1320
ScaleWidth = 1395
TabIndex = 3
Top = 1320
Visible = 0 'False
Width = 1455
End
Begin VB.PictureBox picEdit
AutoRedraw = -1 'True
Height = 1215
Left = 0
ScaleHeight = 1155
ScaleWidth = 2835
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 2895
End
End
Begin TabDlg.SSTab stabOperation
Height = 8775
Left = 0
TabIndex = 4
Top = 0
Width = 1845
_ExtentX = 3254
_ExtentY = 15478
_Version = 393216
TabOrientation = 1
Style = 1
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 520
BackColor = 3492660
TabCaption(0) = "常用"
TabPicture(0) = "frmPhotoEdit.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "frmButtons(0)"
Tab(0).ControlCount= 1
TabCaption(1) = "标注"
TabPicture(1) = "frmPhotoEdit.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "frmButtons(1)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
Begin VB.Frame frmButtons
BackColor = &H00354B34&
Height = 8415
Index = 1
Left = 0
TabIndex = 24
Top = 60
Width = 1815
Begin VB.CommandButton btnProcessBlur
Caption = "降噪"
DownPicture = "frmPhotoEdit.frx":0038
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmPhotoEdit.frx":0F82
Style = 1 'Graphical
TabIndex = 51
ToolTipText = "降噪"
Top = 4320
Width = 735
End
Begin VB.CommandButton btnConcentrate
Caption = "兴趣区窗宽"
DownPicture = "frmPhotoEdit.frx":14A3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmPhotoEdit.frx":23ED
Style = 1 'Graphical
TabIndex = 42
ToolTipText = "伪彩"
Top = 4320
Width = 735
End
Begin VB.CommandButton btnProcessFilter
Caption = "滤波"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmPhotoEdit.frx":290E
Style = 1 'Graphical
TabIndex = 41
ToolTipText = "滤波处理"
Top = 2280
Width = 735
End
Begin VB.CommandButton btnColorSchemeFalse
Caption = "负伪彩"
DownPicture = "frmPhotoEdit.frx":2F40
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmPhotoEdit.frx":3E8A
Style = 1 'Graphical
TabIndex = 40
ToolTipText = "负伪彩"
Top = 3720
Width = 735
End
Begin VB.CommandButton btnColorScheme
Caption = "伪彩"
DownPicture = "frmPhotoEdit.frx":43AB
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmPhotoEdit.frx":52F5
Style = 1 'Graphical
TabIndex = 39
ToolTipText = "伪彩"
Top = 3720
Width = 735
End
Begin VB.CommandButton btnEmboss
DownPicture = "frmPhotoEdit.frx":5816
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmPhotoEdit.frx":6760
Style = 1 'Graphical
TabIndex = 38
ToolTipText = "浮雕"
Top = 3000
Width = 735
End
Begin VB.CommandButton btnSmooth
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmPhotoEdit.frx":6C81
Style = 1 'Graphical
TabIndex = 37
ToolTipText = "平滑"
Top = 3000
Width = 735
End
Begin VB.CommandButton btnSharpen
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmPhotoEdit.frx":72B3
Style = 1 'Graphical
TabIndex = 36
ToolTipText = "锐化"
Top = 2280
Width = 735
End
Begin VB.CommandButton btnExit
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 1080
Picture = "frmPhotoEdit.frx":7A04
Style = 1 'Graphical
TabIndex = 35
ToolTipText = "返回"
Top = 7680
Width = 735
End
Begin VB.CommandButton btnOriginal
DownPicture = "frmPhotoEdit.frx":8024
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Index = 1
Left = 960
Picture = "frmPhotoEdit.frx":8F6E
Style = 1 'Graphical
TabIndex = 33
ToolTipText = "原始图像"
Top = 5520
Width = 735
End
Begin VB.CommandButton btnCopy
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmPhotoEdit.frx":95D1
Style = 1 'Graphical
TabIndex = 32
ToolTipText = "复制"
Top = 4920
Width = 735
End
Begin VB.CommandButton btnClip
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmPhotoEdit.frx":9CB0
Style = 1 'Graphical
TabIndex = 31
ToolTipText = "裁剪"
Top = 4920
Width = 735
End
Begin VB.CommandButton btnText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 460
Left = 960
Picture = "frmPhotoEdit.frx":A2A3
Style = 1 'Graphical
TabIndex = 30
ToolTipText = "文字"
Top = 1440
Width = 735
End
Begin VB.CommandButton btnEllipse
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 460
Left = 960
Picture = "frmPhotoEdit.frx":A857
Style = 1 'Graphical
TabIndex = 29
ToolTipText = "椭圆"
Top = 840
Width = 735
End
Begin VB.CommandButton btnArrow
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -