Hi,
ich will mir einen Terminkalender schreiben. Ich hab in einem Ordner ("Termine\Woche") die Termine, die wöchentlich sind (mit dem Namen des Wochentages (0,1,2,3,4,5 oder 6), und diese möchte ich auf dem Auswahlkalender fett anzeigen lassen. Mein Code:
Nach dem etwa 4. Monatswechsel (manchmal schon beim 3., manchmal erst beim 5.) kommt bei der zeile "Kalender.BoldedDates = d" die Fehlermeldung "Ungültiger Parameter". Hat jemand eine Ahnung wieso?
vG,
Lupus
Edit: Hab grad nochmal nen paar Tests gemacht: Wenn man "Kalender.BoldedDates = Nothing" statt "... = d" schreibt, kommt die gleiche Fehlermeldung, also musss es am Kalender liegen, denk ich
ich will mir einen Terminkalender schreiben. Ich hab in einem Ordner ("Termine\Woche") die Termine, die wöchentlich sind (mit dem Namen des Wochentages (0,1,2,3,4,5 oder 6), und diese möchte ich auf dem Auswahlkalender fett anzeigen lassen. Mein Code:
VB.NET-Quellcode
- Private Sub Kalender_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles Kalender.DateChanged
- With My.Computer.FileSystem
- If .DirectoryExists(Pfad + "Termine\Woche") Then
- Dim d(6) As Date
- Dim d_t(31) As Date
- Dim i As Integer = 0
- For Each a As String In .GetFiles(Pfad + "Termine\Woche")
- Try
- For b As Integer = 1 To Date.DaysInMonth(Kalender.SelectionRange.Start.Year, Kalender.SelectionRange.Start.Month)
- If New Date(Kalender.SelectionRange.Start.Year, Kalender.SelectionRange.Start.Month, b).DayOfWeek = Integer.Parse(.GetFileInfo(a).Name) Then
- d_t(i) = New Date(Kalender.SelectionRange.Start.Year, Kalender.SelectionRange.Start.Month, b)
- i += 1
- End If
- Next
- Catch ex As Exception
- End Try
- Next
- ReDim d(i - 1)
- For a As Integer = 0 To i - 1
- d(a) = d_t(a)
- Next
- Kalender.BoldedDates = d
- End If
- End With
- End Sub
Nach dem etwa 4. Monatswechsel (manchmal schon beim 3., manchmal erst beim 5.) kommt bei der zeile "Kalender.BoldedDates = d" die Fehlermeldung "Ungültiger Parameter". Hat jemand eine Ahnung wieso?
vG,
Lupus
Edit: Hab grad nochmal nen paar Tests gemacht: Wenn man "Kalender.BoldedDates = Nothing" statt "... = d" schreibt, kommt die gleiche Fehlermeldung, also musss es am Kalender liegen, denk ich
