I am stuck trying to reuse the calendar or the date time class in visual basic I can not find a way to reset the former settings. Is it just me or is there a way to accomplish this task. Any help would be appreciated. I feel it is a simple program to concieve but unfortunatly I have not been able to find a resolution to the situation.I was up till 3 am trying to find a solution so I hope I have not messed up my code to much lol.
Inline Code Example Here
Public Class frmCalendar

Public Shared _strFutureReminders As String

Private Sub Calendar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' This Code enters todays date into the Todays Date Label
    lblTodaysDate.Text = My.Computer.Clock.LocalTime.ToLongDateString

End Sub

'above is the main calendar page when I go back to it and return to the editing page the calendar will not aknowlege the change of date?

Public Class frmEditor

Public Shared _intArraySize As Integer = 364I

Public Shared _dtmReminderDate(_intArraySize) As String

Public Shared _strDailyReminders(_intArraySize) As String
Dim _strDailyReminderInput As String
Dim _intCurrentReminderIndex As Integer
Public Shared _intRecordedIndexCount(_intArraySize) As Integer
Dim _Count As Integer = 0
Public Shared _dtmCurrentReminderDate As Date

Private Sub frmEditor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    ' records and displays the users selected date
    _dtmCurrentReminderDate = frmCalendar.datMain.Text
    lblEditingDate.Text = _dtmCurrentReminderDate.ToShortDateString

End Sub

Private Sub btnCalendarReturn_Click(sender As System.Object, e As System.EventArgs) Handles btnCalendarReturn.Click

End Sub

Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click

End Sub

Private Sub btnEdit_Click(sender As System.Object, e As System.EventArgs) Handles btnEdit.Click


End Sub

Public Sub RecordReminders()

    ' Recieves the data from the user and places it in the arrays

    _strDailyReminderInput = InputBox("Please enter the Reminders (Schedule) for " & _
                                      _dtmCurrentReminderDate.ToShortDateString(), "Input Box")
    _intRecordedIndexCount(_Count) = 0

    _dtmReminderDate(_Count) = _dtmCurrentReminderDate

    _strDailyReminders(_Count) = _strDailyReminderInput

    _intRecordedIndexCount(_Count) = _Count

    _Count += 1


End Sub

Public Sub DisplayEditReminder()

    For count As Integer = 0 To (_Count - 1)
        If _dtmReminderDate(count) = _dtmCurrentReminderDate Then
            MsgBox("Sorry there are no reminders for " & _dtmCurrentReminderDate _
                   & "Please insert the Reminder information", MsgBoxStyle.DefaultButton1, "User Message")
        End If


End Sub

End Class

As I have stated I may have made a big mistake by trying to change the calendar into a date time object.
any insight into my mistake would be greatly appreciated.
Thank You,

Private Sub btnOpenEditor_Click(sender As System.Object, e As System.EventArgs) Handles btnOpenEditor.Click
    ' This code hides the Calendar Window and opens the Editor window
End Sub

Private Sub btnClearReminders_Click(sender As System.Object, e As System.EventArgs) Handles btnClearReminders.Click
End Sub

Private Sub btnInsertReminders_Click(sender As System.Object, e As System.EventArgs) Handles btnInsertReminders.Click
    frmCalendar._strFutureReminders = InputBox("Please enter the information for the REMINDER ", "Input Window")

End Sub

End Class

4 Years
Discussion Span
Last Post by cd88
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.