Bonjour,
Je travail sur la réécriture d'un activex c++ en vb.net utilisé dans un site en ASP.
Voici le code simplifié de mon ActiveX :
Imports System
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Reflection
Imports Microsoft.Win32
Imports System.Threading
Imports System.Math
Namespace MonNameSpace
<ComVisible(True)> _
Public Interface ImyClass
<ComVisible(True)> _
Property p1 As String
<ComVisible(True)> _
Sub mySub()
End Interface
<ComVisible(True), ComClass(myClass.ClassId, _
myClass.InterfaceId, _
myClass.EventsId)> _
Public Class myClass
Implements ImyClass
#Region "COM GUIDs"
' These GUIDs provide the COM identity for this class
' and its COM interfaces. If you change them, existing
' clients will no longer be able to access the class.
'You should create your own 3 GUIDS using GuidGen
Public Const ClassId As String = "FD9960D1-AA42-4AD8-B2B3-1F62EDA84A33"
Public Const InterfaceId As String = "8BC305EF-1738-4272-BD27-6795ED13F34A"
Public Const EventsId As String = "DE5AD37E-C97E-440E-8C9A-8CF2DC764D06"
#End Region
#Region "REQUIRED FOR ACTIVEX"
' This function is called when registered (no need to change it)
<ComRegisterFunction()> _
Private Shared Sub ComRegister(ByVal t As Type)
Dim keyName As String = "CLSID\\" & t.GUID.ToString("B")
Dim key As RegistryKey = Registry.ClassesRoot.OpenSubKey(keyName, True)
key.CreateSubKey("Control").Close()
Dim subkey As RegistryKey = key.CreateSubKey("MiscStatus")
subkey.SetValue("", "131201")
subkey = key.CreateSubKey("TypeLib")
Dim libid As Guid = Marshal.GetTypeLibGuidForAssembly(t.Assembly)
subkey.SetValue("", libid.ToString("B"))
subkey = key.CreateSubKey("Version")
Dim ver As Version = t.Assembly.GetName().Version
Dim version As String = String.Format("{0}.{1}", ver.Major, ver.Minor)
If version = "0.0" Then version = "1.0"
subkey.SetValue("", version)
End Sub
' This is called when unregistering (no need to change it)
<ComUnregisterFunction()> _
Private Shared Sub ComUnregister(ByVal t As Type)
' Delete entire CLSID¥{clsid} subtree
Dim keyName As String = "CLSID\\" & _
t.GUID.ToString("B")
Registry.ClassesRoot.DeleteSubKeyTree(keyName)
End Sub
#End Region
Private _p1 As String = String.Empty
<ComVisible(True)> _
Public Property p1 As String Implements ImyClass.p1
Get
Return _p1
End Get
Set(ByVal value As String)
_p1 = value
End Set
End Property
Public Sub New()
' Cet appel est requis par le concepteur.
InitializeComponent()
End Sub
<ComVisible(True)> _
Public Sub mySub() Implements ImyClass.mySub
Dim o As System.Windows.Forms.Form = New System.Windows.Forms.Form
With o
.Width = Me.Width
.Height = Me.Height
.Controls.Add(Me)
End With
o.ShowDialog()
End Sub
End Class
End MonNameSpace
J'ai bien cocher les cases pour rendre mon assembly visible de COM.
Voici comment je l'intégre à ma page web :
<html>
<object id="myObject" name="myObject"
classid="CLSID:FD9960D1-AA42-4AD8-B2B3-1F62EDA84A33"
codebase="Cab/myObject.CAB#version=1,0,0,0"
height="10" width="10" >
</object>
.....
function test() {
myObject.p1="toto";
myObject.mySub();
}
Tel qu'il est au dessus, l'appel de mySub dans mon site web ne fonctionne pas par contre j'ai accès à la prpriété p1.
De plus, si je place l'appel à mySub dans le new de mon ActiveX, ça fonctionne.
Je ne comprends pas pourquoi...
Merci de votre aide.
ASP VB.NET ActiveX
