帮忙vb.net代码转C#

2019-06-21 09:57:23 304 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

国产化办公新选择：在银河麒麟V10上部署ToDesk远程桌面本文详细介绍了在国产操作系统银河麒麟V10上部署ToDesk远程桌面的完整指南。作为国产远程控制工具，ToDesk在连接速度、系统适配性和用户体验方面表现优异，特别适合国产化办公场景。文章包含X86和ARM架构的安装步骤、常见问题排查及性能优化技巧，帮助用户高效实现远程办公。阅读详情



Private Function IsAttachmentEmbeddedViaPropertyAccessor(ByVal att As Outlook.Attachment) As Boolean

    Dim result As Boolean = False

    Dim conversionResult As Boolean = False

    Dim result As Boolean = False    

    Dim temp As Object = Nothing 

    Dim PR_ATTACH_FLAGS_value As Byte = 0



        temp = "1"

        If (PR_ATTACH_FLAGS_value And PrAttachFlags_ENUM.attRenderedInBody) = MAPI.PrAttachFlags_ENUM.attRenderedInBody Then

            result = True

        End If

  

        Dim PR_ATTACH_METHOD_value As Integer = 0

        temp = "1"

        conversionResult = Int32.TryParse(temp.ToString(), PR_ATTACH_METHOD_value)

        If PR_ATTACH_METHOD_value = PrAttachMethod_ENUM.afStorage Then           

            result = True

        End If

 Return result

  End Function



<System.Flags()> _

    Enum PrAttachFlags_ENUM

        None = &H0

        attInvisibleInHtml = &H1

        attInvisibleInRtf = &H2

        attRenderedInBody = &H4

    End Enum



    Enum PrAttachMethod_ENUM

        afNone = &H0

        afByValue = &H1

        afByReference = &H2

        afByReferenceOnly = &H4

        afEmbeddedMessage = &H5

        afStorage = &H6

    End Enum