📄 addtime.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form AddTime
BorderStyle = 3 'Fixed Dialog
Caption = "新建定时任务"
ClientHeight = 2580
ClientLeft = 45
ClientTop = 435
ClientWidth = 3825
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
Picture = "AddTime.frx":0000
ScaleHeight = 2580
ScaleWidth = 3825
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 2565
Left = 15
ScaleHeight = 2535
ScaleWidth = 3765
TabIndex = 0
Top = 15
Width = 3795
Begin VB.CommandButton Command1
Caption = "关闭"
Height = 315
Left = 3180
TabIndex = 21
Top = 2220
Width = 555
End
Begin VB.TextBox Text2
Height = 315
Left = 30
TabIndex = 20
Top = 2550
Width = 3105
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Caption = "Frame1"
Height = 645
Left = 0
TabIndex = 12
Top = 720
Width = 3675
Begin VB.CheckBox Check2
Caption = "可取消"
Enabled = 0 'False
Height = 225
Left = 2625
TabIndex = 19
Top = 360
Width = 945
End
Begin VB.CheckBox Check1
Caption = "显示提示"
Height = 225
Left = 1485
TabIndex = 18
Top = 360
Width = 1035
End
Begin VB.OptionButton Option7
Caption = "仅仅提醒"
Height = 225
Left = 315
TabIndex = 16
Top = 360
Width = 1065
End
Begin VB.OptionButton Option2
Caption = "外部程序"
Height = 225
Left = 2160
TabIndex = 15
Top = 60
Width = 1065
End
Begin VB.OptionButton Option1
Caption = "系统操作"
Height = 225
Left = 660
TabIndex = 14
Top = 60
Width = 1065
End
Begin VB.Line Line3
X1 = 120
X2 = 3660
Y1 = 630
Y2 = 630
End
End
Begin VB.ComboBox FangS
Height = 300
ItemData = "AddTime.frx":04F2
Left = 165
List = "AddTime.frx":0502
Style = 2 'Dropdown List
TabIndex = 11
Top = 330
Width = 1395
End
Begin VB.ComboBox XuanX
Appearance = 0 'Flat
Height = 300
Left = 1590
Style = 2 'Dropdown List
TabIndex = 9
Top = 330
Width = 675
End
Begin VB.TextBox Text1
Height = 315
Left = 30
MaxLength = 20
TabIndex = 8
Top = 2220
Width = 3135
End
Begin VB.CommandButton Command2
Height = 315
Left = 3180
Picture = "AddTime.frx":0526
Style = 1 'Graphical
TabIndex = 7
Top = 2550
Width = 555
End
Begin VB.CommandButton Command3
Caption = "确定"
Height = 315
Left = 3180
TabIndex = 6
Top = 1890
Width = 555
End
Begin VB.Frame Frame2
BorderStyle = 0 'None
Caption = "Frame2"
Enabled = 0 'False
Height = 225
Left = 330
TabIndex = 1
Top = 1470
Width = 3225
Begin VB.OptionButton Option5
Caption = "重启"
Height = 225
Left = 1545
TabIndex = 5
Top = 0
Width = 705
End
Begin VB.OptionButton Option6
Caption = "关机"
Height = 225
Left = 2280
TabIndex = 4
Top = 0
Width = 705
End
Begin VB.OptionButton Option3
Caption = "注销"
Height = 225
Left = 0
TabIndex = 3
Top = 0
Width = 705
End
Begin VB.OptionButton Option4
Caption = "待机"
Height = 225
Left = 780
TabIndex = 2
Top = 0
Width = 705
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = -30
Top = 1410
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 315
Left = 2468
TabIndex = 10
Top = 323
Width = 1065
_ExtentX = 1879
_ExtentY = 556
_Version = 393216
Appearance = 0
AllowPrompt = -1 'True
MaxLength = 8
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = "ttttt"
Mask = "##:##:##"
PromptChar = " "
End
Begin VB.Label Label2
Alignment = 2 'Center
Height = 255
Left = 30
TabIndex = 17
Top = 1950
Width = 3135
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "请选择任务执行方式及要执行的任务:"
Height = 225
Left = 360
TabIndex = 13
Top = 60
Width = 3165
End
Begin VB.Line Line1
X1 = 120
X2 = 3660
Y1 = 690
Y2 = 690
End
Begin VB.Line Line2
X1 = 120
X2 = 3660
Y1 = 1800
Y2 = 1800
End
End
End
Attribute VB_Name = "AddTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public jlh As Integer '记录号--用来定位记录写入位置
Dim b As MyJiLu '要写的记录
Private Sub Check1_Click() '是否显示提示消息
If Check1.Value = 1 Then
Check2.Enabled = True
Label2.Caption = "请在下面输入不多于20字的提示消息!!"
b.是否提示 = "提示"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -