📄 123.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "msdxm.ocx"
Begin VB.Form Form1
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClientHeight = 6390
ClientLeft = 105
ClientTop = 105
ClientWidth = 5610
ControlBox = 0 'False
DrawStyle = 5 'Transparent
FillStyle = 0 'Solid
Icon = "123.frx":0000
LinkTopic = "Form1"
Picture = "123.frx":0442
ScaleHeight = 426
ScaleMode = 3 'Pixel
ScaleWidth = 374
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer8
Interval = 100
Left = 7275
Top = 5160
End
Begin VB.PictureBox P9
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 3540
Left = 45
Picture = "123.frx":2588E
ScaleHeight = 236
ScaleMode = 3 'Pixel
ScaleWidth = 276
TabIndex = 67
Top = 6540
Width = 4140
End
Begin VB.PictureBox P8
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 3540
Left = 4290
Picture = "123.frx":29C48
ScaleHeight = 236
ScaleMode = 3 'Pixel
ScaleWidth = 276
TabIndex = 66
Top = 6555
Width = 4140
Begin MediaPlayerCtl.MediaPlayer MPl
Height = 1080
Left = 570
TabIndex = 90
Top = 660
Width = 1965
AudioStream = -1
AutoSize = 0 'False
AutoStart = -1 'True
AnimationAtStart= -1 'True
AllowScan = -1 'True
AllowChangeDisplaySize= -1 'True
AutoRewind = 0 'False
Balance = 0
BaseURL = ""
BufferingTime = 5
CaptioningID = ""
ClickToPlay = -1 'True
CursorType = 0
CurrentPosition = -1
CurrentMarker = 0
DefaultFrame = ""
DisplayBackColor= 0
DisplayForeColor= 16777215
DisplayMode = 0
DisplaySize = 4
Enabled = -1 'True
EnableContextMenu= -1 'True
EnablePositionControls= -1 'True
EnableFullScreenControls= 0 'False
EnableTracker = -1 'True
Filename = "click.wav"
InvokeURLs = -1 'True
Language = -1
Mute = 0 'False
PlayCount = 1
PreviewMode = 0 'False
Rate = 1
SAMILang = ""
SAMIStyle = ""
SAMIFileName = ""
SelectionStart = -1
SelectionEnd = -1
SendOpenStateChangeEvents= -1 'True
SendWarningEvents= -1 'True
SendErrorEvents = -1 'True
SendKeyboardEvents= 0 'False
SendMouseClickEvents= 0 'False
SendMouseMoveEvents= 0 'False
SendPlayStateChangeEvents= -1 'True
ShowCaptioning = 0 'False
ShowControls = -1 'True
ShowAudioControls= -1 'True
ShowDisplay = 0 'False
ShowGotoBar = 0 'False
ShowPositionControls= -1 'True
ShowStatusBar = 0 'False
ShowTracker = -1 'True
TransparentAtStart= 0 'False
VideoBorderWidth= 0
VideoBorderColor= 0
VideoBorder3D = 0 'False
Volume = -600
WindowlessVideo = 0 'False
End
End
Begin VB.PictureBox Picture6
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 105
Left = 615
Picture = "123.frx":2DDB6
ScaleHeight = 105
ScaleWidth = 4140
TabIndex = 65
Top = 2700
Width = 4140
End
Begin VB.TextBox txtDisp
Height = 330
Left = 5550
TabIndex = 63
Text = "Text5"
Top = 360
Width = 3585
End
Begin VB.Timer Timer6
Enabled = 0 'False
Interval = 1
Left = 7185
Top = 5610
End
Begin VB.Timer Timer5
Enabled = 0 'False
Interval = 1
Left = 6750
Top = 5580
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 1
Left = 6255
Top = 5580
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 1
Left = 5775
Top = 5565
End
Begin VB.Timer Timer2
Interval = 100
Left = 6255
Top = 5145
End
Begin VB.Timer Timer1
Interval = 1000
Left = 5805
Top = 5145
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2670
Left = 60
Picture = "123.frx":2E279
ScaleHeight = 178
ScaleMode = 3 'Pixel
ScaleWidth = 353
TabIndex = 0
ToolTipText = "按下鼠标左键移动窗体"
Top = 0
Width = 5295
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000040&
ForeColor = &H000000FF&
Height = 1545
Left = 615
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 266
TabIndex = 11
Top = 765
Visible = 0 'False
Width = 4020
End
Begin VB.PictureBox Pt
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1485
Left = 720
MouseIcon = "123.frx":33D44
MousePointer = 99 'Custom
Picture = "123.frx":3460E
ScaleHeight = 99
ScaleMode = 3 'Pixel
ScaleWidth = 258
TabIndex = 64
ToolTipText = "单击返回时间面板"
Top = 795
Visible = 0 'False
Width = 3870
Begin VB.Line L1
BorderColor = &H000000C0&
BorderStyle = 6 'Inside Solid
X1 = 220
X2 = 233
Y1 = 13
Y2 = 18
End
Begin VB.Line L2
BorderColor = &H00400000&
X1 = 219
X2 = 234
Y1 = 22
Y2 = 22
End
Begin VB.Line L3
BorderColor = &H00004000&
X1 = 225
X2 = 235
Y1 = 31
Y2 = 23
End
End
Begin VB.PictureBox Gz
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 345
Left = 3240
MouseIcon = "123.frx":4726A
MousePointer = 99 'Custom
Picture = "123.frx":47B34
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 31
TabIndex = 27
ToolTipText = "单击退出"
Top = 1485
Width = 465
End
Begin VB.PictureBox wWeekP
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 165
Left = 2100
Picture = "123.frx":48418
ScaleHeight = 11
ScaleMode = 3 'Pixel
ScaleWidth = 56
TabIndex = 26
Top = 1215
Width = 840
End
Begin VB.PictureBox mSecP
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 225
Left = 2820
Picture = "123.frx":48B94
ScaleHeight = 15
ScaleMode = 3 'Pixel
ScaleWidth = 20
TabIndex = 25
Top = 1905
Width = 300
End
Begin VB.PictureBox SecP
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 225
Left = 2370
Picture = "123.frx":490C4
ScaleHeight = 15
ScaleMode = 3 'Pixel
ScaleWidth = 28
TabIndex = 24
Top = 1905
Width = 420
End
Begin VB.PictureBox N_d
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 375
Left = 3915
Picture = "123.frx":495F4
ScaleHeight = 25
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 9
Top = 1830
Width = 480
End
Begin VB.PictureBox Week_p
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 210
Left = 2520
Picture = "123.frx":49F98
ScaleHeight = 14
ScaleMode = 3 'Pixel
ScaleWidth = 16
TabIndex = 8
Top = 825
Width = 240
End
Begin VB.PictureBox G_d
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 375
Left = 1215
Picture = "123.frx":4A27C
ScaleHeight = 25
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 7
Top = 1830
Width = 480
End
Begin VB.PictureBox G_m
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 375
Left = 1215
Picture = "123.frx":4AC20
ScaleHeight = 25
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 6
Top = 1455
Width = 480
End
Begin VB.PictureBox N_m
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 375
Left = 3885
Picture = "123.frx":4B5C4
ScaleHeight = 25
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 4
Top = 1455
Width = 480
End
Begin VB.PictureBox C_clock
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 360
Left = 1935
MouseIcon = "123.frx":4BF68
MousePointer = 99 'Custom
ScaleHeight = 24
ScaleMode = 3 'Pixel
ScaleWidth = 79
TabIndex = 3
ToolTipText = "单击返回今天"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -