Thiết kế chương trình Program Starter

Public Edit As Boolean
Public ItemCount As Integer
Dim ByteFile As Variant
Dim AppPath As String
Dim i As Integer

Private Sub CmdAdd_Click()
  Edit = False
  FrmAdd.Show vbModal
End Sub

Private Sub CmdDel_Click()
  LstTime.RemoveItem LstTime.ListIndex
  LstProgram.RemoveItem LstProgram.ListIndex
  LstTime.ListIndex = -1
  LstProgram.ListIndex = -1
  CmdDel.Enabled = False
  CmdEdit.Enabled = False
  ItemCount = ItemCount - 1
End Sub

Private Sub CmdEdit_Click()
  Edit = True
  With FrmAdd
    .TxtTime = LstTime.List(LstTime.ListIndex)
    .TxtProgram = LstProgram.List(LstProgram.ListIndex)
    .Show vbModal
  End With
End Sub

Private Sub Form_Initialize()
  If Right$(App.Path, 1) <> "\" Then
    AppPath = App.Path & "\"
  Else
    AppPath = App.Path
  End If
End Sub

Private Sub Form_Load()
  Dim Data As New PropertyBag
  On Error Resume Next
  Open AppPath & "Data.dat" For Binary As #1
    Get #1, , ByteFile
  Close #1
  Data.Contents = ByteFile
  ItemCount = Data.ReadProperty("Count")
  For i = 1 To ItemCount
    LstTime.AddItem Data.ReadProperty("Time" & i)
    LstProgram.AddItem Data.ReadProperty("Program" & i)
  Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim Data As New PropertyBag
  On Error Resume Next
  TimTimer.Enabled = False
  Data.WriteProperty "Count", ItemCount
  For i = 1 To ItemCount
    Data.WriteProperty "Time" & i, LstTime.List(i - 1)
    Data.WriteProperty "Program" & i, LstProgram.List(i - 1)
  Next
  ByteFile = Data.Contents
  Open AppPath & "Data.dat" For Binary As #1
    Put #1, , ByteFile
  Close #1
End Sub

Private Sub LstTime_Click()
  LstProgram.ListIndex = LstTime.ListIndex
  CmdEdit.Enabled = True
  CmdDel.Enabled = True
End Sub

Private Sub LstTime_KeyDown(KeyCode As Integer, Shift As Integer)
  LstTime_Click
End Sub

Private Sub LstProgram_Click()
  LstProgram.ToolTipText = LstProgram.List(LstProgram.ListIndex)
  LstTime.ListIndex = LstProgram.ListIndex
  CmdEdit.Enabled = True
  CmdDel.Enabled = True
End Sub

Private Sub LstProgram_KeyDown(KeyCode As Integer, Shift As Integer)
  LstProgram_Click
End Sub

Private Sub TimTimer_Timer()
  TimTimer.Tag = CStr(Time)
  Me.Caption = "Program Starter - " & TimTimer.Tag
  For i = 0 To LstTime.ListCount - 1
    If LstTime.List(i) = TimTimer.Tag Then Shell LstProgram.List(i), vbNormalFocus
  Next
End Sub

Private Sub CmdBrowse_Click()
On Error GoTo Err
  With CdlDialog
    .ShowOpen
    If Dir$(.FileName, vbArchive vbHidden vbReadOnly vbSystem) <> "" Then
      TxtProgram.Text = .FileName
    Else
      MsgBox "Your file not exist !", vbExclamation, "Error: file not exist"
    End If
  End With
  Exit Sub
Err:
  If Err = cdlCancel Then
    Exit Sub
  Else
    MsgBox Err.Description, vbCritical, "Error: " & Err.Number
  End If
End Sub

Private Sub CmdCancel_Click()
  Unload Me
End Sub

Private Sub CmdOK_Click()
  If TxtTime.Text <> "" And TxtProgram.Text <> "" Then
    With FrmMain
      If .Edit = True Then
        .LstTime.List(.LstTime.ListIndex) = TxtTime.Text
        .LstProgram.List(.LstProgram.ListIndex) = TxtProgram.Text
      Else
        .LstTime.AddItem TxtTime.Text
        .LstProgram.AddItem TxtProgram.Text
        .ItemCount = .ItemCount 1
      End If
      .LstTime.ListIndex = -1
      .LstProgram.ListIndex = -1
      .CmdEdit.Enabled = False
      .CmdDel.Enabled = False
    End With
    Unload Me
  Else
    MsgBox "Please enter your data !", vbExclamation, "Error: no have data !"
  End If
End Sub

Private Sub Form_Load()
  TxtTime.Text = FrmMain.TimTimer.Tag
End Sub