Benutzer mit den meisten Antworten
Anzahl der Monte in MonthCalendar bestimmen

Frage
-
Hallo,
mein Programm soll einen MonthCalendar bekommen.
Über eine TrackBar möchte ich regeln, wieviele Monate angezeigt werden.
TrackBar bekomme ich hin, aber wie bestimme ich, wieviele Monate dargestellt werden?
Und dann noch eine ganz andere Frage. Ich habe mich auch noch in anderen Foren angemeldet. Dort bekam ich die Auskunft, dass ich bei Visual Basic 2008 Express ins .Net Forum bzw C# Forum gehöre.
Bin ich hier wenigstens richtig?
Vielen Dank im Voraus Liebe Grüße Stefan- Typ geändert Robert BreitenhoferModerator Donnerstag, 9. Juli 2009 07:18 Frage anstatt Diskussion
Antworten
-
Hallo giftzwockel,
Hier in meinem Beispiel wenn die TrackBar.Value zurück auf 0 gesetzt ist sieht man alle Monate und wenn Sie ein anderer Wert hat zeigt der Kalender die Zeitspanne zwischen Heute – TrackBar.Value Monate und Heute an.
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll If TrackBar1.Value <> 0 Then Dim myCal As Calendar = CultureInfo.InvariantCulture.Calendar Dim dt As New DateTime(DateTime.Today.Year, DateTime.Today.Month, 1) MonthCalendar1.MinDate = myCal.AddMonths(dt, (TrackBar1.Value * -1)) MonthCalendar1.MaxDate = Today Else MonthCalendar1.MinDate = "1/1/1753" MonthCalendar1.MaxDate = "12/31/9998" End If End Sub
Sicher, man kann auch in die Zukunft springen.Du schreibst noch oben, außerhalb der Form Klasse:
Imports System.Globalization
Grüße,Robert
- Als Antwort markiert Giftzwockel Donnerstag, 9. Juli 2009 09:18
Alle Antworten
-
Hallo giftzwockel,
Hier in meinem Beispiel wenn die TrackBar.Value zurück auf 0 gesetzt ist sieht man alle Monate und wenn Sie ein anderer Wert hat zeigt der Kalender die Zeitspanne zwischen Heute – TrackBar.Value Monate und Heute an.
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll If TrackBar1.Value <> 0 Then Dim myCal As Calendar = CultureInfo.InvariantCulture.Calendar Dim dt As New DateTime(DateTime.Today.Year, DateTime.Today.Month, 1) MonthCalendar1.MinDate = myCal.AddMonths(dt, (TrackBar1.Value * -1)) MonthCalendar1.MaxDate = Today Else MonthCalendar1.MinDate = "1/1/1753" MonthCalendar1.MaxDate = "12/31/9998" End If End Sub
Sicher, man kann auch in die Zukunft springen.Du schreibst noch oben, außerhalb der Form Klasse:
Imports System.Globalization
Grüße,Robert
- Als Antwort markiert Giftzwockel Donnerstag, 9. Juli 2009 09:18