Discussion :

[herroP]

Bonjour, j'ai créé une application windows form pour mon jeux. Elle consiste à afficher les statistiques du personnages.
J'ai voulu changer d'ordinateur alors j'ai inséré tous mes projets dans un clé USB. Pour les autres projets, j'y accède en les ouvrant depuis la clé USB et ça marche bien. Mais lorsque je veux ouvrir celui en question depuis la clé USB, il s'ouvre, tous les codes sont là. Mais quand je lance mon application, aucun des codes de "form1.vb" ne sont pris en compte (le texte voulut ne s'affiche pas sur les labels, les progressbar ne sont pas remplies, etc...). Il détecte seulement les erreurs.
Voici mon code:

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
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
'Déclaration de toutes les variables et système d'affichage des statistiques.
        'Ajout de point d'attaque par effet d'un equipement.
        Dim effetattaque As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaque.txt")
        Dim effet = effetattaque.ReadToEnd
        effetattaque.Close()
        'Ajout de point de défense par effet d'un equipement.
        Dim effetdefense As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defense.txt")
        Dim effetbouclier = effetdefense.ReadToEnd
        effetdefense.Close()
        'Nombre de points d'expérience pour avoir un niveau. Ne pas toucher.
        Dim pexetat As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pex-etat.txt")
        Dim etatpex = pexetat.ReadToEnd
        pexetat.Close()
        'Le nombre de points de vie maximum.
        Dim pvetat As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv-etat.txt")
        Dim etatpv = pvetat.ReadToEnd
        pvetat.Close()
        'Le niveau actuel du personnage.
        Dim niveau As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\level.txt")
        Dim niveaudeux = niveau.ReadToEnd
        Label12.Text = niveaudeux
        niveau.Close()
        'Le nombre de points d'expérience actuel.
        Dim experience As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pex.txt")
        Dim pex = experience.ReadToEnd
        Label3.Text = pex + etatpex
        experience.Close()
        'Le nombre de points de vie restants.
        Dim vie As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt")
        Dim pv = vie.ReadToEnd
        Label5.Text = pv + etatpv
        vie.Close()
        'Nombre de points d'attaque total.
        Dim dommage As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
        Dim attaque = dommage.ReadToEnd
        Label8.Text = attaque + effet
        dommage.Close()
        'Nombre de points de défense total.
        Dim defense As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\defense.txt")
        Dim pd = defense.ReadToEnd
        Label9.Text = pd + effetbouclier
        defense.Close()
        'L'emplacement tête de l'équipement.
        Dim equipementtete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\equipement\tete.txt")
        Dim inventairetete = equipementtete.ReadToEnd
        Label19.Text = inventairetete
        equipementtete.Close()
        'L'emplacement cuirasse de l'équipement.
        Dim equipementcuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\equipement\cuirasse.txt")
        Dim inventairecuirasse = equipementcuirasse.ReadToEnd
        Label20.Text = inventairecuirasse
        equipementcuirasse.Close()
        'L'emplacement cape de l'équipement.
        Dim equipementcape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\equipement\cape.txt")
        Dim inventairecape = equipementcape.ReadToEnd
        Label21.Text = inventairecape
        equipementcape.Close()
        'L'emplacement arme de l'équipement.
        Dim equipementarme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\equipement\arme.txt")
        Dim inventairearme = equipementarme.ReadToEnd
        Label27.Text = inventairearme
        equipementarme.Close()
        'L'inventaire actuel.
        Dim inventaire As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\inventaire.txt")
        Dim inventairec = inventaire.ReadToEnd
        Label11.Text = inventairec
        inventaire.Close()
        'Nombre d'argent au total.
        Dim argent As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\argent.txt")
        Dim pa = argent.ReadToEnd
        Label23.Text = pa
        argent.Close()
        ProgressBar1.Value = pex

Auriez-vous une explication?

[herroP]

J'ai repris le projet sur l'autre ordinateur et ça marche mais maintenant les projets que j'avais créés sur l'autre ordinateur beug. C'est vraiment embétant.