Répértoire téléphonique modifiable à partir de l'executable

Soyez le premier à donner votre avis sur cette source.

Vue 4 855 fois - Téléchargée 579 fois

Description

Bon ce code donne un petit répértoire téléphonique auquel on peut ajouter des N° pendant l'execution. Les N° sont stockés dans un fichier .txt.
Dans une ListBox sont affichés les noms, et puis dans un label est affiché le N° correspondant au nom choisi. Il y a une fonction permettant de copier dans le presse-papier le N° choisi.
Il n'y a qu'a mettre à l'endroit correspondant le chemin du fichier .txt.

Source / Exemple :


Dim int_numéro_fichier As Long, i As Long, numero(100) As String, nbrtel As Boolean, numerotel As Boolean, nbr_numero As Long, chemin_du_fichier As String

Private Sub copier_Click()  'On copie le texte dans le presse-papier :
Clipboard.Clear             'On efface le presse-papier
Clipboard.SetText (numtel.Caption)  'Puis on met le N° de téléphone
End Sub

Private Sub Form_Load()
chemin_du_fichier ' = mettre ici le chemin du fichier .txt
nbrtel = False  'On initialise quelques variables
nbr_numero = 0
numerotel = False
int_numéro_fichier = FreeFile   'On definit un numéro de fichier libre

Open chemin_du_fichier For Input As #int_numéro_fichier    'Ouvre le fichier
    While Not EOF(int_numéro_fichier)   'EOF : indique qd on est a la fin d'un fichier
        Line Input #int_numéro_fichier, str_temporaire                'on lit chaque ligne et on le met ds str_temporaire
            If nbrtel = True Then   'Si juste avant il y avait "####" alors...
                nom.AddItem (str_temporaire)    'On ajoute le onm à la liste
                numerotel = True    'Et comme sa on reconnait que sa vient juste de passer
                nbr_numero = nbr_numero + 1
            Else    'par contre si il n'y avait pas "####" juste avant...
                If numerotel = True Then    'mais qu'on venait d'ajouter le nom à la liste
                    numero(nbr_numero) = str_temporaire 'On ajoute donc le N° de téléphone a la variable correspondante
                    numerotel = False   'Et on fait sa comme sa on ne le fera pas 2 fois de suite!
                End If
            End If
            If str_temporaire = "####" Then nbrtel = True Else nbrtel = False 'Comme sa on peut reconnaitre si le caractère vient juste de passer
    Wend
Close #int_numéro_fichier   'On ferme le fichier

End Sub

Private Sub Form_Unload(Cancel As Integer)  'On sauvegarde quand la feuille se ferme

int_numéro_fichier = FreeFile   'on définit un numéro de fichier libre

Open chemin_du_fichier For Output As #int_numéro_fichier   'On ouvre le fichier
    For i = 1 To nom.ListCount  'On fait la boucle en fonction du nbr d'objets dans la liste
       Print #int_numéro_fichier, "####" & vbCrLf & nom.List(i - 1) & vbCrLf & numero(i)    'Et on écrit dans le .txt
    Next
Close #int_numéro_fichier    'On ferme le fichier

End Sub

Private Sub nom_Click()
numtel.Caption = numero(nom.ListIndex + 1) 'On met le N° de T° etant le numéro correspondant au nom choisi
End Sub

Private Sub rajtel_Click()  'Quand on veut rajouter un N°...

Do
    message_nom = InputBox("Entrez le nom de la personne.", "Nom")  'On fait une boucle pour que l'utilisater marque qq chose
Loop Until message_nom <> ""

Do
    message_numero = InputBox("Entrez le N° de téléphone de la personne", "N° tel")   'Pareil
Loop Until message_numero <> ""

nom.AddItem (message_nom)   'On inscrit les nom et les N°
numero(nom.ListCount) = message_numero

End Sub

Private Sub supprimer_Click()   'Pour supprimer, on verifie que l'utilisateur a bien selectionné qq chose (sinon message d'erreur) et on efface
    If nom.Text <> "" Then
        message_ok = MsgBox("Voulez-vous vraiment supprimer le N°?", vbYesNo, "Etes-vous sûr?")
        If message_ok = vbYes Then nom.RemoveItem (nom.ListIndex)   'On demande une confirmation
    Else
        MsgBox "Veuillez selectionner l'element à supprimer.", vbOKOnly, "Erreur!"
    End If
End Sub

Conclusion :


Je vais essayer d'ajouter d'autres fonctions a ce repertoire téléphonique. Mais je ne sais pas dans combien de temps ;-) !
N'hésitez pas pour les notes et les commentaires :-) !
Aller @+
Antitrust

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
47
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2005

Je trouve que ton code est interessant en vb
Par contre en vba (en ce qui concerne la commande copier) j'ai utilisé
le code suivant et ça marche:

Private Sub copier_Click() 'On copie le texte dans le presse-papier :

Dim displayText As String
displayText = label.Caption

SetClipboardText (displayText)
MsgBox "Le texte est copié dans le presse-papiers."

End Sub


Mais quand je vérifie sur mon text.txt si les numero de tel et noms sont saisis, il n'ya rien de copié

T'as une astuce pour ce pblm?

Merci

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.