📄 mainform.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form MainForm
BorderStyle = 0 'None
ClientHeight = 11415
ClientLeft = 60
ClientTop = -435
ClientWidth = 15240
ControlBox = 0 'False
FillStyle = 0 'Solid
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 11415
ScaleWidth = 15240
WindowState = 2 'Maximized
Begin VB.PictureBox MainPic
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Index = 0
Left = 0
Picture = "MainForm.frx":0000
ScaleHeight = 450
ScaleWidth = 495
TabIndex = 16
TabStop = 0 'False
Top = 0
Width = 495
End
Begin TabDlg.SSTab MainTab
Height = 10335
Left = 0
TabIndex = 13
TabStop = 0 'False
Top = 1200
Width = 15360
_ExtentX = 27093
_ExtentY = 18230
_Version = 393216
Tabs = 7
Tab = 1
TabsPerRow = 7
TabHeight = 794
BackColor = 16744576
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "病人管理"
TabPicture(0) = "MainForm.frx":0CEC
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "ShapeInAll(1)"
Tab(0).Control(1)= "LabelInAll(9)"
Tab(0).Control(2)= "LabelInAll(10)"
Tab(0).Control(3)= "SSTabIn1"
Tab(0).ControlCount= 4
TabCaption(1) = "采集影像"
TabPicture(1) = "MainForm.frx":0D08
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "PicBIn4Sample"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "PicBIn4Include"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "FrameIn4PlayWnd"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "TimerIn4StartCap"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "诊断编辑"
TabPicture(2) = "MainForm.frx":0D24
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "ShapeInAll(10)"
Tab(2).Control(1)= "LabelInAll(36)"
Tab(2).Control(2)= "LabelInAll(37)"
Tab(2).Control(3)= "TreeVIn5DiagMenu"
Tab(2).Control(4)= "ComboBIn5CheckP"
Tab(2).Control(5)= "CmdBIn5Word(0)"
Tab(2).Control(6)= "CmdBIn5Word(1)"
Tab(2).Control(7)= "CmdBIn5Word(3)"
Tab(2).Control(8)= "CmdBIn5Word(2)"
Tab(2).Control(9)= "TextBIn5SelN"
Tab(2).Control(10)= "CmdIn5PicShow"
Tab(2).Control(11)= "PicBIn5ShowText"
Tab(2).Control(12)= "ImageListInAll"
Tab(2).Control(13)= "FrameIn5Include"
Tab(2).Control(14)= "PicBIn5ShowImage"
Tab(2).ControlCount= 15
TabCaption(3) = "打印报告"
TabPicture(3) = "MainForm.frx":0D40
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "LabelInAll(54)"
Tab(3).ControlCount= 1
TabCaption(4) = "影像处理"
TabPicture(4) = "MainForm.frx":0D5C
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "ShapeInAll(11)"
Tab(4).Control(1)= "ShapeInAll(12)"
Tab(4).Control(2)= "LabelInAll(38)"
Tab(4).Control(3)= "ShapeInAll(13)"
Tab(4).Control(4)= "ShapeInAll(14)"
Tab(4).Control(5)= "CmdBIn7FileOpen"
Tab(4).Control(6)= "CmdBIn7ImageOut"
Tab(4).Control(7)= "CmdBIn7ImageProcess(28)"
Tab(4).Control(8)= "CmdBIn7ImageProcess(30)"
Tab(4).Control(9)= "CmdBIn7ImageProcess(31)"
Tab(4).Control(10)= "CmdBIn7ImageProcess(29)"
Tab(4).Control(11)= "CmdBIn7ImageProcess(32)"
Tab(4).Control(12)= "CmdBIn7ImageProcess(34)"
Tab(4).Control(13)= "CmdBIn7ImageProcess(35)"
Tab(4).Control(14)= "CmdBIn7ImageProcess(33)"
Tab(4).Control(15)= "CmdBIn7ImageProcess(20)"
Tab(4).Control(16)= "CmdBIn7ImageProcess(22)"
Tab(4).Control(17)= "CmdBIn7ImageProcess(23)"
Tab(4).Control(18)= "CmdBIn7ImageProcess(21)"
Tab(4).Control(19)= "CmdBIn7ImageProcess(16)"
Tab(4).Control(20)= "CmdBIn7ImageProcess(18)"
Tab(4).Control(21)= "CmdBIn7ImageProcess(19)"
Tab(4).Control(22)= "CmdBIn7ImageProcess(17)"
Tab(4).Control(23)= "CmdBIn7ImageProcess(24)"
Tab(4).Control(24)= "CmdBIn7ImageProcess(26)"
Tab(4).Control(25)= "CmdBIn7ImageProcess(27)"
Tab(4).Control(26)= "CmdBIn7ImageProcess(25)"
Tab(4).Control(27)= "CmdBIn7ImageProcess(8)"
Tab(4).Control(28)= "CmdBIn7ImageProcess(10)"
Tab(4).Control(29)= "CmdBIn7ImageProcess(11)"
Tab(4).Control(30)= "CmdBIn7ImageProcess(9)"
Tab(4).Control(31)= "CmdBIn7ImageProcess(0)"
Tab(4).Control(32)= "CmdBIn7ImageProcess(2)"
Tab(4).Control(33)= "CmdBIn7ImageProcess(3)"
Tab(4).Control(34)= "CmdBIn7ImageProcess(1)"
Tab(4).Control(35)= "CmdBIn7ImageProcess(4)"
Tab(4).Control(36)= "CmdBIn7ImageProcess(6)"
Tab(4).Control(37)= "CmdBIn7ImageProcess(7)"
Tab(4).Control(38)= "CmdBIn7ImageProcess(5)"
Tab(4).Control(39)= "CmdBIn7ImageProcess(12)"
Tab(4).Control(40)= "CmdBIn7ImageProcess(14)"
Tab(4).Control(41)= "CmdBIn7ImageProcess(15)"
Tab(4).Control(42)= "CmdBIn7ImageProcess(13)"
Tab(4).Control(43)= "ComDialogIn7"
Tab(4).Control(44)= "HScroIn7BigPic"
Tab(4).Control(44).Enabled= 0 'False
Tab(4).Control(45)= "VScroIn7BigPic"
Tab(4).Control(45).Enabled= 0 'False
Tab(4).Control(46)= "PicBIn7BigPic"
Tab(4).Control(47)= "PicBIn7ShowImage"
Tab(4).ControlCount= 48
TabCaption(5) = "其 它"
TabPicture(5) = "MainForm.frx":0D78
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "LabelInAll(20)"
Tab(5).Control(1)= "LabelInAll(21)"
Tab(5).Control(2)= "TreeVIn8SysSet"
Tab(5).Control(3)= "FrameIn9UserSet"
Tab(5).Control(4)= "FrameIn9QuanXian"
Tab(5).Control(5)= "FrameIn9OfficeSet"
Tab(5).Control(6)= "FrameIn9CheckPart"
Tab(5).Control(7)= "FrameIn9EquipSet"
Tab(5).Control(8)= "FrameIn9PatiSour"
Tab(5).Control(9)= "FrameIn9ParaSet"
Tab(5).Control(10)= "FrameIn9CheRep"
Tab(5).ControlCount= 11
TabCaption(6) = "退出系统"
TabPicture(6) = "MainForm.frx":0D94
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "TimerIn9CloseCap"
Tab(6).ControlCount= 1
Begin TabDlg.SSTab SSTabIn1
Height = 9255
Left = -75000
TabIndex = 172
Top = 960
Width = 15435
_ExtentX = 27226
_ExtentY = 16325
_Version = 393216
TabOrientation = 2
Tab = 2
TabHeight = 4710
OLEDropMode = 1
TabCaption(0) = "Tab 0"
TabPicture(0) = "MainForm.frx":0DB0
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "MainPic(7)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "Tab 1"
TabPicture(1) = "MainForm.frx":2B02
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "MainPic(6)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "Tab 2"
TabPicture(2) = "MainForm.frx":4834
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "MainPic(5)"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
Begin VB.PictureBox MainPic
Height = 9225
Index = 7
Left = -72255
ScaleHeight = 9165
ScaleWidth = 12615
TabIndex = 216
TabStop = 0 'False
Top = 15
Width = 12675
Begin MSComCtl2.MonthView MonthVIn3EndT
Height = 2220
Left = 5400
TabIndex = 221
Top = 2520
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = 16711680
BackColor = -2147483643
Appearance = 1
StartOfWeek = 25296897
TitleBackColor = 8388608
TitleForeColor = -2147483634
CurrentDate = 38735
End
Begin MSComCtl2.MonthView MonthVIn3StartT
Height = 2220
Left = 2160
TabIndex = 220
Top = 2520
Visible = 0 'False
Width = 4065
_ExtentX = 7170
_ExtentY = 3916
_Version = 393216
ForeColor = 16711680
BackColor = -2147483643
Appearance = 1
StartOfWeek = 25296897
TitleBackColor = 8388608
TitleForeColor = -2147483634
CurrentDate = 38735
End
Begin VB.TextBox TextBIn3TimeStart
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 380
Left = 2160
TabIndex = 236
Top = 480
Width = 1455
End
Begin VB.CommandButton CmdBIn3TimeStart
Height = 370
Left = 3600
Picture = "MainForm.frx":6826
Style = 1 'Graphical
TabIndex = 235
TabStop = 0 'False
Top = 480
Width = 240
End
Begin VB.TextBox TextBIn3TimeEnd
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 380
Left = 5520
TabIndex = 234
Top = 480
Width = 1455
End
Begin VB.CommandButton CmdBIn3TimeEnd
Height = 370
Left = 6960
Picture = "MainForm.frx":6C88
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -