📄 frmserverx.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Begin VB.MDIForm frmServer
BackColor = &H8000000C&
Caption = "Service"
ClientHeight = 5820
ClientLeft = 60
ClientTop = 345
ClientWidth = 7185
Icon = "frmServerX.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture2
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 1245
Left = 0
ScaleHeight = 1245
ScaleWidth = 7185
TabIndex = 16
Top = 0
Width = 7185
Begin MSComctlLib.Toolbar tbToolbar2
Height = 360
Left = 0
TabIndex = 17
Top = 0
Width = 9195
_ExtentX = 16219
_ExtentY = 635
ButtonWidth = 2461
ButtonHeight = 582
Wrappable = 0 'False
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "ImageList6"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "系 统 菜 单"
Key = "OperatorMenu"
Object.ToolTipText = "打开操作命令"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "控 制 菜 单"
Key = "SysMenu"
Object.ToolTipText = "系统命令"
ImageIndex = 2
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.Toolbar tbToolBar
Height = 810
Left = 0
TabIndex = 18
Top = 360
Width = 9195
_ExtentX = 16219
_ExtentY = 1429
ButtonWidth = 1270
ButtonHeight = 1376
Appearance = 1
Style = 1
ImageList = "ImageList2"
DisabledImageList= "ImageList4"
HotImageList = "ImageList3"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "JF"
Object.ToolTipText = "开始计费"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "MESSAGE"
Object.ToolTipText = "发送消息"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "STOP"
Object.ToolTipText = "停止计费"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "RESTART"
Object.ToolTipText = "重新启动客户机"
ImageIndex = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "SHUTDOWN"
Object.ToolTipText = "关闭客户机"
ImageIndex = 5
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "LOCK"
Object.ToolTipText = "锁定当前服务器"
ImageIndex = 6
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "OPTION"
Object.ToolTipText = "系统选项配置"
ImageIndex = 7
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "HELP"
Object.ToolTipText = "系统使用/升级信息"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
Begin VB.PictureBox picAvi1
BackColor = &H00000000&
Height = 750
Left = 8295
ScaleHeight = 690
ScaleWidth = 765
TabIndex = 19
Top = 0
Width = 825
Begin MediaPlayerCtl.MediaPlayer Avi1
Height = 2685
Left = 0
TabIndex = 20
ToolTipText = "欢迎访问：东化科技网站{http://www.donghua.com}"
Top = -30
Width = 3585
AudioStream = -1
AutoSize = -1 'True
AutoStart = -1 'True
AnimationAtStart= -1 'True
AllowScan = 0 'False
AllowChangeDisplaySize= -1 'True
AutoRewind = -1 'True
Balance = 0
BaseURL = ""
BufferingTime = 5
CaptioningID = ""
ClickToPlay = 0 'False
CursorType = 0
CurrentPosition = -1
CurrentMarker = 0
DefaultFrame = ""
DisplayBackColor= 0
DisplayForeColor= 16777215
DisplayMode = 0
DisplaySize = 4
Enabled = -1 'True
EnableContextMenu= 0 'False
EnablePositionControls= -1 'True
EnableFullScreenControls= 0 'False
EnableTracker = -1 'True
Filename = ""
InvokeURLs = 0 'False
Language = -1
Mute = 0 'False
PlayCount = 0
PreviewMode = 0 'False
Rate = 1
SAMILang = ""
SAMIStyle = ""
SAMIFileName = ""
SelectionStart = -1
SelectionEnd = -1
SendOpenStateChangeEvents= 0 'False
SendWarningEvents= 0 'False
SendErrorEvents = -1 'True
SendKeyboardEvents= 0 'False
SendMouseClickEvents= -1 'True
SendMouseMoveEvents= 0 'False
SendPlayStateChangeEvents= 0 'False
ShowCaptioning = 0 'False
ShowControls = 0 'False
ShowAudioControls= 0 'False
ShowDisplay = 0 'False
ShowGotoBar = 0 'False
ShowPositionControls= 0 'False
ShowStatusBar = 0 'False
ShowTracker = 0 'False
TransparentAtStart= -1 'True
VideoBorderWidth= 0
VideoBorderColor= 33023
VideoBorder3D = 0 'False
Volume = -80
WindowlessVideo = 0 'False
End
End
End
End
Begin VB.PictureBox Picture1
Align = 3 'Align Left
Height = 4245
Left = 0
ScaleHeight = 4185
ScaleWidth = 8895
TabIndex = 9
Top = 1245
Width = 8955
Begin VB.PictureBox picSideBar1
AutoRedraw = -1 'True
BackColor = &H00800000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 3555
Left = 5760
ScaleHeight = 3555
ScaleWidth = 330
TabIndex = 14
Top = 450
Visible = 0 'False
Width = 330
End
Begin VB.PictureBox picSideBar
AutoRedraw = -1 'True
BackColor = &H00800000&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 3555
Left = 5415
ScaleHeight = 3555
ScaleWidth = 330
TabIndex = 13
Top = 450
Visible = 0 'False
Width = 330
End
Begin VB.Timer Timer1
Interval = 10
Left = 0
Top = 0
End
Begin VB.CheckBox chkClipBoard
Caption = "自动将新信息发送到剪粘板"
ForeColor = &H000040C0&
Height = 195
Left = -3000
TabIndex = 12
Top = 0
Visible = 0 'False
Width = 2505
End
Begin VB.CheckBox chkTop
Caption = "窗口浮在最上层"
ForeColor = &H000040C0&
Height = 195
Left = -3000
TabIndex = 11
Top = 75
Width = 1905
End
Begin VB.CommandButton cmdSendData
Caption = "发送消息(&S)"
Height = 465
Left = -3000
TabIndex = 10
Top = 0
Width = 1485
End
Begin MSComctlLib.ImageList ImageList6
Left = 6135
Top = 1875
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmServerX.frx":030A
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -