Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 882 fois - Téléchargée 28 fois
' 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
Parcontre mon plus gros probleme c'est :
Ce que je veu faire c'est que lorsque je quitte le programme et que je le relance un peu plus tard, il me garde tout tel que cété :COMMENT FAIRE.
Parcontre vous pouvez me donner des exemple svp je debute... Au fait je suis en vb.net..... Merci beaucoup
J'ai 2 RichTextBox ou je met des commentaire different dans chacun d'eux... et le probleme c'est que je doit ensuite en cilquant sur un bouton Save enregistrer ces commentaire ( sachant qu'il sont independant c'esta dire qu'il n'y a pas marqué la meme chose ) et pouvoir les charger ensuite pour qu'il se place dans leur case correspondante... Est ce que vous pourrier m'aider svp a trouver un moyen d'enregistrer et de charger.... Merci d'avance.
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.