[VB.net] code pour ajouter nouveau contact

Fermé
young style Messages postés 223 Date d'inscription jeudi 12 avril 2007 Statut Membre Dernière intervention 13 mai 2010 - 27 juin 2009 à 13:43
young style Messages postés 223 Date d'inscription jeudi 12 avril 2007 Statut Membre Dernière intervention 13 mai 2010 - 9 juil. 2009 à 13:47
Bonjour,
mon programme est un répertoire des contacts tél.
J'ai un problème avec le code que j'utilise pour ajouter un nouveau contact au niveau de FilePut(i, co, k)

Pour voir l'interface de quoi il s'agit : https://i80.servimg.com/u/f80/11/70/06/47/11110.jpg

Voilà le code (bouton ajouter)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Bouton: valider l'ajout
Dim k As Integer = 1, nb As Integer
trouve = False
FileOpen(1, "C:\contacts.dat", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, Len(co))
nb = LOF(1) / Len(co)
While Not EOF(1) And trouve = False
FileGet(1, co, k)
If Trim(co.nom) = Trim(TextBox1.Text) Then
trouve = True
Exit While
Else
k += 1
End If
End While
If trouve = True Then
MsgBox(" existe déja")
Else
k = k + 1
co.nom = TextBox1.Text
co.num_gsm = TextBox2.Text
co.num_dom = TextBox3.Text
co.num_bur = TextBox4.Text
co.mail = TextBox5.Text
co.com = TextBox6.Text
FilePut(1, co, k)
MsgBox(" stocké avec seccus")
End If
FileClose(1)

End Sub



et pour les structures je l'ai enregistré dans un module :

Module Module1
Public Structure contact
<VBFixedString(30)> Public nom As String
<VBFixedString(30)> Public num_gsm As String
<VBFixedString(30)> Public num_dom As String
<VBFixedString(30)> Public num_bur As String
<VBFixedString(100)> Public mail As String
Public com As String
End Structure
Public co As contact
Public trouve As Boolean
Public n As Integer
Public x As String
End Module


A voir également:

2 réponses

young style Messages postés 223 Date d'inscription jeudi 12 avril 2007 Statut Membre Dernière intervention 13 mai 2010 57
27 juin 2009 à 16:56
Donc je rencontre le problème à cette ligne où il bug : FilePut(i, co, k)

mais quand je vérifie le fichier les données s'ajoute bien.

c'est bizzare, non ?

Merci pour votre aide d'avance :)
0
young style Messages postés 223 Date d'inscription jeudi 12 avril 2007 Statut Membre Dernière intervention 13 mai 2010 57
9 juil. 2009 à 13:47
Up !!
0