[VB.NET] Problème avec CType

Version imprimable

Bonjour,

J'essaie de faire une procédure pour lire une classe qui a été au préalable enregistrer dans un fichier XML.

La classe en question on la nommera TOTO.

Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Sub LoadXML(ByRef LaClasse As Object) Dim SerialXML As XmlSerializer Dim streamIo As IO.StreamReader Try SerialXML = New XmlSerializer(LaClasse.GetType) streamIo = New IO.StreamReader(MyAdresseFichier) LaClasse = CType(SerialXML.Deserialize(streamIo), TOTO) Catch ex As Exception Finally If streamIo IsNot Nothing Then streamIo.Close() End Try End Sub
Quoi que je mette à la place de TOTO (par exemple LaClasse.GetType) il me dit "Type Non référencé". Il accepte que le nom de la classe.

La fonction marche mais elle a aucun intérêt si je dois toujours revenir la modifié. en fonction de la classe utilisée

Vous avez une soluce ?

merci.

24/08/2006, 08h52
Dnx

tu n'as pas besoin de caster
l'objet recoit n'importe quoi...

mais il me semble que la fonction deserialize retourne une string non?
24/08/2006, 15h06
ricil78
pour info : La fonction Deserialize renvoie un objet

Si je rajoute une variable pour faire un truc du genre
Code:

1 2 3 4 5 6 7 8 9 10 Public Sub LoadXML(ByRef LaClasse As Object, ByVal LeNomDeLaClass As Object) ~~~ LaClasse = CType(SerialXML.Deserialize(streamIo), LeNomDeLaClass) ~~~ End sub
Avant même de compiler il me dit << Type "LeNomDeLaClass" non défini >>

PS : C'est la fonction "CType" qui pose problème et non pas "Deserialize"
25/08/2006, 17h12
Mose

Pour reprendre ce que voulait dire Dnx : et si tu enlèves le CType ?
Je vis pas bien à quoi il sert...
J'y connais rien en VB, mais faire un cast pour transformer un objet de type Object en un objet de type Object, je comprend pas...

Si certaine personne suit l'évolution de ce post, voici la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    ''' <summary>
    ''' TypeClass => Correspont au type de la class à retourner.
    ''' </summary>
    Function Load(Of TypeClass)() As TypeClass
        Dim reader As New XmlSerializer(GetType(TypeClass))
        Dim Resultat As TypeClass = Nothing
        If IO.File.Exists(AdresseFichier) Then
            Dim file As New StreamReader("c:\test.xml")
            Resultat = CType(reader.Deserialize(file), TypeClass)
        End If
        Return Resultat
    End Function

Exemple d'appel :

Code:

1
2
3
 
Dim p As personne
p = Load(Of personne)()