DropDownList et SelectedIndexChanged
Bonjour à tous,
Je reprends un projet en cours. J'ai une DropDownList qui me donne les différents mois de janvier 2006 à aujourd'hui.
Cette dropdown est codée de la façon suivante dans un fichier qui s'appelle ListeMois.ascx
Code:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
Namespace BlueBerry.UserControl.DropDownList
Public Class ListeMois
Inherits ddLstBase
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
'Ne pas supprimer ou déplacer.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
Public Event SelectedIndexChanged(ByVal Sender As Object, ByVal E As EventArgs)
Public Overrides Sub PopulateListeItem()
_DropDownList.Items.Clear()
'déclaration des variables locales
Dim i As Int32
Dim lstI As ListItem
Dim strDate As Date
Dim DateFinMois As Date
Dim Lib_Mois As String
strDate = Now.Date.AddMonths(1) 'Now.Date.AddDays(10)
Do Until strDate <= CType("31/01/2006", Date)
DateFinMois = Utils.DateUtils.FinMois(strDate)
Lib_Mois = Utils.DateUtils.LibMois(DateFinMois)
lstI = New ListItem(Lib_Mois, CType(DateFinMois, String))
_DropDownList.Items.Add(lstI)
strDate = DateFinMois
Loop
End Sub
Public Property SelectedMois() As Date
Set(ByVal Value As Date)
_DropDownList.SelectedValue = CStr(Value)
End Set
Get
Return CType(_DropDownList.SelectedItem.Value, Date)
End Get
End Property
Public Property Enabled() As Boolean
Get
Return _DropDownList.Enabled
End Get
Set(ByVal Value As Boolean)
_DropDownList.Enabled = Value
End Set
End Property
Public Function GetFilter(ByVal ColumnName As String) As String
Return ColumnName & " = '" & _DropDownList.SelectedItem.Value & "'"
End Function
#Region "Events"
Private Sub DropDownList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles _DropDownList.SelectedIndexChanged
RaiseEvent SelectedIndexChanged(Me, e)
End Sub
#End Region
End Class
End Namespace |
Elle est ensuite appelé de la façon suivante dans ma page aspx
Code:
1
2
3
4
5
6
| <%@ Register TagPrefix="uc1" TagName="ListeMois" Src="../../eUserControls/DropDownList/ListeMois.ascx" %>
<tr>
<TD noWrap align="right" width="50%"><asp:label id="Libelle_Mois" runat="server">Mois :</asp:label></TD>
<TD align="left" width="50%"><uc1:listemois id="Listemois" runat="server"></uc1:listemois></TD>
</tr> |
Ma question est la suivante. Comment est ce que je peux effectuer un test dans ma page aspx pour voir si l'utilisateur changé sa sélection de mois dans la liste ?
En gros comment réussir à appeler la fonction Private Sub DropDownList_SelectedIndexChanged alors qu'elle est privée ? Quel retour est ce que je vais avoir ?
Merci d'avance.
