0

这是我的 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会引发警告：

警告

我不确定如何防止警告。

谢谢你。

4

0 回答 0