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
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.