addtime.frm

简单时间程序,可以定时执行任务,显示当前时间到前台窗口

Check2.Enabled = False
b.是否提示 = "不提示"
Check2.Value = 0
b.可否取消 = "不可取消"
End If
End Sub

Private Sub Check2_Click() '是否可以取消要执行的任务
If Check1.Value = 1 Then
b.可否取消 = "可以取消"
Else
b.可否取消 = "不可取消"
End If
End Sub

Private Sub Command1_Click() '关闭
If jlh <> 0 Then
 定时列表.Show
End If
Unload Me
End Sub

Private Sub Command2_Click() '查找要执行的外部程序
CommonDialog1.DialogTitle = "查找外部程序"
CommonDialog1.Filter = "可执行文件(*.EXE)|*.EXE|音频文件(*.wav,*.mp3,*.midi)|*.wav;*.mp3;*.midi|任意(*.*)|*.*"
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileName
End Sub

Private Sub Command3_Click() '写入记录
    Dim filepath As String
    If InStr(b.操作类型, "外部程序") <> 0 Then
       b.操作 = Text2.Text
    End If
  filepath = App.Path + "\" + "time.gs"
 If b.周期 = "系统" Then
   If Len(MaskEdBox1.ClipText) < 6 Or Mid(MaskEdBox1.ClipText, 3, 2) > 59 Or Right(MaskEdBox1.ClipText, 2) > 59 Then
    MsgBox "不是合法的时间格式,请重新输入!"
    MaskEdBox1.Text = "00:00:00"
  Else
    b.时间 = MaskEdBox1.Text
    b.提示消息 = Text1.Text
    Call 写入时间表(b, filepath, jlh)
    写入创建 "Time", vbNullString, vbNullString, 主窗体.MyName
    Call 主窗体.jlrw '刷新要执行的任务
        If jlh <> 0 Then
         定时列表.Show
        End If
      Unload Me
   End If
Else
  If Len(MaskEdBox1.ClipText) < 6 Or Left(MaskEdBox1.ClipText, 2) > 24 Or Mid(MaskEdBox1.ClipText, 3, 2) > 59 Or Right(MaskEdBox1.ClipText, 2) > 59 Then
    MsgBox "不是合法的时间格式,请重新输入!"
    MaskEdBox1.Text = Format(Time, "hh:mm:ss")
  Else
    b.时间 = MaskEdBox1.Text
    b.提示消息 = Text1.Text
    Call 写入时间表(b, filepath, jlh)
    写入创建 "Time", vbNullString, vbNullString, 主窗体.MyName
    Call 主窗体.jlrw '刷新要执行的任务
        If jlh <> 0 Then
         定时列表.Show
        End If
      Unload Me
   End If
End If
End Sub

Private Sub FangS_Click()
If FangS.ListIndex = 0 Then
 XuanX.Clear
  With XuanX
   .List(0) = "1"
   .List(1) = "2"
   .List(2) = "3"
   .List(3) = "4"
   .List(4) = "5"
   .List(5) = "6"
   .List(6) = "7"
   .List(7) = "8"
   .List(8) = "9"
   .List(9) = "10"
   .List(10) = "11"
   .List(11) = "12"
   .List(12) = "13"
   .List(13) = "14"
   .List(14) = "15"
   .List(15) = "16"
   .List(16) = "17"
   .List(17) = "18"
   .List(18) = "19"
   .List(19) = "20"
   .List(20) = "21"
   .List(21) = "22"
   .List(22) = "23"
   .List(23) = "24"
   .List(24) = "25"
   .List(25) = "26"
   .List(26) = "27"
   .List(27) = "28"
   .List(28) = "29"
   .List(29) = "30"
   .List(30) = "31"
   End With
XuanX.Enabled = True
XuanX.ListIndex = 0
b.周期 = "每月"
FangS.ToolTipText = "请继续选择在每月的几日执行任务"
Else
 If FangS.ListIndex = 1 Then
   XuanX.Clear
   With XuanX
    .List(0) = "1"
    .List(1) = "2"
    .List(2) = "3"
    .List(3) = "4"
    .List(4) = "5"
    .List(5) = "6"
    .List(6) = "7"
    End With
   XuanX.Enabled = True
  XuanX.ListIndex = 0
  b.周期 = "每周"
  FangS.ToolTipText = "请继续选择在每周几执行任务"
  Else
   If FangS.ListIndex = 2 Then
   XuanX.Clear
   XuanX.Enabled = False
 FangS.ToolTipText = "系统将在每天的指定时间执行任务"
 b.周期 = "每天"
 b.月份星期 = ""
    Else
      XuanX.Clear
   XuanX.Enabled = False
   FangS.ToolTipText = "系统将在启动以来运行总时间到达指定时间后执行任务"
   b.周期 = "系统"
   b.月份星期 = ""
    MaskEdBox1.Text = "00:00:00"
    End If
 End If
End If
End Sub

Private Sub Form_Load()
   Dim sz(1) As String
   jlh = 0
读取 "addtime", "left", sz(0), 主窗体.MyName
If sz(0) = "No" Then
Me.Left = (Screen.Width - Me.Width) / 2
Else
Me.Left = Val(sz(0))
End If
读取 "addtime", "top", sz(1), 主窗体.MyName
If sz(1) = "No" Then
Me.Top = (Screen.Height - Me.Height) / 2
Else
Me.Top = Val(sz(1))
End If
FangS.ListIndex = 2
Label2.Caption = "请先在上面选择执行任务的方式!!"
MaskEdBox1.Text = Format(Time, "hh:mm:ss")
b.可否取消 = "不可取消"
b.是否提示 = "不提示"
Option1.Value = True
Text1.Text = "输入提示消息"
Text2.Text = "外部程序路径"
End Sub

Private Sub Form_Unload(Cancel As Integer)
 写入创建 "addtime", "left", Me.Left, 主窗体.MyName
 写入创建 "addtime", "top", Me.Top, 主窗体.MyName
End Sub


Private Sub MaskEdBox1_GotFocus()
MaskEdBox1.SelStart = 0
End Sub

Private Sub Option1_Click()
Label2.Caption = "请在上面选择要执行的系统操作!!"
Frame2.Enabled = True
b.操作类型 = "系统操作"
AddTime.Height = 3105
Picture1.Height = 2595
Option3.Value = True
Option3.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Check1.Enabled = True
Check1.Value = 0
End Sub

Private Sub Option2_Click()
Label2.Caption = "请在下面输入外部程序绝对路径!!"
Frame2.Enabled = False
b.操作类型 = "外部程序"
AddTime.Height = 3435
Picture1.Height = 2925
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
Check1.Enabled = True
Check1.Value = 0
End Sub

Private Sub Option3_Click()
b.操作 = "注销"
End Sub

Private Sub Option4_Click()
b.操作 = "待机"
End Sub

Private Sub Option5_Click()
b.操作 = "重启"
End Sub

Private Sub Option6_Click()
b.操作 = "关机"
End Sub

Private Sub Option7_Click()
Label2.Caption = "请在下面输入不多于20字的提示消息!!"
Frame2.Enabled = False
b.操作类型 = "仅仅提示"
b.操作 = "提示"
Check1.Enabled = False
Check1.Value = 2
Check2.Enabled = False
AddTime.Height = 3105
Picture1.Height = 2595
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
End Sub

Private Sub Text1_DblClick()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub XuanX_Change()
b.月份星期 = XuanX.Text
End Sub

Private Sub XuanX_Click()
b.月份星期 = XuanX.Text
End Sub