none
Anzahl der Monte in MonthCalendar bestimmen RRS feed

  • 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
    Mittwoch, 8. Juli 2009 22:21

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
    Donnerstag, 9. Juli 2009 08:30
    Moderator

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
    Donnerstag, 9. Juli 2009 08:30
    Moderator
  • Da wurde es mir ja total einfach gemacht, der komplette Quelltext. Vielen Dank!
    Ich glaube bei so viel Unterstützung muss ich meinem Mentor eine Widmung im Programm zukommen lassen.


    Vielen Dank im Voraus Liebe Grüße Stefan
    Donnerstag, 9. Juli 2009 09:20