定时器.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 定时列表 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "定时列表"
   ClientHeight    =   2085
   ClientLeft      =   4785
   ClientTop       =   3915
   ClientWidth     =   4875
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2085
   ScaleWidth      =   4875
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ListView ListView1 
      Height          =   1665
      Left            =   15
      TabIndex        =   3
      Top             =   30
      Width           =   4845
      _ExtentX        =   8546
      _ExtentY        =   2937
      View            =   3
      Arrange         =   2
      LabelEdit       =   1
      LabelWrap       =   0   'False
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton Command3 
      Caption         =   "编辑"
      Height          =   285
      Left            =   2002
      TabIndex        =   1
      Top             =   1740
      Width           =   825
   End
   Begin VB.CommandButton Command2 
      Caption         =   "关闭"
      Height          =   285
      Left            =   3877
      TabIndex        =   0
      Top             =   1740
      Width           =   825
   End
   Begin VB.CommandButton Command1 
      Caption         =   "删除"
      Height          =   285
      Left            =   2947
      TabIndex        =   2
      Top             =   1740
      Width           =   825
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   240
      TabIndex        =   4
      Top             =   1800
      Width           =   1755
   End
End
Attribute VB_Name = "定时列表"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
 Dim aa As Integer
 aa = ListView1.SelectedItem.Index
 Dim lj As String
 lj = App.Path + "\" + "time.gs"
Call 删除记录(aa, lj)
Call liebiao
 写入创建 "Time", vbNullString, vbNullString, 主窗体.MyName
Call 主窗体.jlrw
End Sub

Private Sub Command2_Click()
Unload Me
主窗体.Show
End Sub

Private Sub Command4_Click()
AddTime.Show
Unload Me
End Sub

Private Sub Command3_Click()
 Dim aa As Integer
 Dim a As Integer
 Dim aaa As MyJiLu
 Dim lj As String
 aa = ListView1.SelectedItem.Index
 a = FreeFile
If Command3.Caption = "编辑" Then
 lj = App.Path + "\" + "time.gs"
Open lj For Random As #a Len = Len(aaa)
Get #a, aa, aaa '读入一个记录。
Close #a
AddTime.MaskEdBox1.Text = aaa.时间
If InStr(aaa.周期, "系统") <> 0 Then
AddTime.FangS.Text = Left(aaa.周期, 2) + "运行时间"
Else
AddTime.FangS.Text = aaa.周期
End If
 If InStr(aaa.周期, "每天") <> 0 Or InStr(aaa.周期, "系统") Then
 Else
 AddTime.XuanX.ListIndex = CInt(aaa.月份星期) - 1
 End If
   Select Case Left(aaa.操作类型, 4)
    Case "系统操作"
    AddTime.Option1.Value = True
     Select Case Left(aaa.操作, 2)
      Case "注销"
      AddTime.Option3 = True
      Case "待机"
      AddTime.Option4 = True
      Case "重启"
      AddTime.Option5 = True
      Case "关机"
      AddTime.Option6 = True
     End Select
    Case "外部程序"
    AddTime.Option2.Value = True
    AddTime.Height = 3435
    AddTime.Picture1.Height = 2925
    AddTime.Text2.Text = aaa.操作
    Case "仅仅提示"
    AddTime.Option7.Value = True
    AddTime.Check1.Value = 1
    AddTime.Text1.Text = aaa.提示消息
    AddTime.Check2.Enabled = False
   End Select
   If InStr(aaa.是否提示, "不提示") <> 0 Then
   Else
      AddTime.Check1.Value = 1
      AddTime.Text1.Text = aaa.提示消息
      If InStr(aaa.可否取消, "可以取消") Then
       AddTime.Check2.Value = 1
      End If
   End If
AddTime.Show
AddTime.jlh = aa
Unload Me
Else
AddTime.Show
AddTime.jlh = aa
Unload Me
End If
End Sub


Private Sub Form_Load()
   Dim sz(1) As String
读取 "dsq", "left", sz(0), 主窗体.MyName
If sz(0) = "No" Then
Me.Left = (Screen.Width - Me.Width) / 2
Else
Me.Left = Val(sz(0))
End If
读取 "dsq", "top", sz(1), 主窗体.MyName
If sz(1) = "No" Then
Me.Top = (Screen.Height - Me.Height) / 2
Else
Me.Top = Val(sz(1))
End If
Call liebiao
End Sub

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

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
If ListView1.SelectedItem = "" Then
   Command3.Caption = "新建"
Else
   Command3.Caption = "编辑"
End If
End Sub
Sub liebiao()
Dim lj As String
Dim a As Integer
Dim aaa As MyJiLu
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Add , , "时间"
ListView1.ColumnHeaders.Add , , "执行操作"
ListView1.ColumnHeaders.Add , , "执行周期"
ListView1.ColumnHeaders.Add , , "日期or星期"
a = FreeFile
lj = App.Path + "\" + "time.gs"
Open lj For Random As #a Len = Len(aaa)
Do While Not EOF(a) '循环至文件尾。
Get #a, , aaa '读入下一个记录。
  b = b + 1
Loop
Label1.Caption = "共有定时任务" & b - 1 & "条"
If b = 1 Then
Command3.Caption = "新建"
Else
Command3.Caption = "编辑"
End If
Seek #a, 1
Do While Not EOF(a) '循环至文件尾。
Get #a, , aaa '读入下一个记录。
Dim li As ListItem
Set li = ListView1.ListItems.Add(, , Trim(aaa.时间))
li.ListSubItems.Add , , Trim(aaa.操作)
li.ListSubItems.Add , , Trim(aaa.周期)
li.ListSubItems.Add , , Trim(aaa.月份星期)
Loop
Close #a
End Sub