Bonjour !!
Voila j'ai un soucis je développe un Custom Control (j'espère que je me trompe pas pour le nom) qui permet de choisir un intervalle de temps avec l'aide des extendeurs ajaxtoolkit. Dans le code de ce contrôle je créer donc dynamiquement deux TextBox, deux ImageButton et deux calendarExtendeur, pour permettre le choix de deux dates avec l'ouverture du calendrier.
Seulement voilà, je n'arrive pas à faire en sorte que mes TextBox garde leur texte après un postbacks, j'ai pourtant suivi des conseils de gens ayant essayé cela mais pas moyen, si vous avez une idée. J'envoie mon code tel qu'il est actuellement j'ai essayer plusieurs changements sans résultats.
Merci pour votre aide !
Code Visual Basic :
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports AjaxControlToolkit
Namespace CPAM
Public Class DatePicker
Inherits WebControl
Protected Overrides Sub CreateChildControls()
MyBase.CreateChildControls()
Dim txbDebut, txbFin As TextBox
Dim extTxbDebut, extTxbFin As CalendarExtender
Dim imgBtDebut, imgBtFin As ImageButton
txbDebut = New TextBox
txbFin = New TextBox
extTxbDebut = New CalendarExtender
extTxbFin = New CalendarExtender
imgBtDebut = New ImageButton
imgBtFin = New ImageButton
Me.Controls.Add(txbDebut)
Me.Controls.Add(txbFin)
Me.Controls.Add(extTxbDebut)
Me.Controls.Add(extTxbFin)
Me.Controls.Add(imgBtDebut)
Me.Controls.Add(imgBtFin)
txbDebut.ID = Me.ID + "txbDebut"
txbFin.ID = Me.ID + "txbFin"
imgBtDebut.ID = Me.ID + "imgBtDebut"
imgBtFin.ID = Me.ID + "imgBtFin"
extTxbDebut.ID = Me.ID + "extTxbDebut"
extTxbFin.ID = Me.ID + "extTxbFin"
imgBtDebut.ImageUrl = "~/PlanningEtStatistiques/Images/calendar_edit.png"
imgBtFin.ImageUrl = "~/PlanningEtStatistiques/Images/calendar_edit.png"
extTxbDebut.Format = "dd/MM/yyyy"
extTxbFin.Format = "dd/MM/yyyy"
txbDebut.Attributes.Add("readonly", "readonly")
txbFin.Attributes.Add("readonly", "readonly")
txbDebut.BackColor = Drawing.Color.WhiteSmoke
txbFin.BackColor = Drawing.Color.WhiteSmoke
txbDebut.Width = 75
txbFin.Width = 75
extTxbDebut.TargetControlID = txbDebut.ID
extTxbFin.TargetControlID = txbFin.ID
extTxbDebut.PopupButtonID = imgBtDebut.ID
extTxbFin.PopupButtonID = imgBtFin.ID
End Sub
Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
writer.Write("<table><tr><td valign=""middle""><span>Du </span>")
Me.Controls(2).RenderControl(writer)
Me.Controls(0).RenderControl(writer)
writer.Write(" ")
Me.Controls(4).RenderControl(writer)
writer.Write("<span> au </span>")
Me.Controls(3).RenderControl(writer)
Me.Controls(1).RenderControl(writer)
writer.Write(" ")
Me.Controls(5).RenderControl(writer)
writer.Write("</td></tr></table>")
End Sub
End Class
End Namespace