Développer une application Windows en .NET de façon modulaire

12/12/2003

Par Sébastien Curutchet
 

niveau : Intermédiaire

Vos applications doivent tout le temps évoluer, nécessitent de nouvelles fonctionnalités : la solution est de développer de façon modulaire afin que vos fonctionnalités se rajoutent automatiquement sans avoir à recompiler votre application à chaque fois.

Imports System
Imports System.Windows.Forms

Namespace PluginApp

  public interface IPlugin
  
    Function Traitement() As String
    Function VisualComponent() As System.Windows.Forms.UserControl 
	

Imports System 
Imports System.ComponentModel 
Imports System.Drawing 
Imports System.Data 
Imports System.Windows.Forms


Namespace PluginApp 

   ' Classe du plugin respectant le modèle : hérite de IPlugin 
   Public Class PluginClass
    
      Inherits System.Windows.Forms.UserControl
      Implements IPlugin 'ToDo: Add Implements Clauses for implementation methods of these interface(s) 
      Private components As System.ComponentModel.Container = Nothing
      Private lbl As System.Windows.Forms.Label

		
      ' Constructeur : Initilialise la partie visuelle du composant 
      Public Sub New()
       
         InitializeComponent() 
      
      End Sub 'New 


      ' Destructeur
      Protected Overrides Sub Dispose(ByVal disposing As Boolean) 
      
         If disposing Then
         	 
            If Not (components Is Nothing) Then 
            	
               components.Dispose() 
               
            End If 
            
         End If 
         MyBase.Dispose(disposing) 
      
      End Sub 'Dispose 


      ' Positionnement des composants visuels sur le contrôle représentant le plugin 
      Private Sub InitializeComponent() 
      
         Me.lbl = New System.Windows.Forms.Label() 
         Me.SuspendLayout()
         Me.lbl.Location = New System.Drawing.Point(16, 8) 
         Me.lbl.Name = "lbl" 
         Me.lbl.Size = New System.Drawing.Size(64, 24) 
         Me.lbl.TabIndex = 0 
         Me.lbl.Text = "Plugin 1" 
         Me.Controls.Add(lbl) 
         Me.Name = "UserControlPlugin1" 
         Me.Size = New System.Drawing.Size(184, 96) 
         Me.ResumeLayout(False)
      
      End Sub 'InitializeComponent 


      ' Fonction de traitement 
      ' Dans cet exemple elle retourne juste un descriptif 
      Public Function Traitement() As String 
      
         Return "Le traitement du plugin 1" 
      
      End Function 'Traitement 


      ' Permet de récupérer le contrôle utilisateur qui est la classe d'où 
      ' le returnthis. 
      Public Function VisualComponent() As System.Windows.Forms.UserControl
      
         Return Me 
      
      End Function 'VisualComponent
 
   End Class   'PluginClass

End Namespace 'PluginApp

Imports System 
Imports System.Drawing 
Imports System.Collections 
Imports System.ComponentModel 
Imports System.Windows.Forms 
Imports System.Data 


Namespace PluginApp 

   ' Fenêtre principale 
   Public Class frmMain
   
      Inherits System.Windows.Forms.Form
      Private components As System.ComponentModel.Container = Nothing 
      Private tabControl As System.Windows.Forms.TabControl 
      
      
      Public Sub New() 
      
         InitializeComponent() 
          
         ' Création d'une instance du plugin dans le domaine principal 
         ' La fonction CreateInstanceFromAndUnWrap retourne un objet de type object 
         Dim obj As Object 
         obj = AppDomain.CurrentDomain.CreateInstanceFromAndUnwrap("Plugin1.dll", "PluginApp.PluginClass") 
          
         ' Execution de la fonction de traitement 
         MessageBox.Show(("Chargement de " + CType(obj, IPlugin).Traitement())) 
          
         ' Rajout d'un tabPage avec le composant visuel du plugin 
         ' Rajout d'un onglet ayant comme titre "Ma page" 
         Dim tp As New TabPage("Ma page") 
         ' Intégration du contrôle utilisateur dans le tabPage 
         ' obj étant de type object, le cast est nécessaire pour pouvoir 
         ' appeler la fonction VisualComponent de l'objet 
         tp.Controls.Add(CType(obj, IPlugin).VisualComponent()) 
         ' Ajout du tabPage au tabControl général 
         tabControl.TabPages.Add(tp)
       
      End Sub 'New      

      Protected Overrides Sub Dispose(disposing As Boolean)
       
         If disposing Then
          
            If Not (components Is Nothing) Then 
            
               components.Dispose() 
            
            End If
          
         End If 
         MyBase.Dispose(disposing) 
      
      End Sub 'Dispose 
        
      
      ' Positionnement des composants visuels sur le formulairen 
      Private Sub InitializeComponent()
       
         Me.tabControl = New System.Windows.Forms.TabControl() 
         Me.SuspendLayout() 
         Me.tabControl.Location = New System.Drawing.Point(16, 16) 
         Me.tabControl.Name = "tabControl" 
         Me.tabControl.SelectedIndex = 0 
         Me.tabControl.Size = New System.Drawing.Size(488, 232) 
         Me.tabControl.TabIndex = 0 
         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) 
         Me.ClientSize = New System.Drawing.Size(520, 269) 
         Me.Controls.Add(tabControl) 
         Me.Name = "frmMain" 
         Me.Text = "Application Principale" 
         Me.ResumeLayout(False) 
      
      End Sub 'InitializeComponent 
      
      
      ' Point d'entrée du programme 
      Shared <STAThread()>
      Sub Main()
       
         Application.Run(New frmMain()) 
      
      End Sub 'Main
    
   End Class 'frmMain 

End Namespace 'PluginApp

Dim obj As Object 
obj = AppDomain.CurrentDomain.CreateInstanceFromAndUnwrap("Plugin1.dll", "PluginApp.PluginClass")

Imports System
Imports System.Reflexion;

Namespace PluginApp
	' Classe appelante
	Public Class CTest
		' Point d'entrée du programme 
		Shared <STAThread()>
		Sub Main() 
			' Chargement de l'assembly
			Dim a As Assembly
			a = Assembly.LoadFrom("ClassLibrary1.dll");

			' Récupération de l'ensemble des classes contenu dans l'assembly
			Dim types As Type()
			types = a.GetTypes()

			' Appel de la méthode Write de la première classe de l'assembly
			types[0].InvokeMember("Write",BindingFlags.InvokeMethod | 
			                              BindingFlags.Public | 
			                              BindingFlags.Static,null,null,null);
		End Sub
	End Class
End Namespace

Imports System

Namespace ClassLibrary1
	' Classe appelante
	Public Class Class1
		' Méthode qui écrit kikoo dans la console 
		Static Sub Write() 
			Console.Out.WriteLine("kikoo")
		End Sub
	End Class
End Namespace

Imports System
Imports System.Reflexion

Namespace PluginApp
	' Classe appelante
	Public Class CTest
		' Point d'entrée du programme 
		Shared <STAThread()>
		Sub Main() 
			' Chargement de l'assembly
			Dim a As Assembly
			a = Assembly.LoadFrom("ClassLibrary1.dll")

			' Récupération de l'ensemble des classes contenu dans l'assembly
			Dim types As Type()
			types = a.GetTypes()

			' Préparation des arguments à passer à la méthode
			Dim arg As New String(1)
			arg(0) = "kikoo2";
			
			' Appel de la méthode Write de la première classe de l'assembly
			types[0].InvokeMember("Write",BindingFlags.InvokeMethod | 
			                              BindingFlags.Public | 
			                              BindingFlags.Static,null,null,arg)
		End Sub
	End Class
End Namespace

Imports System

Namespace ClassLibrary1
	' Classe appelante
	Public Class Class1
		' Méthode qui écrit kikoo dans la console 
		Public Shared Sub Write(message As String) 
			Console.Out.WriteLine(message)
		End Sub
	End Class
End Namespace

Imports System
Imports System.Reflexion

Namespace PluginApp
	' Classe appelante
	Public Class CTest
		' Point d'entrée du programme 
		Shared <STAThread()>
		Sub Main() 
			' Chargement de l'assembly
			Dim a As Assembly
			a = Assembly.LoadFrom("ClassLibrary1.dll")

			' Récupération de l'ensemble des classes contenu dans l'assembly
			Dim types As Type()
			types = a.GetTypes()

			Dim arg As New object(2);
			arg(0) = 2;
			arg(1) = 5;
			Dim i As Integer
			i = CInt(types[0].InvokeMember("Calc",BindingFlags.InvokeMethod |
			                                      BindingFlags.Public | 
			                                      BindingFlags.Static,null,null,arg))
			Console.WriteLine("2 + 5 = " + i)
		End Sub
	End Class
End Namespace

Imports System

Namespace ClassLibrary1
	' Classe appelante
	Public Class Class1
		' Méthode qui additionne deux entiers 
		Public Shared function Calc(int i, int j) As Integer
			Calc = i + j
		End function
	End Class
End Namespace