faiqaa Ответов: 1

Как установить встречи в календаре с напоминанием (текстовые файлы) с помощью 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

1 Ответов

Рейтинг:
0

RickZeeland

Это не выглядит нормально:

If File.Exists(t & "C:\Users\Windows 7 User\Desktop\bookings.txt")
это должно быть что-то вроде:
If File.Exists("C:\Users\Windows 7 User\Desktop\bookings" & t & ".txt")
И даже лучше:
If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & 
"\bookings" & t & ".txt")


faiqaa

Изначально это было что-то вроде этого (t & ".txt"), это тоже не сработало, и я хочу использовать конкретный текстовый файл, который я уже сделал, под названием "бронирование". Я попробовал два метода,предложенных вами,но это, кажется, не работает, мне разрешено ввести детали бронирования, нажав на дату, затем я нажимаю сохранить и вернуться. Я снова нажимаю на ту же дату, чтобы просмотреть бронирование, вместо того чтобы показать мне то, что я написал ранее, он снова спрашивает меня, хочу ли я снова забронировать номер на ту же дату. Спасибо, что уделили мне время.

RickZeeland

Тогда просто попробуйте использовать "bookings.txt", если все пойдет хорошо, то файл будет создан в папке, где находится ваш exe-файл.
Если он не работает, установите точки останова и проверьте код, наведя на него курсор мыши ...