Hi,
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

    Me.Hide()
    frmCalendar.Show()
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

    RecordReminders()

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

    DisplayEditReminder()

End Sub

Public Sub DisplayEditReminder()



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



    Next

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,
C.D.

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
    Me.Hide()
    frmEditor.Show()
End Sub


Private Sub btnClearReminders_Click(sender As System.Object, e As System.EventArgs) Handles btnClearReminders.Click
    lstReminders.Items.Clear()
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")
    lstReminders.Items.Add(frmCalendar._strFutureReminders)

End Sub

End Class

Recommended Answers

All 2 Replies

What about using DateTime instead of your own class?

Nope was not a solution.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.