Agenda téléphonique

Bonjour,

Je vous propose un nouvel élément à utiliser : Agenda téléphonique





Cliquer sur le boutton nouvelle entrée est cliquer sur valider le nouveau contact pour l'enrregistrer.

Vous pouvez imprimer la liste des contacts.

Dans la liste des contacts quand vous cliquer sur une ligne,vous passer à la composition agenda,

est vous pouvez modifier le contact, le supprimer,vous avez également un nouveau boutton qui et apparu pour aller à l'onglet enveloppe.

Dans l'onglet enveloppe chosissez un contact qui sera mis automatique avec la taille d'ecriture à 14 par défaut sur l'enveloppe,

est choisissez le format de l'enveloppe.



Ps: la source de cet application m'appartient je vous la met à disposition gracieusement.



Qu'en pensez-vous ?

Ce serait bien de corriger les fautes d'orthographe dans le texte de présentation de l'outil gratuit

Moi, je voulais juste savoir où est la Base De Données

Bonjour

P.S. Ce message est uniquement constructif.

Votre code serais à revoir car il est beaucoup trop long pour rien et plusieurs ligne de code ce répète souvent alors il serais bien dans faire une fonction et d'appeler celle-ci afin d'en alléger le code et par le fait même augmenter la rapidité d'exécution de l'application.
De plus le .NET Framework a été coder orienté objet alors pourquoi ne pas bien l'utiliser.
Et aussi prière de vérifier vos fautes d'orthographes, il y en a plusieurs.
Exemple de mon code et du votre:

Mon code:*****************************************************************************************

Private Sub RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles RadioButton11.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
Dim rbSelected As RadioButton = CType(sender, RadioButton)
If rbSelected.Name <> "" Then
TextBoxSexe.Text = rbSelected.Text
End If
End Sub

Votre code:*****************************************************************************************

Private Sub RadioButtonMr_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
Dim sex As String
If RadioButton11.Checked = True Then
RadioButton2.Checked = False
RadioButton3.Checked = False
sex = "Mr"
TextBoxSexe.Text = sex
End If
End Sub

Private Sub RadioButtonMme_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Dim sex As String
If RadioButton2.Checked = True Then
RadioButton11.Checked = False
RadioButton3.Checked = False
sex = "Mme"
TextBoxSexe.Text = sex
End If
End Sub

Private Sub RadioButtonMlle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Dim sex As String
If RadioButton3.Checked = True Then
sex = "Mlle"
RadioButton11.Checked = False
RadioButton2.Checked = False
TextBoxSexe.Text = sex
End If
End Sub

Citation:

---

Envoyé par Micke_666

Moi, je voulais juste savoir où est la Base De Données

---

Il n'y as pas de base de données, les infos sont enregistrés dans un fichier texte nommé agenda.txt