📄 frmgetphotoedit.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 = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmGetPhotoEdit
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 9255
ClientLeft = 0
ClientTop = 0
ClientWidth = 9975
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9255
ScaleWidth = 9975
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin DICOMax.DICOMX dcmEdit
Height = 8775
Left = 2160
TabIndex = 38
Top = 0
Width = 7455
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 picEdit
AutoRedraw = -1 'True
Height = 1215
Left = 0
ScaleHeight = 1155
ScaleWidth = 2835
TabIndex = 40
Top = 0
Visible = 0 'False
Width = 2895
End
Begin VB.PictureBox picFilter
AutoRedraw = -1 'True
BackColor = &H00000000&
Height = 1380
Left = 0
ScaleHeight = 1320
ScaleWidth = 1395
TabIndex = 39
Top = 1320
Visible = 0 'False
Width = 1455
End
End
Begin TabDlg.SSTab stabOperation
Height = 8775
Left = 0
TabIndex = 0
Top = 0
Width = 1845
_ExtentX = 3254
_ExtentY = 15478
_Version = 393216
TabOrientation = 1
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
BackColor = 3492660
TabCaption(0) = "常用"
TabPicture(0) = "frmGetPhotoEdit.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "frmButtons(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "标注"
TabPicture(1) = "frmGetPhotoEdit.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "frmButtons(1)"
Tab(1).Control(1)= "Label1"
Tab(1).ControlCount= 2
Begin VB.Frame frmButtons
BackColor = &H00354B34&
Height = 7935
Index = 1
Left = -75000
TabIndex = 1
Top = 480
Width = 1815
Begin VB.CommandButton btnAngle
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmGetPhotoEdit.frx":0038
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "角度"
Top = 240
Width = 735
End
Begin VB.CommandButton btnLength
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 120
Picture = "frmGetPhotoEdit.frx":0FFA
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "长度"
Top = 240
Width = 735
End
Begin VB.CommandButton btnRectangle
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 460
Left = 120
Picture = "frmGetPhotoEdit.frx":1E4E
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "矩形"
Top = 840
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton btnArrow
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 460
Left = 120
Picture = "frmGetPhotoEdit.frx":2CA0
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "箭头"
Top = 1440
Visible = 0 'False
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 = "frmGetPhotoEdit.frx":3AF4
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "椭圆"
Top = 840
Visible = 0 'False
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 = "frmGetPhotoEdit.frx":4948
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "文字"
Top = 1440
Width = 735
End
Begin VB.CommandButton btnClip
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 530
Left = 960
Picture = "frmGetPhotoEdit.frx":579A
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "裁剪"
Top = 4920
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 = "frmGetPhotoEdit.frx":65EE
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "复制"
Top = 4920
Width = 735
End
Begin VB.CommandButton btnOriginal
DownPicture = "frmGetPhotoEdit.frx":7442
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 = "frmGetPhotoEdit.frx":838C
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "原始图像"
Top = 5520
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 = 960
Picture = "frmGetPhotoEdit.frx":89EF
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "返回"
Top = 6480
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 = "frmGetPhotoEdit.frx":99B1
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "锐化"
Top = 2280
Width = 735
End
Begin VB.CommandButton btnSmooth
BeginProperty Font
Name = "宋体"
Size = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -