[VB] Sauvegarder le texte de plusieurs label
rangertigre
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
rangertigre Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
rangertigre Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de créer une application en Visual Basic. Je voudrais savoir comment enregistrer le contenue des toutes mes labels, pour pouvoir les récupérer quand je relancerais mon application.
Merci d'avance
Je suis en train de créer une application en Visual Basic. Je voudrais savoir comment enregistrer le contenue des toutes mes labels, pour pouvoir les récupérer quand je relancerais mon application.
Merci d'avance
A voir également:
- [VB] Sauvegarder le texte de plusieurs label
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Logiciel de sauvegarde gratuit - Guide
- Vb - Télécharger - Langages
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
Le plus simple est d'utiliser la sérialisation, ou un fichier config.
En ce qui concerne la sérialisation :
http://www.siteduzero.com/tutoriel-3-312629-la-sauvegarde-d-objets.html
Pour un fichier config, base toi là dessus :
Un simple flux stream pour enregistrer tes infos dedans, et le fichier est bien plus lisible.
J'espère t'avoir aidé :)
En ce qui concerne la sérialisation :
http://www.siteduzero.com/tutoriel-3-312629-la-sauvegarde-d-objets.html
Pour un fichier config, base toi là dessus :
Public Class Config Private Shared _Items As New Dictionary(Of String, String) Public Shared Function GetItem(ByVal Item As String) As String If _Items.ContainsKey(Item) Then Return _Items(Item) msgbox("Can't find item '" & Item & "' in configuration file", True) Return "" End Function Public Shared Sub LoadConfig() If Not IO.File.Exists("config.txt") Then msgbox("Can't find configuration file !", True) End If Try Dim Reader As New IO.StreamReader("config.txt") While Not Reader.EndOfStream Dim Line As String = Reader.ReadLine If Line.Trim.StartsWith("#") Then Continue While If Not Line.Contains("=") Then Continue While Dim LigneInfos() As String = Line.Split("=".ToCharArray, 2) Dim Item As String = LigneInfos(0).ToUpper.Trim Dim Value As String = LigneInfos(1).Trim If Item = "" Then Continue While _Items.Add(Item, Value) End While Catch ex As Exception msgbox("Can't read configuration file !", True) End Try End Sub End Class
Un simple flux stream pour enregistrer tes infos dedans, et le fichier est bien plus lisible.
J'espère t'avoir aidé :)