Discussion :

[zooffy]

Bonjour

Je suis en train de mettre au point un eptit procédure pour charger les listes déroulante, bouton radio et autre case à cocher.

Je voudrais faire une procédure un peu "universelle". Je compte lui envoyer deux paramettres :
- un Object qui sera la liste à remplir
- une requête qui servira à fabriquer une DataTable pour placer les données.

Mais voilà, j'ai un souci avec le type. Je voudrais pouvoir transtyper la bestiole au début de Procédure, amus j'arrive pas à trouver le moyen de récupérer son type pour l'envoyer en paramettre du Ctype.

Pour l'instant le fais ma Procédure comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sub RemplirListe(ByVal lst As Object, ByVal rq As String)

Ce que j'arrive pas à faire c'est un truc comme ça : (attention, le code est foireux)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim lstTempo as "le type que je capte de l'objet lst" = lst

Pouvez vous m'aider ?

[jjameau]

tu a regarder du coté des ObjectDataSource c'est à mon avis ce que tu essais de faire

http://msdn.microsoft.com/fr-fr/libr...89(VS.80).aspx

jjameau

[zooffy]

Merci pour ton aide.

Maheureusement ce n'est pas ça du tout. Mon souci vient sur la récupération et surtout la réutilisation du type de l'objet envoyé.

En fait, mon objet lst peut être soit une DropDownList, soit une CheckBoxList, soit un RadiobuttonList. Même si ces objets sont assez similaires, ils ont des particularités que je ne peux exploiter que si je capte leur type en amont.

Vois tu mieux ?

[smyley]

Et sinon, tu as essayé avec Convert.ChangeType(Object,Type) ?

[jjameau]

ah ok, dans ce cas tu as essayé de récupérer le type avec la méthode GetType() ?

jjameau

[lutecefalco]

lst.GetType()

[zooffy]

Merci LuteceFalco et jjameau : GetType(), oui, ça récupère le type, mais ça passe pas comme argument dans un Ctype.

@smyley : je ne connais pas cette méthode.

Donc, j'ai mis ça dans ma Procédure, mais visiblement, ça marche mal.
Je pense que je dois louper une truc dans la philosophie de l'histoire.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Shared Sub RemplirListe(ByRef lst As Object, ByVal rq As String)
	Dim dt As DataTable = New DManager("DataDev").RetournerTable(rq)
	Convert.ChangeType(lst, lst.GetType)
	lst.Items.Clear()
	lst.DataSource = dt
End Sub

Le problème, c'est que ça marche pas, DataSource ne fait pas partie des Propriété de l'objet lst. Alors je me suis dit que peut être fallait passer par un objet intermédiaire, mais là je sèche, j'arrive pas à trouver l'enchainement.

Parce que l'idée, pour aller plus loin, c'est de dire que si c'est une Drop, ben on renvoi ça tel que, si c'est une Radio ben lui envoi un sens de listage (Horizontale ou vertical) avec sa propriété RepeatDirection (par exemple)

Mais pour ça faut que je Cast l'objet lst et que je capte son type pour faire un Case (par exemple). J'ai aussi imaginer faire une sort de surcharge de la procédure (trois fois) selon le type d'objet, mais je me suis paumé en route avec les listes de paramettre commun et particulier.

[lutecefalco]

Je verrais plutot un truc comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
switch lst.GetType
   case CheckBoxList
        dim cbl as CheckBoxList
        cbl = CType(lst, CheckBoxList)
        cbl.DataSource = ...

[zooffy]

ça c'était mon premier essai, amis le type ne veux pas passer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Select Case lst.GetType
	Case DropDownList 'Erreur	1	'DropDownList' est un type et ne peut pas être utilisé en tant qu'expression.	
End Select

Je t'ai rajouter le commentaire d'erreur renvoyé.
Ensuite j'ai essayé avec le GetyPe().ToString et mettre le nom du type dans les Case, sous forme de string, mais je me suis aperçu que ça marchait, il passe pas dans le Case.

Et enfin, j'ai pas d'idée sur comment renvoyer ça compte tenu du fait que mon paramettre d'entrée en ByRef.

Vois tu ?

[lutecefalco]

Et ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
switch lst.GetType().ToString()
   case "System.Web.UI.WebControls.CheckBoxList"

[zooffy]

Bon alors j'avance doucement, mais ça marche toujours pas.

J'en suis là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Shared Sub RemplirListe(ByRef lstParam As Object, ByVal rq As String)
Dim dt As DataTable = New DManager("DataDev").RetournerTable(rq)
	Select Case lstParam.GetType.ToString
		Case "System.Web.UI.WebControls.CheckBoxList"
		Dim lst As DropDownList = lstParam
		With lst
			.Items.Clear()
			.DataSource = dt
			.DataTextField = "Texte"
			.DataValueField = "Valeur"
			.DataBind()
		End With
		Case Else
			Logage("J'ai rien capté")
	End Select
End Sub

Dans mon fichier de log, j'ai mon entreé : "J'ai rien capté"

J'avoue que là, je sèche.

PS : @LuteceFalco, tu auras remarqué mon aisance à transformer ton C# en VB.NET, j'ai évité ton piège et potassé ton lien et le petit machin vachement bien proposé par seth78, ha, ha, je deviens grand......

[lutecefalco]

Avant ton Select Case, rajoute:
Logage(lstParam.GetType.ToString)

[zooffy]

Bon, ok, je viens de flagellé violement.
Lorsqu'on commence à mélanger les pommes et le bananes, ben la compote elle est moins bonne !

Donc, en faisant ce que tu m'a dis, j'ai vu que je tentait de faire une DropDownist avec une CheckBoxLsit, donc...

Maintenant, ça marche mieux.

Je vais finir ma procédure pour utiliser tous les paramaettres et si ça marche, je boucle.

Merci à tous.

[SaumonAgile]

Pourquoi passer par un paramètre object, alors qu'il existe les generics pour gérer ce genre de cas ?

[DelphiManiac]

Avec ce genre de test, ca ne marche pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Sub Test1()
        Dim t As New System.Windows.Forms.TextBox
        Test2(t)
        Dim c As New System.Windows.Forms.CheckBox
        Test2(c)
    End Sub
 
    Private Sub Test2(ByRef lstParam As Object)
        If lstParam.GetType Is GetType(System.Windows.Forms.TextBox) Then
            Console.WriteLine("TextBox")
        ElseIf lstParam.GetType Is GetType(System.Windows.Forms.CheckBox) Then
            Console.WriteLine("CheckBox")
        Else
            Console.WriteLine("Ben, je ne sais pas !!!!")
        End If
    End Sub

Pourquoi passer par un paramètre object, alors qu'il existe les generics pour gérer ce genre de cas ?

D'après ce que j'ai compris de la question, il veut faire des actions différentes en fonction du type et les generics, c'est plutot faire les mêmes actions quel que soit le type. Ou alors j'ai pas bien compris !!!