Sauvegarder quelque chose avec plusieurs extension en une fois (utile quand il y a plusieurs éléments différents et que quan

Commenter

Contenu du snippet

En fait j'ai rencontrer un pb l'autre fois j'ai voulu sauvegarder une Listview, une structure, 1 textbox à l'aide de OpenFileDialog et en fait rien que quand j'ai restaurer ma ListView à l'aide de la réponse sur le forum (http://www.vbfrance.com/forum.v2.aspx?ID=231728) et bah en fait ca me restaurer ds ma Listview L'equivalent de la sauvegarde de la TextBox (Je sais pô si vs piger)lolllllll Compliké à expliquer!!!!!!!

Dc en fait j'ai du me servir de deux extensions (Hor & HorTemp) en un clic sur sur le bouton enregistrer Bref ca aussi compliké à expliquer Il vaut mieu regarder le le code vs comprendrez mieu

Source / Exemple : 


' Pour ENREGISTRER
 Dim retour As Integer
        Retour = SaveFileDialog_ListView.ShowDialog()
        If Retour = 1 Then

' Met en mémoir la structure
            With ObjTotal
                .StructureConversionMinute = Label_MinutesConverti.Text
                .StructureTotalHeure = Label_TotalHeure.Text
                .StructureTotalMinute = Label_TotalMinute.Text
            End With

' Sauvegarde la Listview ds la variable "Save_Listview"
            Dim i As Integer
            Dim Save_Listview as string
            Save_Listview = "" ' On réinitialise la variable
            For i = 0 To ListView.Items.Count - 1
                Save_Listview = Save_Listview & ListView.Items(i).SubItems(0).Text & "|" & ListView.Items(i).SubItems(1).Text & "|" & ListView.Items(i).SubItems(2).Text & "|" & ListView.Items(i).SubItems(3).Text & "|" & ListView.Items(i).SubItems(4).Text & vbCrLf
            Next i

' Maintenant on sauvegarde le premier fichier
           FileOpen(1, SaveFileDialog.FileName, OpenMode.Binary)  
          FilePut(1, Save_Listview)
FileClose(1)

' Maintenant on créer Une TextBox invisible
            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = SaveFileDialog.FileName & "Temps"

'Sauvegarde le deuxième fichier
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FilePut(1, ObjTotal)
            FileClose(1)

'Et pour l'ouvrir
Dim Retour as integer
Retour = OpenFiledialog.ShowDialog()
        If Retour = 1 Then
'On ouvre le premier fichier
            FileOpen(1, OpenFiledialog.FileName, OpenMode.Binary) 
            FileClose(1)

            TextBox_NewExtension.Text = ""
            TextBox_NewExtension.Text = OpenFiledialog.FileName & "Temps"

'On ouvre le deuxième
            FileOpen(1, TextBox_NewExtension.Text, OpenMode.Binary)
            FileGet(1, ObjTotal)   
         FileClose(1)

'recharge la ListView
            Dim LVI As ListViewItem 'Variable qui ajouter ou retire les éléments de la Listview
            Dim val() As String
            Dim fs As New IO.FileStream OpenFiledialog.FileName,IO.FileMode.Open)
            Dim str As New IO.StreamReader(fs)
            Dim i As Integer
            Do Until str.Peek = -1
                val = str.ReadLine.Split("|")
                LVI = ListView.Items.Add(val(0))
                For i = 1 To val.Length - 1
                    LVI.SubItems.Add(val(i))
                Next  
            Loop
            str.Close()
            fs.Close()

'Recharge la structure
            Label_MinutesConverti.Text = ObjTotal.StructureConversionMinute
            Label_TotalHeure.Text = ObjTotal.StructureTotalHeure
            Label_TotalMinute.Text = ObjTotal.StructureTotalMinute

Conclusion :


Cependant si vs avez de meilleurs propositions je suis preneur

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ludovicanceaux)