Téléchargé 41 fois
Vote des utilisateurs
0 
0
Détails
Licence : Gratuit pour usage non commercial
Mise en ligne le 6 août 2012
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Agenda téléphonique
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.
Ouvrir le fichier avec Winrar est décompresser le
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
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
Envoyé par Micke_666
Moi, je voulais juste savoir où est la Base De Données
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
