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
| Imports System
Imports DreamShield.Extentions
Imports DreamShield.Deployment.Installers.DreamPlugins
Imports System.IO
Imports System.Xml
Imports DreamShield.Deployment.Wizards
Imports DreamShield.Deployment.Wizards.Workflow
Imports DreamShield.Deployment.Helpers
Imports DreamShield.Windows.Themes.Gui
Imports DreamShield.Deployment.Driver.Native
Namespace MilesCustomPage
<Extention(BaseDreamPluginContainer.DreamPluginExtentionGuid, "{77B51474-B088-4d40-ACD3-9B2F6450C466}")> _
Public Class MyPlugin
Inherits MilesRoot
' MilesRoot : classe qui permet de connecter les plugins Miles à l'installation
Protected Overloads Overrides Sub OnServerInitialized()
' Ici, il faudra rajouter les différents plugins que l'on veut connecter à DreamShield
MyBase.OnServerInitialized()
End Sub
Public Overridable Sub RegisterCustomPage()
' création de la page personnalisée
Dim customPage As New usercontrol1() '-----------------
Dim plugin As New CustomPagePlugin(Server, WizardPagesID.InstallationModePage, False, "", customPage)
' Il est possible de définir quelles actions seront possibles à partir de la page personnalisée, ie.
' * Précédent - Suivant - Annuler. Ici, on désactive la possibilité d'annuler sur cette page.
' * les propriétés et méthodes de plugin offrent tout un panel de personnalisations et d'évènements
' * accessibles pour une page de l'assistant
plugin.CanCancel = False
' définition du plugin, ainsi il sera accessible via la page personnalisée
customPage.PagePlugin = plugin
' enregistrement du plugin
Server.RegisterPlugin(customPage.PagePlugin)
End Sub
End Class
End Namespace |
Partager