VB.NET - problème de string Fermé

Question

Bonjour a tous, 

Voila, j'ai un problème en vb.net avec les string et OpenFileDialog. 

En Faite j'ai crée une collection(Liste) de classe contenant plusieurs string dans le constructeur, et quand je quitte l'appli, j'enregistre toutes les données de ma collection dans un document XML(Sérialisation) 

Jusque là, je n'ai pas de soucis particulier. Je fais un Dim Liste as new List(of Class) 

Pour résumer, ma classe contient : Le Nom | Le Chemin 
Donc ma collection va contenir une liste de nom et de chemin 

(Chemin = Chemin D'image) 


Mon problème :  

Je demande à l'utilisateur d'entrer une image via un OpenFileDialog (explorateur de disque dur). L'utilisateur choisit l'image et je récupère le chemin via : OpenFileDialog.FileName 


Or quand j'insère le nom du chemin dans ma collection tout se passe normalement, mais quand je l'enregistre dans mon doc. XML, le chemin est inconnu, seul le nom s'insère correctement, et je ne trouve pas pourquoi.  

J'ai donc fais plusieurs test, et je me suis dis que ça devait être un problème de type car quand je rentre le chemin à la main, il l'enregistre correctement. 

Pourquoi OpenFileDialog.FileName n'est-il pas reconnu comme un string ? 

Voila mon code : 

Dim Chemin as New OpenFileDialog 
Dim MonFichier as string 

Chemin.ShowDialog() 
MonFichier = Chemin.FileName 

if MonFichier IsNot Nothing then 
        Me.txt_chemin.Text = MonFichier 
EndIf


Merci !! 


Configuration: Windows XP / Firefox 3.6.12

Karosis · Answer

Bonjour,

A mon avis essaye de caster ton chemin : 
MonFichier = Chemin.FileName  as string

Chico95 · Answer

Bonjour karosis et merci de ta réponse, 

Concernant le cast, j'ai deja tout essayé et sa ne marche pas.
Mais je me suis rendu compte que c'était non pas un problème sur le fileName mais un problème de sérialisation de chez microsoft.

Je ne comprends pas pourquoi la sérialisation marche pour le nom en string mais pas pour le chemin en string.

Karosis · Answer

Vérifie en pas à pas à quel moment il délaisse le chemin pour ne prendre que le nom car j'ai testé et sans sérialisation le chemin est correct.
Et suivant ta version attention au "\" qui peut être pris pour un caractère d'échapement, à mon avis ça peut venir de là.

chico95 · Answer

Après vérification en pas a pas je me suis rendu compte que c'était bien au niveau de la sérialisation qu'il y a un problème.

Mais lorsque je rentre le chemin à la main sans passer par OpenFileDialog ça marche correctement.

J'ai testé le nom en mettant des caractères spéciaux pour voir si ce n'était pas la cause du problème, mais apparemment non.

Karosis · Answer

Mets-moi ton code complet avec la ligne qui, en pas à pas, change ton chemin d'accès que je puisse tester.

chico95 · Answer

Voila le code de la sérialisation. Pour tout le reste c'est hyper long.
Mais dans le debuger c'est ici que ça merde : 

Le pas a pas m'indique bien que dans _ListeContact j'ai une partie chemin avec "C:\chemin...\image.png" de type string

Private Sub Serialisation()
        Try
            'On crée le fichier et récupère ses données
            Dim Fichier As FileStream = File.Create("bibliotequeContact.xml")
            Dim Serialiseur As New XmlSerializer(GetType(List(Of Contact)))

            'Enregistrement et écriture
            Serialiseur.Serialize(Fichier, _ListeContact)
            'Fermeture du fichier
            Fichier.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

lermite222 · Answer

Bonjour,
Peut-être avec...
    MonFichier = Chemin.FileName.ToString 
A+

chico95 · Answer

Bonjour, 

Je viens d'essayer, et non cela ne change rien.
Je ne pense pas que ce soit un réel problème de string en faite.

Je pense vraiment que le OpenFileDialog et la sérialisation ne s'entendent pas. Car quand je rentre le chemin à la main, cela marche, mais si je passe par OpenFileDialog, sa bug...

chico95 · Answer

Si vraiment ça marche pas, je pourrais essayé de remplacer ma sérialisation et mon fichier XML par une bdd qui tourne derrière, mais je ne sais vraiment pas comment faire.

Cela est-il plus judicieux ?

Merci

Karosis · Answer

A mon avis cela doit venir de ta façon de remplir ta liste "_ListeContact". Merci de m'indiquer de quel manière tu la remplie.

chico95 · Answer

_ListeContact est une liste de la classe Contact : 

Voici le code :  

Private _ListeContact As List(Of Contact) 

Public Property ListeContact As List(Of Contact) 
        Get 
            Return _ListeContact 
        End Get 
        Set(ByVal value As List(Of Contact)) 
            _ListeContact = value 
        End Set 
    End Property

Ma classe contact est comme sa (dsl c'est un peu long):  

 
Dim chemin as string...

Public Sub New(ByVal surnom As String, ByVal chemin As String, ByVal nom As String, ByVal prenom As String, ByVal DateNaissance As Date, ByVal groupe As String, ByVal adresse As String, ByVal ville As String, ByVal fixe As String, ByVal port As String, ByVal pro As String, ByVal mail As String) 
        _surnom = surnom 
        _chemin = chemin 
        _nom = nom 
        _prenom = prenom 
        _dateNaissance = DateNaissance 
        _groupe = groupe 
        _adresse = adresse 
        _ville = ville 
        _mail = mail 
        _fixe = fixe 
        _port = port 
        _pro = pro 
    End Sub

Karosis · Answer

Désolé on s'est pas compris, comment passe tu le chemin d'accès à l'attribut "chemin" d'une liste "_ListeContact".
Passe-tu par un string tampon ou le lui passe-tu directement ?

Si c'est dans ce dernier cas essaye de créer un string auquel tu passera le chemin pour ensuite passer ce string dans ton contact.

Parfois une interaction directe bug, mais le fait d'utiliser un paramètre tampon peut régler bien des problèmes.

chico95 · Answer

a oui dsl j'avais pas compris.

Ba je passais par un label.text tampon, mais je vais essayer avec un string tampon.

Voila le code que j'avais : 

FichierSelect = Chemin.FileName
        If FichierSelect IsNot Nothing Then
            Me.lbl_chemin.Text = FichierSelect
            Me.lbl_chemin.Text = CStr(Me.lbl_chemin.Text)
        End If

        Me.txt_chemin.Text = Me.lbl_chemin.Text

Et quand j'update ma liste, je lui récupère la valeur de ma textBox qui contient le chemin.

chico95 · Answer

Nop, ça ne marche toujours pas...

Sinon le mieux pour contourner ce problème serait peut-être de passer par une BDD ou de supprimer mon image tout simplement.

Mais je ne comprends pas pourquoi c'est le OpenFileDialog qui me pose tant de  problèmes.

Karosis · Answer

Honnêtement je suis perplexe, j'ai tester et le OpenFileDialog.FileName fonctionne très bien avec un textbox et une liste, voici mon code avec un test tout bête au cas où tu vois quelque chose :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim chemin As New OpenFileDialog
        Dim fichier As String

        chemin.ShowDialog()
        fichier = chemin.FileName

        Me.TextBox1.Text = fichier

    End Sub
Private Sub TextBox1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDoubleClick
        Dim maliste As New List(Of String)

        maliste.Add(TextBox1.Text)
        MessageBox.Show(maliste.Item(0).ToString())

    End Sub

Sinon, tu peux toujours tester comme tu le dis sur une base Access mais je ne pense pas que la sérialisation ou le openfiledialog y sois pour quelque chose, à moins que ta version de logiciel ait un bug :/

chico95 · Answer

ba en faite ce que tu as fais marche correctement.

Mais chez moi aussi ça marche, le chemin est bien ajouté dans ma liste et apparait correctement !

Sauf que quand je ferme et je ré-ouvre l'appli, le chemin n'apparait plus du tout dans la liste.

Peux-tu essayé de sérialiser ta liste et de me dire si ton chemin passe. Si tel est le cas, je pense que je dois avoir un problème avec VS2010.

J'ai même extrait ma liste vers excel et le chemin s'affiche correctement comme un string, c'est donc pas un problème à ce niveau là je pense.

En tout cas merci beaucoup pour ton aide !

Karosis · Answer

Désolé d'avoir mis du temps à répondre mais j'avais pas trop eu le temps de tester. J'ai donc tout recréé en C# (j'y suis plus à l'aise qu'en VB) peu importe le langage vue que le framework est le même. ça marche sans problème voici mon fichier xml : C:\Documents and Settings\All Users est.jpg voici mon code : XmlSerializer xmls = new XmlSerializer(typeof(string)); FileStream fichier = new FileStream(@"C: est.xml", FileMode.CreateNew); OpenFileDialog ofd = new OpenFileDialog(); ofd.ShowDialog(); string test = ofd.FileName.ToString(); textBox1.Text = test; List liste = new List(); liste.Add(textBox1.Text); xmls.Serialize(fichier, liste[0]); A tout moment mon string reste inchangé. Si tu comprend pas trop le C#, dis moi le et je te traduirai, mais normalement ça se lit plutôt bien.

chico95 · Answer

C'est vrai que ça se ressemble beaucoup donc j'arrive a peu près à comprendre.

Juste une question, c'est quoi le @ devant le chemin ??

Toi tu as une liste de string, moi j'ai une liste de classe, à ton avis ça change beaucoup sachant que dans ma classe il y a des string et des dates... ?

Merci

Karosis · Answer

le "@" mis devant un string permet de ne pas faire cas des "\" dans le chemin, c'est le terme .NET pour indiquer que le string est une adresse.

Je ne pense pas que le fait d'avoir une liste de classe joue un rôle si ton champ "image" est bien un string.

chico95 · Answer

Deja merci pour ton aide et pour tes réponses.

Si je tente de mettre un @ devant mon chemin, à ton avis ça pourrait marcher ?

Karosis · Answer

ça marche que si tu met le chemin manuellement (ex : @"C:	est.jpg")

A mon avis le problème doit venir de la manière dont tu rentre le chemin dans ton objet car en mettant l'objet dans la liste, à moins que tu ais y fasse une modif à ce moment, tu n'y touche pas.

Execute le en pas à pas au moment de la création ton objet "Contact" et je pense que tu devrais y voir un changement dans le chemin.

Si c'est le cas montre moi le code.

chico95 · Answer

désolé de cette réponse très tardive, je n'avais plus vraiment le temps.

Je vais exécuter en pas en pas pour voir, et je te dirai si je vois une modif de l'objet.

chico95 · Answer

j'ai décidé de me retaper le code dans un nouveau projet avec un code plus propre, et ne me demande pas pourquoi, mais ça marche !!!!!

Merci beaucoup pour ton aide karosis, j'ai appris pas mal de truc !

Karosis · Answer

Des fois un petit morceau de code behind, auquel tu ne fais pas attention, reste après plusieurs manip et fait que cela ne marche plus aussi bien.
ça m'est arrivé pas plus tard que la semaine dernière sur entity framework.

Ce fût un plaisir de t'aider, et si en plus je t'ai appris quelque truc j'en suis encore plus content.

A+

chico95 · Answer

Arf j'ai un autre petit soucis, beaucoup moins grave, c'est juste un problème de design, mais je ne trouve pas.

J'aimerais colorer une listbox 1 ligne sur 2.

L'item 1 en gris, le 2è en blanc, le 3è en gris, le 4è en blanc...etc

J'ai trouver des codes sur le net mais ils sont juste énorme !

il existe pas une propriété du genre item.color ?

Karosis · Answer

Désolé mais cette propriété n'existe pas dans la ListBox.

Dans le DataGrid tu as la propriété "AlternatingRowBackground" à laquelle tu passe la couleur alternative que tu souhaite (la seconde étant le Background de ton DataGrid).

Mais dans une ListBox il faut le coder toi-même. Sinon utilise un DataGrid.

J'ai trouvé un code relativement pas trop lourd pour alterné la couleur des ligne d'une ListBox : https://blog.pixelingene.com/?p=91

Bon courage.

chico95 · Answer

Merci beaucoup, je ne connaissais pas datagridview, et je suppose que c'est à peu près pareil qu'une listebox.

Je vais voir ce que je peux faire !

VB.NET - problème de string

27 réponses

Discussions similaires