DayofWeek. mit Combobox

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    DayofWeek. mit Combobox

    hallo Miteinander.

    Mein Bisheriger Code:

    VB.NET-Quellcode

    1. If txt_serv_min.Text = "" Then
    3. Else Dim dtNextDate As Date = Date.Parse(Date.Now.ToShortDateString & " " & txt_serv_h.Text & ":" & txt_serv_min.Text & ":" & &txt_serv_sec.Text)
    5. Do Until dtNextDate.DayOfWeek = DayOfWeek.Wednesday
    7. dtNextDate = dtNextDate.AddDays(1)
    9. Loop
    11. _Scheduler = New ScheduleLib.Scheduler(dtNextDate)
    13. End If




    Ich würde jetz gerne statt im Programm Festzulegen welcher Tag es ist (Do Until dtNextDate.DayOfWeek = DayOfWeek.Wednesday)
    lieber mit einer Combobox den Tag wählen.

    zb.
    Do Until dtNextDate.DayOfWeek = DayOfWeek.combobox.item oder soh ...



    kann mir jemand helfen?

    Meinst Du so etwas?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim dt As DateTime = DateTime.Now
    3. ' mit Montag anfangen lassen
    4. Do While dt.DayOfWeek <> DayOfWeek.Monday
    5. dt = dt.AddDays(1)
    6. Loop
    8. Dim tage(6) As String
    9. tage(0) = dt.DayOfWeek.ToString
    10. tage(1) = dt.AddDays(1).DayOfWeek.ToString
    11. tage(2) = dt.AddDays(2).DayOfWeek.ToString
    12. tage(3) = dt.AddDays(3).DayOfWeek.ToString
    13. tage(4) = dt.AddDays(4).DayOfWeek.ToString
    14. tage(5) = dt.AddDays(5).DayOfWeek.ToString
    15. tage(6) = dt.AddDays(6).DayOfWeek.ToString
    16. ComboBox1.Items.AddRange(tage)
    17. ComboBox1.SelectedIndex = 0
    18. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende