📄 form1.frm
字号:
VERSION 5.00
Object = "{4E586523-E97F-11D2-905B-24FD04C10000}#1.0#0"; "CalendarX.ocx"
Object = "{73E23C48-1DD9-11D4-8C6D-0000E844293D}#2.0#0"; "Hotkey.ocx"
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "LTS-定时关机"
ClientHeight = 2595
ClientLeft = 1620
ClientTop = 1530
ClientWidth = 5625
ClipControls = 0 'False
ControlBox = 0 'False
FillStyle = 0 'Solid
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
ScaleHeight = 2595
ScaleWidth = 5625
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin Hotkey.lhHotkey lhHotkey1
Left = 600
Top = 2640
_ExtentX = 1111
_ExtentY = 1111
KeyCtrl = -1 'True
KeyCharacter = 80
End
Begin CALENDARXLib.CalendarX CalendarX1
Left = 1560
Top = 2760
_Version = 65536
_ExtentX = 2355
_ExtentY = 1085
_StockProps = 0
End
Begin VB.Frame Frame1
Caption = "万年历"
ClipControls = 0 'False
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 2535
Left = 2280
TabIndex = 10
Top = 0
Width = 3255
Begin VB.OptionButton Option4
Caption = "公历查农历"
Height = 320
Left = 240
Style = 1 'Graphical
TabIndex = 49
Top = 1470
Width = 1335
End
Begin VB.OptionButton Option3
Caption = "农历查公历"
Height = 320
Left = 1680
Style = 1 'Graphical
TabIndex = 48
Top = 1470
Width = 1335
End
Begin VB.TextBox Tr
Height = 270
Left = 2160
MaxLength = 2
TabIndex = 47
Top = 1850
Width = 615
End
Begin VB.TextBox Ty
Height = 270
Left = 1200
MaxLength = 2
TabIndex = 46
Top = 1850
Width = 615
End
Begin VB.TextBox Tn
Height = 270
Left = 240
MaxLength = 4
TabIndex = 45
Top = 1850
Width = 615
End
Begin VB.CommandButton Command5
Caption = "恢复"
Height = 300
Left = 1200
TabIndex = 44
Top = 2160
Width = 855
End
Begin VB.TextBox Ttgr
Appearance = 0 'Flat
Height = 270
Left = 2450
Locked = -1 'True
TabIndex = 40
Text = "Text14"
Top = 830
Width = 495
End
Begin VB.TextBox Ttgy
Appearance = 0 'Flat
Height = 270
Left = 1730
Locked = -1 'True
TabIndex = 39
Text = "Text13"
Top = 830
Width = 495
End
Begin VB.TextBox Ttgn
Appearance = 0 'Flat
Height = 270
Left = 980
Locked = -1 'True
TabIndex = 38
Text = "Text12"
Top = 830
Width = 495
End
Begin VB.TextBox Tnlr
Appearance = 0 'Flat
Height = 270
Left = 2450
Locked = -1 'True
TabIndex = 37
Text = "Text11"
Top = 540
Width = 495
End
Begin VB.TextBox Tnly
Appearance = 0 'Flat
Height = 270
Left = 1730
Locked = -1 'True
TabIndex = 36
Text = "Text10"
Top = 540
Width = 495
End
Begin VB.TextBox Tnln
Appearance = 0 'Flat
Height = 270
Left = 980
Locked = -1 'True
TabIndex = 35
Text = "Text9"
Top = 540
Width = 495
End
Begin VB.TextBox Tglr
Appearance = 0 'Flat
Height = 270
Left = 2450
Locked = -1 'True
TabIndex = 28
Text = "23"
Top = 250
Width = 495
End
Begin VB.TextBox Tgly
Appearance = 0 'Flat
Height = 270
Left = 1730
Locked = -1 'True
TabIndex = 25
Text = "4"
Top = 250
Width = 495
End
Begin VB.TextBox Tgln
Appearance = 0 'Flat
Height = 270
Left = 980
Locked = -1 'True
TabIndex = 23
Text = "2004"
Top = 250
Width = 495
End
Begin VB.Frame Frame2
Caption = "行动提示"
ClipControls = 0 'False
BeginProperty Font
Name = "华文行楷"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 1170
Left = 0
TabIndex = 16
Top = 2520
Visible = 0 'False
Width = 3255
Begin VB.CommandButton Command3
BackColor = &H8000000B&
Caption = "OK"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2800
MaskColor = &H80000004&
TabIndex = 22
Top = 160
Width = 400
End
Begin VB.TextBox Text5
Height = 675
HideSelection = 0 'False
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 21
Text = "Form1.frx":030A
Top = 480
Width = 3255
End
Begin VB.TextBox Txdsj
Appearance = 0 'Flat
Height = 270
Left = 1930
TabIndex = 20
Text = "00:00:00"
Top = 200
Width = 840
End
Begin VB.TextBox Txdrq
Appearance = 0 'Flat
Height = 270
Left = 530
TabIndex = 18
Text = "2004-04-23"
Top = 200
Width = 975
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "时间"
Height = 180
Left = 1545
TabIndex = 19
Top = 240
Width = 360
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "日期"
Height = 180
Left = 120
TabIndex = 17
Top = 240
Width = 360
End
Begin VB.Line Line2
BorderColor = &H80000003&
X1 = 3230
X2 = 3230
Y1 = 240
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H80000003&
X1 = 0
X2 = 0
Y1 = 240
Y2 = 0
End
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "年"
Height = 180
Index = 3
Left = 960
TabIndex = 43
Top = 1920
Width = 180
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "月"
Height = 180
Index = 3
Left = 1920
TabIndex = 42
Top = 1920
Width = 180
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "日"
Height = 180
Index = 3
Left = 2880
TabIndex = 41
Top = 1920
Width = 180
End
Begin VB.Line Line3
BorderColor = &H8000000C&
X1 = 0
X2 = 3240
Y1 = 1400
Y2 = 1400
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "日"
Height = 180
Index = 2
Left = 3000
TabIndex = 34
Top = 850
Width = 180
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "月"
Height = 180
Index = 2
Left = 2250
TabIndex = 33
Top = 850
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -