Hallo zusammen,
Ich habe vorher mit Hilfe des Forums die Letzten Problem von:
Beseitigt.
Jetzt geht es um die Darstellung:
(wie ich es gerne hätte ist in einem Screenshot angehängt.)
Farben ect mal nicht beachten es geht um die Struktur.
Nun im oben genannten Code lese ich einfach die nächsten 6 Termine aus und Liste diese in eine Listbox.
Wie kann ich nun diese 6 Termine sinnvoll in den angehängten Screenshot (solch ein Designe) bringen?
danke im voraus
Edit:
Ich mach es jetzt mal mit counter
Edit:
Ich habe es Jetzt so gelöst:
Jedoch werden mir nicht die nächsten sechs sondern 6 beliebige Termin nach dem jetzigen Zeitpunkt angeziegt
Ich habe vorher mit Hilfe des Forums die Letzten Problem von:
VB.NET-Quellcode
- Dim olApp = New Outlook.Application()
- Dim oNs As Outlook.NameSpace
- Dim oCalendar As Outlook.MAPIFolder
- Dim olCalendarItems As Outlook.Items
- Dim oTermin As Outlook.AppointmentItem
- oNs = olApp.GetNamespace("mapi")
- oCalendar = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
- olCalendarItems = oCalendar.Items
- Dim counter = 0
- For Each oTermin In olCalendarItems
- If oTermin.Start.ToString() > DateTime.Now Then
- If counter = 8 Then Exit Sub
- ListBox1.Items.Add("Subject: " + oTermin.Subject) ' = Titel
- ListBox1.Items.Add("Organizer: " + oTermin.Organizer) ' = Organisator
- ListBox1.Items.Add("Kommentar: " + oTermin.Body) ' = Kommentar
- ListBox1.Items.Add("Start: " + oTermin.Start.ToString() & " " & "Ende: " + oTermin.End.ToString()) ' = Startdatum - Ende
- ListBox1.Items.Add(" ")
- counter += 1
- End If
- Next
Beseitigt.
Jetzt geht es um die Darstellung:
(wie ich es gerne hätte ist in einem Screenshot angehängt.)
Farben ect mal nicht beachten es geht um die Struktur.
Nun im oben genannten Code lese ich einfach die nächsten 6 Termine aus und Liste diese in eine Listbox.
Wie kann ich nun diese 6 Termine sinnvoll in den angehängten Screenshot (solch ein Designe) bringen?
danke im voraus
Edit:
Ich mach es jetzt mal mit counter
Edit:
Ich habe es Jetzt so gelöst:
VB.NET-Quellcode
-
- Dim olApp = New Outlook.Application()
- Dim oNs As Outlook.NameSpace
- Dim oCalendar As Outlook.MAPIFolder
- Dim olCalendarItems As Outlook.Items
- Dim oTermin As Outlook.AppointmentItem
- oNs = olApp.GetNamespace("mapi")
- oCalendar = oNs.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
- olCalendarItems = oCalendar.Items
- Dim counter = 0
- For Each oTermin In olCalendarItems
- If oTermin.Start.ToString() > DateTime.Now Then
- If counter = 6 Then Exit Sub
- If counter = 0 Then
- start1.Text = oTermin.Start.ToString()
- end1.Text = oTermin.End.ToString()
- betreff1.Text = oTermin.Subject
- organisator1.Text = oTermin.Organizer
- detail1.Text = oTermin.Body
- counter += 1
- ElseIf counter = 1 Then
- start2.Text = oTermin.Start.ToString()
- end2.Text = oTermin.End.ToString()
- betreff2.Text = oTermin.Subject
- organisator2.Text = oTermin.Organizer
- detail2.Text = oTermin.Body
- counter += 1
- ElseIf counter = 2 Then
- start3.Text = oTermin.Start.ToString()
- end3.Text = oTermin.End.ToString()
- betreff3.Text = oTermin.Subject
- organisator3.Text = oTermin.Organizer
- detail3.Text = oTermin.Body
- counter += 1
- ElseIf counter = 3 Then
- start4.Text = oTermin.Start.ToString()
- end4.Text = oTermin.End.ToString()
- betreff4.Text = oTermin.Subject
- organisator4.Text = oTermin.Organizer
- detail4.Text = oTermin.Body
- counter += 1
- ElseIf counter = 4 Then
- start5.Text = oTermin.Start.ToString()
- end5.Text = oTermin.End.ToString()
- betreff5.Text = oTermin.Subject
- organisator5.Text = oTermin.Organizer
- detail5.Text = oTermin.Body
- counter += 1
- ElseIf counter = 5 Then
- start6.Text = oTermin.Start.ToString()
- end6.Text = oTermin.End.ToString()
- betreff6.Text = oTermin.Subject
- organisator6.Text = oTermin.Organizer
- detail6.Text = oTermin.Body
- counter += 1
- End If
- End If
- Next
- End Sub
Jedoch werden mir nicht die nächsten sechs sondern 6 beliebige Termin nach dem jetzigen Zeitpunkt angeziegt
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „schnibli“ ()