将新项目放入日历会覆盖其中的其他项目

Question

您好，有人可以告诉我日历中的问题。 所以让我解释一下发生了什么。 所以首先我尝试制作一个调度程序应用程序并在 VB 中使用 WPF 调度程序，所以首先，日历的选项卡需要显示 3 个项目（主题、教授姓名、课程）所以我需要做的是选择首先是一个房间，然后从列表框中拖动一个主题名称（例如Sample1<\/a> ），然后接下来我需要拖动一个教授姓名（ Sample2<\/a> ），然后是问题开始的地方

所以它已经显示了两个项目（主题和教授）现在我需要从课程列表框中拖动一个项目，但问题是每当我将课程放到日历的选项卡上时，它就会变成<\/a>这样

所以这里的目标是显示 3 个拖动的项目，但它只显示 2 个并且课程正在覆盖主题的名称。 请帮帮我，谢谢！ 如果您想查看整个代码，请查看链接https:\/\/drive.google.com\/file\/d\/1fWKisPr9qDh54B4EMdwWJbY3KFgi_xfc\/view?usp=sharing<\/a>

这是您可以拖动项目的代码

 'Dragging Data to Calendar
Sub Add_list_item(ByVal list As String)
    Delay.Delay(1)
    Dim count = 0
    For Each item As CalendarItem In Calendar1.GetSelectedItems()
        count += 1

        If count > 1 Then
            Return
        Else
            Dim get_item_end_time As DateTime = item.EndDate.AddHours(2)
            get_item_end_time = get_item_end_time.AddMinutes(30)
            Dim item_start_time = item.StartDate
            Dim item_end_time = get_item_end_time
            Dim item_tooltip = item.StartDate.ToString()
            Dim start_time = item.StartDate.ToString("HH:mm tt")
            Dim end_time = item.EndDate.ToString("HH:mm tt")
            Dim dat_start As Date = item_tooltip
            Dim ci As CultureInfo = CultureInfo.CreateSpecificCulture("en-US")
            Dim dtfi As DateTimeFormatInfo = ci.DateTimeFormat
            dtfi.AbbreviatedDayNames = {"Sun", "1", "2", "3", "4",
                                         "5", "6"}
            Dim output_start As String = String.Format(ci, "{0:ddd}", dat_start.AddDays(0))

            Dim item_text = CStr(item.Text)
            Dim parts As String() = item_text.Split(New String() {Environment.NewLine},
                                           StringSplitOptions.None)

            Dim get_item_total_hours = (item.EndDate - item.StartDate).TotalHours
            Dim get_start_time As DateTime
            Dim get_end_time As DateTime

            If get_item_total_hours = 1 Then
                get_start_time = item.StartDate.AddMinutes(-30)
                get_end_time = item.EndDate.AddMinutes(30)
            ElseIf get_item_total_hours = 1.5 Then
                get_start_time = item.StartDate.AddHours(-1)
                get_end_time = item.EndDate.AddHours(1)
            ElseIf get_item_total_hours = 2 Then
                get_start_time = item.StartDate.AddHours(-1).AddMinutes(-30)
                get_end_time = item.EndDate.AddHours(1).AddMinutes(30)
            ElseIf get_item_total_hours = 2.5 Then
                get_start_time = item.StartDate.AddHours(-2)
                get_end_time = item.EndDate.AddHours(2)
            ElseIf get_item_total_hours = 3 Then
                get_start_time = item.StartDate.AddHours(-2).AddMinutes(-30)
                get_end_time = item.EndDate.AddHours(2).AddMinutes(30)
            ElseIf get_item_total_hours = 3.5 Then
                get_start_time = item.StartDate.AddHours(-3)
                get_end_time = item.EndDate.AddHours(3)
            ElseIf get_item_total_hours = 4 Then
                get_start_time = item.StartDate.AddHours(-3).AddMinutes(-30)
                get_end_time = item.EndDate.AddHours(3).AddMinutes(30)
            ElseIf get_item_total_hours = 4.5 Then
                get_start_time = item.StartDate.AddHours(-4)
                get_end_time = item.EndDate.AddHours(4)
            ElseIf get_item_total_hours = 5 Then
                get_start_time = item.StartDate.AddHours(-4).AddMinutes(-30)
                get_end_time = item.EndDate.AddHours(4).AddMinutes(30)
            ElseIf get_item_total_hours = 5.5 Then
                get_start_time = item.StartDate.AddHours(-5)
                get_end_time = item.EndDate.AddHours(5)
            ElseIf get_item_total_hours = 6 Then
                get_start_time = item.StartDate.AddHours(-5).AddMinutes(-30)
                get_end_time = item.EndDate.AddHours(5).AddMinutes(30)
            End If

            If (ListBox1_Instructor.Items.Contains(list) = True) Then
                Call Check_if_instructor(list)
            End If

            If parts.Count >= 3 Then
                If (instructor_name = True) Then

                    Call Get_instructor_code(instructor_gender + list)
                    Call Get_course_name(corSec_id)
                    Call checkInstructorSchedule(start_time, end_time, output_start, instructor_id)

                    If (instructor_name = True) Then
                        If instructor_gender = "Male" Then
                            instructor_gender = "Mr. "
                        Else
                            instructor_gender = "Ms. "
                        End If

                        If item.Text <> "" Then
                            item.Text = parts(0) + vbNewLine + vbNewLine + instructor_gender + list
                            item.ApplyColor(Color.RoyalBlue)
                        End If
                        instructor_name = False
                    End If

                Else
                    item.ApplyColor(Color.RoyalBlue)
                    item.Text = list + vbNewLine + vbNewLine + parts(2) + vbNewLine + vbNewLine
                End If
            ElseIf parts.Count = 1 Then
                If (instructor_name = True) Then

                    Call Get_instructor_code(instructor_gender + list)
                    Call Get_course_name(corSec_id)
                    Call checkInstructorSchedule(start_time, end_time, output_start, instructor_id)

                    If (instructor_name = True) Then
                        If instructor_gender = "Male" Then
                            instructor_gender = "Mr. "
                        Else
                            instructor_gender = "Ms. "
                        End If

                        If item.Text <> "" Then
                            item.Text = parts(0) + vbNewLine + vbNewLine + instructor_gender + list
                            item.ApplyColor(Color.RoyalBlue)
                        End If

                        instructor_name = False
                    End If
                Else
                    item.ApplyColor(Color.RoyalBlue)
                    item.Text = list + vbNewLine + vbNewLine + parts(parts.Count - 1) + vbNewLine + vbNewLine
                End If
            End If
            Calendar1.Invalidate(item)
        End If
    Next
End Sub