planner.frm

Some scheduling software.

         Width           =   375
      End
      Begin VB.CheckBox chkEveryday 
         Caption         =   "Everyday"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   4050
         TabIndex        =   2
         ToolTipText     =   "Repeat this schedule everyday."
         Top             =   1890
         Width           =   1335
      End
      Begin VB.TextBox txtTitle 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   420
         Left            =   1770
         TabIndex        =   1
         Text            =   "New Title"
         ToolTipText     =   "Title, must be unique."
         Top             =   240
         Width           =   2910
      End
      Begin VB.Label Label6 
         Caption         =   "Notes to apear on the message board"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Left            =   315
         TabIndex        =   22
         Top             =   3195
         Width           =   3735
      End
      Begin VB.Label Label5 
         Caption         =   "Minutes"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   2970
         TabIndex        =   21
         Top             =   1635
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Hour"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   1785
         TabIndex        =   20
         Top             =   1635
         Width           =   615
      End
      Begin VB.Label Interval 
         Caption         =   "Interval"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   330
         TabIndex        =   19
         Top             =   2850
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Stop Time"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Index           =   1
         Left            =   330
         TabIndex        =   18
         Top             =   2370
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "Start Time"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Index           =   0
         Left            =   330
         TabIndex        =   17
         Top             =   1890
         Width           =   1095
      End
      Begin VB.Label Label7 
         Caption         =   "Ending date"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Left            =   450
         TabIndex        =   16
         Top             =   1230
         Width           =   1215
      End
      Begin VB.Label Label8 
         Caption         =   "Starting date"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   450
         TabIndex        =   15
         Top             =   870
         Width           =   1215
      End
      Begin VB.Label Label9 
         Caption         =   "Title"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   240
         Left            =   435
         TabIndex        =   14
         Top             =   405
         Width           =   945
      End
   End
End
Attribute VB_Name = "planner"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
    On Error Resume Next
    updateRC 0
    saveRC
    Unload Me
End Sub

Private Sub cmdPickDate_Click(Index As Integer)
Dim dt As Date
    On Error Resume Next
    ' SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Me.Refresh
    calender.calender.Value = IIf(IsDate(txtDate(Index)), txtDate(Index), Date)
    calender.iDate = calender.calender.Value
    calender.Show vbModal
    dt = calender.iDate
    Me.txtDate(Index) = dt
    ' SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    Me.Refresh
End Sub

Private Sub txtTitle_Click()
Dim i As Integer
    On Error Resume Next
    If txtTitle.Text = "New Title" Then
        txtTitle.SelStart = 0
        txtTitle.SelLength = Len(txtTitle.Text)
    End If
End Sub

Private Sub txtTitle_LostFocus()
    On Error Resume Next
    If txtTitle.Text = "" Then
        txtTitle.Text = "New Title"
    End If
End Sub

Private Sub cmdCancel_Click()
    On Error Resume Next
    Unload Me
End Sub