/
ComClassAttribute.vb
41 lines (31 loc) · 1.24 KB
/
ComClassAttribute.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
Imports System
Namespace Microsoft.VisualBasic
''' <summary>
''' ComClass is used by the VB compiler to mark a public class
''' that will be exposed via COM interop.
''' </summary>
<AttributeUsage(AttributeTargets.Class, Inherited:=False, AllowMultiple:=False)>
Public NotInheritable Class ComClassAttribute
Inherits Attribute
Public Sub New()
End Sub
Public Sub New(ByVal _ClassID As String)
ClassID = _ClassID
End Sub
Public Sub New(ByVal _ClassID As String, ByVal _InterfaceID As String)
ClassID = _ClassID
InterfaceID = _InterfaceID
End Sub
Public Sub New(ByVal _ClassID As String, ByVal _InterfaceID As String, ByVal _EventId As String)
ClassID = _ClassID
InterfaceID = _InterfaceID
EventID = _EventId
End Sub
Public ReadOnly Property ClassID() As String
Public ReadOnly Property InterfaceID() As String
Public ReadOnly Property EventID() As String
Public Property InterfaceShadows() As Boolean
End Class
End Namespace