Public Structure Personne <VBFixedString(20)> Dim Nom As String <VBFixedString(20)> Dim prenom As String <VBFixedString(20)> Dim age As String <VBFixedString(2)> Dim newligne As String End Structure
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Structure Adresse <VBFixedString(20)> Dim Nom As String <VBFixedString(20)> Dim Rue As String <VBFixedString(20)> Dim Ville As String <VBFixedString(1)> Dim newligne As String End Structure Public Const cn As String = vbCrLf
Private Sub premier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles premier.Click RecLength = Len(Personne) FileNum = FreeFile() FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength) Personne.Nom = nom.Text Personne.prenom= prenom.Text Personne.age= age.Text Personne.newligne= cn 'la nouvelle instruction pour passer à la ligne FilePut(FileNum, Personne) nom.Text = "" prenom.Text = "" age.Text = "" FileClose(FileNum) Private Sub prochainenregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prochainenregistrement.Click RecLength = Len(Personne) FileNum = FreeFile() FileOpen(FileNum, "D:\page.txt", OpenMode.Random, , , RecLength) last = FileLen("D:\page.txt") / RecLength Personne.Nom = nom.Text Personne.prenom= prenom.Text Personne.age= age.Text FilePut(FileNum, Personne, last + 1) nom.Text = "" prenom.Text = "" age.Text = "" FileClose(FileNum) End Sub
Public Structure Adresse <VBFixedString(20)> Dim Nom As String <VBFixedString(20)> Dim prenom As String <VBFixedString(20)> Dim age As String <VBFixedString(1)> Dim newligne As String End Structure
Public Structure Personne <VBFixedString(20)> Dim Nom As String <VBFixedString(20)> Dim prenom As String <VBFixedString(20)> Dim age As String <VBFixedString(1)> Dim newligne As String End Structure