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 42 43 44 45 46 47 48 49 50
|
Imports System.Runtime.InteropServices
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _
Public Class ComClass1
#Region "GUID COM"
' Ces GUID fournissent l'identité COM pour cette classe
' et ses interfaces COM. Si vous les modifiez, les clients
' existants ne pourront plus accéder à la classe.
'LA OU IL FAUT CHANGER LES CLSID AVEC l'OUTIL GENERATEUR DE GUID
' FAIS OUTILS ->CREATE GUID ET COPIE LES 3 NOUVEAUX GUIDS ET
' (ENLEVE LES ACCOLADES APRES AVOIR COLLE)
Public Const ClassId As String = "18ae69b0-ef5a-447e-91f7-8ccd5c328bef"
Public Const InterfaceId As String = "782e5dbe-8665-4881-9f58-37c78f77f598"
Public Const EventsId As String = "d68cf810-27dd-4e3d-9438-27f348800c11"
#End Region
' Une classe COM pouvant être créée doit avoir Public Sub New()
' sans paramètre, sinon, la classe ne sera pas
' inscrite dans le Registre COM et ne pourra pas être créée
' via CreateObject.
Public Sub New()
MyBase.New()
End Sub
Private x_nom As String
Public Property NOM() As String
Get
Return x_nom
End Get
Set(ByVal value As String)
x_nom = value
End Set
End Property
Private x_valeur As Double
Public Property VALEUR() As Double
Get
Return x_valeur
End Get
Set(ByVal value As Double)
x_valeur = value
End Set
End Property
Public Sub METHOD1()
VALEUR = VALEUR * 2.0
End Sub
End Class |
Partager