Как установить встречи в календаре с напоминанием (текстовые файлы) с помощью VB?
В моей программе мне нужно иметь возможность устанавливать встречи в календаре и получать напоминания, когда дата тех, которые я установил, приближается, чтобы сохранить детали, которые я использую текстовые файлы. Я попытался использовать приведенный ниже код, но проблема заключается в том, что всякий раз, когда я пытаюсь сохранить детали, связанные с назначением встречи, данные на самом деле не сохраняются, и поэтому назначение не устанавливается. Кто-нибудь знает, где я ошибаюсь?Заранее спасибо.
button1= сохранить и button2= назад
Что я уже пробовал:
Imports System.IO Public Class Form10 Dim t As String Dim msg As MsgBoxResult Private Sub MonthCalendar1_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateSelected t = MonthCalendar1.SelectionRange.Start.Month.ToString & MonthCalendar1.SelectionRange.Start.Day.ToString Try If File.Exists(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") = True Then MonthCalendar1.Enabled = False MonthCalendar1.Hide() TextBox1.Enabled = True TextBox1.Show() button1.Enabled = True button1.Show() button2.Enabled = True button2.Show() TextBox1.Text = File.ReadAllText(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") Else msg = MsgBox("Would you like to create a booking for this date?", MsgBoxStyle.YesNo) If msg = MsgBoxResult.Yes Then MonthCalendar1.Enabled = False MonthCalendar1.Hide() TextBox1.Enabled = True TextBox1.Show() TextBox1.Text = "" button1.Enabled = True button1.Show() button2.Enabled = True button2.Show() End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click TextBox1.Enabled = False TextBox1.Hide() button1.Enabled = False button1.Hide() button2.Enabled = False button2.Hide() MonthCalendar1.Enabled = True MonthCalendar1.Show() End Sub Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click Try If TextBox1.Text = "" Then If File.Exists(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") = True Then File.Delete(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") If TextBox1.Text.Length > 0 Then File.WriteAllText(t & "C:\Users\Windows 7 User\Desktop\bookings.txt", TextBox1.Text) End If End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim msg1 As MsgBoxResult t = MonthCalendar1.SelectionRange.Start.Month.ToString & MonthCalendar1.SelectionRange.Start.Day.ToString If Date.Today = MonthCalendar1.TodayDate And File.Exists(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") = True Then End If If msg1 = MsgBox(" You have a booking set for today, would like to view it?", MsgBoxStyle.YesNo) Then If msg1 = MsgBoxResult.Yes Then MonthCalendar1.Enabled = False MonthCalendar1.Hide() TextBox1.Enabled = True TextBox1.Show() button1.Enabled = True button1.Show() button2.Enabled = True button2.Show() TextBox1.Text = File.ReadAllText(t & "C:\Users\Windows 7 User\Desktop\bookings.txt") End If End If End Sub End Class