重建期间删除警告BC42108

时间:2016-11-21 16:09:30

标签: vb.net visual-studio-2017

这是我的VB.NET代码的第一部分:

Private Function CreateEventMWB(pWeek As XmlNode, sEventSettings As GoogleEventSettings, strEventType As String, ByRef rbCreated As Boolean) As My_GoogleEvent
    Dim sEvent As My_GoogleEvent

    sEvent.strTitle = pWeek.Attributes(kEventTitle).Value()
    sEvent.strDate = pWeek.Attributes(kDate).Value()
    sEvent.strTime = pWeek.Attributes(kStartTime).Value()
    sEvent.strLocation = GetXmlNodeText(pWeek, kSpecialEventLocation)
    sEvent.iMeetingDuration = 105 ' 1h 45m
    sEvent.bSpecialEvent = GetXmlNodeBoolean(pWeek, kSpecialEvent)
    sEvent.bNoMeeting = GetXmlNodeBoolean(pWeek, kNoMeeting)
    sEvent.bFirstWeekOfMonth = GetXmlNodeBoolean(pWeek, kFirstWeek)
    sEvent.strTag1 = strEventType
    sEvent.strTag2 = ""
    sEvent.strEventDetails = ""

    rbCreated = False
    If (Not sEvent.bNoMeeting) Then
        ' It does not matter if this is a special event (like a circuit visit meeting)
        ' as it is still a meeting
        rbCreated = True
    ElseIf (Not sEventSettings.bExcludeSpecialEvents) Then
        ' We already know there is no meeting for this date.
        ' Therefore it is going to be a special event. But are we including special events? - Yes!
        rbCreated = True
    End If

    If (rbCreated) Then
        ' We have one of two scenariors
        ' 1. It is a normal meeting or a special meeting
        ' 2. It is a special event (if they were not excluded)
        Dim bCreateAsMeeting = True

        If (sEvent.bSpecialEvent And sEvent.bNoMeeting) Then
            bCreateAsMeeting = False
        End If

        If (bCreateAsMeeting) Then
            AddToEventDetails(sEvent, "IDS_TPL_MWB_GOOGLE_NOTE", sEventSettings.dictLabels, GetXmlNodeText(pWeek, kNote))

变量 sEvent 被正确填充。该计划有效 - 始终如一。但是,当我编译时,代码AddToEventDetails中的最后一个调用会引发警告

Warning

我不确定如何阻止警告。

谢谢。

0 个答案:

没有答案