NOUVEAU BUTTON : BUTTONUNIQUE

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Webcontrols
Imports System.Web

Namespace Cyril
    Namespace Controls
        Namespace Webcontrols

            ''' -----------------------------------------------------------------------------
            ''' Project	 : Cyril.Controls
            ''' Class	 : Controls.Webcontrols.ButtonUnique
            ''' 
            ''' -----------------------------------------------------------------------------
            ''' <summary>
            ''' Nouveau bouton 
            ''' </summary>
            ''' <remarks>
            ''' Voir http://www.aspfr.com/code.aspx?ID=21560
            ''' </remarks>
            ''' <history>
            ''' 	[DURAND Cyril]	29/03/2004	Created
            ''' </history>
            ''' -----------------------------------------------------------------------------
            <ToolboxData("<{0}:ButtonUnique runat=server></{0}:ButtonUnique>")> _
            Public Class ButtonUnique
                Inherits System.Web.UI.WebControls.Button


                Private _isOneClick As Boolean = True
                ''' -----------------------------------------------------------------------------
                ''' <summary>
                ''' Pour que le bouton ne soit actif qu'une seule fois
                ''' </summary>
                ''' <value>Default : True</value>
                ''' <remarks>
                ''' </remarks>
                ''' <history>
                ''' 	[DURAND Cyril]	29/03/2004	Created
                ''' </history>
                ''' -----------------------------------------------------------------------------
                <Category("Autres"), _
                Description("Pour que le bouton ne soit actif qu'une seule fois")> _
                Public Property isOneClick() As Boolean
                    Get
                        Return _isOneClick
                    End Get
                    Set(ByVal Value As Boolean)
                        _isOneClick = Value
                    End Set
                End Property

                Private _Alert As String
                ''' -----------------------------------------------------------------------------
                ''' <summary>
                ''' Pour que le bouton ne soit actif qu'une seule fois
                ''' </summary>
                ''' <value>Default : True</value>
                ''' <remarks>
                ''' </remarks>
                ''' <history>
                ''' 	[DURAND Cyril]	29/03/2004	Created
                ''' </history>
                ''' -----------------------------------------------------------------------------
                <Category("Autres"), _
                Description("Message d'alert")> _
                Public Property Alert() As String
                    Get
                        Return _Alert
                    End Get
                    Set(ByVal Value As String)
                        _Alert = Value
                    End Set
                End Property

                Private _OnRollOverText As String
                ''' -----------------------------------------------------------------------------
                ''' <summary>
                ''' Le texte quand on passe la souris sur le bouton
                ''' </summary>
                ''' <value></value>
                ''' <remarks>
                ''' </remarks>
                ''' <history>
                ''' 	[DURAND Cyril]	30/03/2004	Created
                ''' </history>
                ''' -----------------------------------------------------------------------------
                <Category("Apparence"), _
                Description("Le texte quand on passe la souris sur le bouton")> _
                Public Property OnRollOverText() As String
                    Get
                        Return _OnRollOverText
                    End Get
                    Set(ByVal Value As String)
                        _OnRollOverText = Value
                    End Set
                End Property


                Protected Overrides Sub AddAttributesToRender(ByVal writer As System.Web.UI.HtmlTextWriter)
                    MyBase.AddAttributesToRender(writer)

                    Dim isOnClickAttributsAdded As Boolean = False
                    Dim isOnMouseOverAttributsAdded As Boolean = False
                    Dim isOnMouseOutAttributsAdded As Boolean = False

                    Dim CodeJavascript As New Controls.Utility.EcrireEvenementJavascript(writer, Me.UniqueID)

                    If Me.isOneClick = True Then
                        If isOnClickAttributsAdded = False Then
                            writer.AddAttribute("OnClick", "self.setTimeout('OnClick" & Me.UniqueID & "();' ,1);")
                            isOnClickAttributsAdded = True
                        End If

                        CodeJavascript.OnClick("document.getElementById('" & Me.UniqueID & "').disabled=true;")

                    End If

                    If Not Me.Alert = "" Then
                        If isOnClickAttributsAdded = False Then
                            writer.AddAttribute("onclick", "self.setTimeout('OneClick" & Me.UniqueID & "();' ,1);")
                            isOnClickAttributsAdded = True
                        End If
                        CodeJavascript.OnClick("alert('" & Replace(Me.Alert, "'", "\'") & "');")
                    End If

                    CodeJavascript.EcrireJavascript()

                End Sub

            End Class
        End Namespace

    End Namespace
End Namespace