Accueil > > > CRÉATION D'UN ACTIVEX EN UTILSANT UN USERCONTROL DOTNET CSHARP
CRÉATION D'UN ACTIVEX EN UTILSANT UN USERCONTROL DOTNET CSHARP
Information sur la source
Description
Cet article démontre la création d'un ActiveX utilsant un UserControl DotNet Csharp avec Visual Studio (2005). L'exemple contient l'utilisation des fonctionnalités ActiveX: Propriétés, méthodes et événements.
Source
- using System;
- using System.Collections.Generic;
- using System.ComponentModel;
- using System.Drawing;
- using System.Data;
- using System.Text;
- using System.Windows.Forms;
-
- // Add references
- using System.Runtime.InteropServices;
- using System.IO;
- using System.Reflection;
- using Microsoft.Win32;
-
-
- namespace CsharpWindowsActiveX
- {
-
- [ProgId("CsharpWindowsActiveX.ActiveXUserControl")]
- [ClassInterface(ClassInterfaceType.AutoDual), ComSourceInterfaces(typeof(UserControlEvents))]
- public partial class ActiveXUserControl : UserControl
- {
- public ActiveXUserControl()
- {
- InitializeComponent();
- }
-
- // register COM ActiveX object
- [ComRegisterFunction()]
- public static void RegisterClass(string key)
- {
- StringBuilder skey = new StringBuilder(key);
- skey.Replace(@"HKEY_CLASSES_ROOT\", "");
-
- // récupérer GUID depuis ProgID="CsharpWindowsActiveX.ActiveXUserControl"
- Type myType1 = Type.GetTypeFromProgID("CsharpWindowsActiveX.ActiveXUserControl");
- Console.WriteLine("ProgID=CsharpWindowsActiveX.ActiveXUserControl GUID={0}.", myType1.GUID);
-
- // ecrire GUID dans un fichier txt
- TextWriter tw;
- tw = File.CreateText("guid.txt");
- tw.WriteLine(skey.ToString());
- tw.WriteLine(myType1.GUID.ToString());
- tw.Close();
-
- RegistryKey regKey = Registry.ClassesRoot.OpenSubKey(skey.ToString(), true);
- RegistryKey ctrl = regKey.CreateSubKey("Control");
- ctrl.Close();
- RegistryKey inprocServer32 = regKey.OpenSubKey("InprocServer32", true);
- inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase);
- inprocServer32.Close();
- regKey.Close();
- }
-
-
- // Unregister COM ActiveX object
- [ComUnregisterFunction()]
- public static void UnregisterClass(string key)
- {
- StringBuilder skey = new StringBuilder(key);
- skey.Replace(@"HKEY_CLASSES_ROOT\", "");
- RegistryKey regKey = Registry.ClassesRoot.OpenSubKey(skey.ToString(), true);
- regKey.DeleteSubKey("Control", false);
- RegistryKey inprocServer32 = regKey.OpenSubKey("InprocServer32", true);
- regKey.DeleteSubKey("CodeBase", false);
- regKey.Close();
- }
-
-
- // ActiveX properties (Get/Set) //////////////////////////////////////////////////////////////////
- private int ptextVal;
-
- public int TextVal
- {
- get
- {
- ptextVal = (int)(numericUpDown1.Value);
- return ptextVal;
- }
- set
- {
- ptextVal = value;
- numericUpDown1.Value = ptextVal;
- }
- }
-
-
-
-
- // ActiveX methods/functions //////////////////////////////////////////////////////////////////
- public interface ICOMCallable
- {
- int GetTextBoxValue();
- }
-
- public int GetTextBoxValue()
- {
- int i = (int)(numericUpDown1.Value);
- MessageBox.Show("ActiveX method: GetTextBoxValue " + i.ToString());
- return (i);
- }
-
-
- // Eventhandler interface //////////////////////////////////////////////////////////////////
- public delegate void ControlEventHandler(int NumVal);
-
- [Guid("0A415E38-372F-45fb-813B-D9558C787EA0")]
- [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
- public interface UserControlEvents
- {
- [DispId(0x60020001)]
- void OnButtonClick(int NumVal);
- }
-
- public event ControlEventHandler OnButtonClick;
-
-
- private void buttonOK_Click(object sender, EventArgs e)
- {
- int NumVal;
-
- if (OnButtonClick != null)
- {
- NumVal = (int)(numericUpDown1.Value);
- OnButtonClick(NumVal);
- }
- }
-
-
- // //////////////////////////////////////////////////////////////////
-
-
-
-
- }
- }
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Text;
using System.Windows.Forms;
// Add references
using System.Runtime.InteropServices;
using System.IO;
using System.Reflection;
using Microsoft.Win32;
namespace CsharpWindowsActiveX
{
[ProgId("CsharpWindowsActiveX.ActiveXUserControl")]
[ClassInterface(ClassInterfaceType.AutoDual), ComSourceInterfaces(typeof(UserControlEvents))]
public partial class ActiveXUserControl : UserControl
{
public ActiveXUserControl()
{
InitializeComponent();
}
// register COM ActiveX object
[ComRegisterFunction()]
public static void RegisterClass(string key)
{
StringBuilder skey = new StringBuilder(key);
skey.Replace(@"HKEY_CLASSES_ROOT\", "");
// récupérer GUID depuis ProgID="CsharpWindowsActiveX.ActiveXUserControl"
Type myType1 = Type.GetTypeFromProgID("CsharpWindowsActiveX.ActiveXUserControl");
Console.WriteLine("ProgID=CsharpWindowsActiveX.ActiveXUserControl GUID={0}.", myType1.GUID);
// ecrire GUID dans un fichier txt
TextWriter tw;
tw = File.CreateText("guid.txt");
tw.WriteLine(skey.ToString());
tw.WriteLine(myType1.GUID.ToString());
tw.Close();
RegistryKey regKey = Registry.ClassesRoot.OpenSubKey(skey.ToString(), true);
RegistryKey ctrl = regKey.CreateSubKey("Control");
ctrl.Close();
RegistryKey inprocServer32 = regKey.OpenSubKey("InprocServer32", true);
inprocServer32.SetValue("CodeBase", Assembly.GetExecutingAssembly().CodeBase);
inprocServer32.Close();
regKey.Close();
}
// Unregister COM ActiveX object
[ComUnregisterFunction()]
public static void UnregisterClass(string key)
{
StringBuilder skey = new StringBuilder(key);
skey.Replace(@"HKEY_CLASSES_ROOT\", "");
RegistryKey regKey = Registry.ClassesRoot.OpenSubKey(skey.ToString(), true);
regKey.DeleteSubKey("Control", false);
RegistryKey inprocServer32 = regKey.OpenSubKey("InprocServer32", true);
regKey.DeleteSubKey("CodeBase", false);
regKey.Close();
}
// ActiveX properties (Get/Set) //////////////////////////////////////////////////////////////////
private int ptextVal;
public int TextVal
{
get
{
ptextVal = (int)(numericUpDown1.Value);
return ptextVal;
}
set
{
ptextVal = value;
numericUpDown1.Value = ptextVal;
}
}
// ActiveX methods/functions //////////////////////////////////////////////////////////////////
public interface ICOMCallable
{
int GetTextBoxValue();
}
public int GetTextBoxValue()
{
int i = (int)(numericUpDown1.Value);
MessageBox.Show("ActiveX method: GetTextBoxValue " + i.ToString());
return (i);
}
// Eventhandler interface //////////////////////////////////////////////////////////////////
public delegate void ControlEventHandler(int NumVal);
[Guid("0A415E38-372F-45fb-813B-D9558C787EA0")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface UserControlEvents
{
[DispId(0x60020001)]
void OnButtonClick(int NumVal);
}
public event ControlEventHandler OnButtonClick;
private void buttonOK_Click(object sender, EventArgs e)
{
int NumVal;
if (OnButtonClick != null)
{
NumVal = (int)(numericUpDown1.Value);
OnButtonClick(NumVal);
}
}
// //////////////////////////////////////////////////////////////////
}
}
Historique
- 16 juillet 2009 17:57:42 :
- ajout création Active sur une page html (récupérer le GUID depuis le ProgID)
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Probleme évenement click sur un ActiveX dans un UserControl [ par fcolo ]
Bonjour,J'utilise l'ActiveX de VLC (logiciel de capture video) pour capturer le flux vidéo d'une caméra IP.Dans le logiciel que je réalise, je permet
Transformer un UserControl en ActiveX [ par maxnoe ]
Bonjour, Voila, j'ai prog un UserControl sous C#. Il fonctionne bien dans VisualStudio. Maitenant je voudrais le mettre sur mon site web. Donc je vo
Propriétés custom d'un activeX en C# [ par esopio ]
Bonjour, Aujourd'hui je suis capable de coder un objet activeX en C# par l'intermédiaire d'un userControl C#. Il suffit pour cela d'ajouter quelques l
ActiveX control [ par jojotn ]
bonjour, lorsque je met l'animation flash dans mon form....j'ai le message suivant: ActiveX control please ensure it is properly registered...comment
utilisation du presse papier dans une page web en csharp [ par phoenix7517 ]
Bonjourje débute en csharp, et je dois rajouter des petites choses à des pages web développée en csharp (en tout cas, il me semble que c'est dans ce l
[UserControl] Propriete - Enum Dynamique [ par TheBlackReverand ]
Bonjour,je developper actuellement un UserControl dans lequel je veut, en mode Designer(via la PropertyGrid) utiliser une Property pour selectionner u
Passer des valeurs d'une page aspx vers un usercontrol [ par boby32 ]
Bonjour, voilà j'ai un usercontrol qui contient des boutons qui sont visibles ou non en fonction de la valeur d'une variable.Dans ma page, j'affecte u
UserControl [ par xmox667 ]
Salut à tous,J'ai un UserControl qui contient une PictureBox et un Label.Lorsque je saisis la taille (88;71) du UserControl dans le designer de Visual
UserControl non visible [ par xmox667 ]
Salut, J'aimerais faire un UserControl qui n'est pas d'interface graphique comme le Contrôle Timer du framework .net Merci
Pb d'affichage de UserControl identique [ par ChrisBzh56 ]
|
Derniers Blogs
[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril SQL : FONCTIONS D'AGRéGATION MIN/MAX ET VALEURS NULLSQL : FONCTIONS D'AGRéGATION MIN/MAX ET VALEURS NULL par coq
Les fonctions d'agrégation comme MIN et MAX ignorent les valeurs NULL présentes dans le jeu de données sur lequel porte leur calcul, d'où le fameux message d'avertissement : Warning: Null value is eliminated by an aggregate or other SET operation...
Cliquez pour lire la suite de l'article par coq VOTEZ POUR WARNYGOVOTEZ POUR WARNYGO par Nicolas
La vidéo du projet Warnygo est disponible sur facebook et attend vos votes ! Pour rappel: Warnygo est une application Windows Phone 7 qui permet d'alerter tous utilisateurs inscrits qui se trouve dans la zone où se passe l'...
Cliquez pour lire la suite de l'article par Nicolas
Logiciels
sDEVIS-FACTURES vlPRO (3.8.0)SDEVIS-FACTURES VLPRO (3.8.0)sDEVIS-FACTURES vlPRO a été mis au point pour permettre besoins des particuliers, créateurs, entr... Cliquez pour télécharger sDEVIS-FACTURES vlPRO LettresFaciles (5.6.0)LETTRESFACILES (5.6.0)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles MyPlanning 2010 (5.6.0)MYPLANNING 2010 (5.6.0)MyPlanning 2010 permet de créer des plannings sous la représentation de diagrammes. Plannings pré... Cliquez pour télécharger MyPlanning 2010 Emicsoft Mac DVD en iPad Convertisseur (3.1.16)EMICSOFT MAC DVD EN IPAD CONVERTISSEUR (3.1.16)Emicsoft Mac DVD en iPad Convertisseur, logiciel professionnel de convertir les fichiers DVD en i... Cliquez pour télécharger Emicsoft Mac DVD en iPad Convertisseur Emicsoft ipad ménager pour mac (3.1.08)EMICSOFT IPAD MéNAGER POUR MAC (3.1.08)Emicsoft ipad ménager pour mac est spécialement conçu pour les utilisateurs Mac pour copier des f... Cliquez pour télécharger Emicsoft ipad ménager pour mac
|