begin process at 2012 02 16 03:21:10
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Message Box

 > ASTUCE POUR DÉBUTANTS ? GÉRER LE PLURIEL DANS LES MESSAGES (EVITER « VOUS ALLEZ SUPPRIMER 1 MESSAGE(S) ») :)

ASTUCE POUR DÉBUTANTS ? GÉRER LE PLURIEL DANS LES MESSAGES (EVITER « VOUS ALLEZ SUPPRIMER 1 MESSAGE(S) ») :)


 Information sur la source

Note :
Aucune note
Catégorie :Message Box Niveau :Débutant Date de création :11/02/2003 Date de mise à jour :25/02/2003 12:10:33 Vu / téléchargé :3 637 / 128
Auteur : Appil

Ecrire un message privé
Site perso
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Tout est dit dans le titre de la source
Je voulais partager avec vous une technique que j'utilise toujours dans ces cas ...      

Source

  • Option Explicit
  • Private Sub cmdGénerer_Click()
  • ' Là j'ai pris un exemlpe, qui s'exécute
  • ' avant une procédure de suppression.
  • ' En utilisant la fonction iif, la procédure ajoute
  • ' "message" avec ou sans "s" selon la valeur de la zone
  • ' de texte ..
  • If Val(txtNbre) > 0 Then
  • MsgBox "Vous aller supprimer " & txtNbre & IIf(Val(txtNbre) = 1, " message", " messages") & " !", vbInformation + vbOKCancel
  • End If
  • ' Pour plus de détailles sur iif, consulter l'aide en ligne.
  • End Sub
  • Private Sub Command1_Click()
  • End
  • End Sub
  • Private Sub txtNbre_KeyPress(KeyAscii As Integer)
  • ' Limiter les caractères saisies au chiffres seulement
  • If (KeyAscii < 49 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
  • KeyAscii = 0
  • End If
  • If KeyAscii = 13 Then cmdGénerer_Click
  • End Sub
  • ' Golden-X 
Option Explicit

Private Sub cmdGénerer_Click()
' Là j'ai pris un exemlpe, qui s'exécute
' avant une procédure de suppression.

' En utilisant la fonction iif, la procédure ajoute
' "message" avec ou sans "s" selon la valeur de la zone
' de texte ..

If Val(txtNbre) > 0 Then
    MsgBox "Vous aller supprimer " & txtNbre & IIf(Val(txtNbre) = 1, " message", " messages") & " !", vbInformation + vbOKCancel
End If
' Pour plus de détailles sur iif, consulter l'aide en ligne.
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub txtNbre_KeyPress(KeyAscii As Integer)
' Limiter les caractères saisies au chiffres seulement
If (KeyAscii < 49 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
    KeyAscii = 0
End If
If KeyAscii = 13 Then cmdGénerer_Click
End Sub


' Golden-X

 Conclusion

J'ai bien dit que c'est pour les débutants ;-)

Bonne prog

A+

Golden-X      

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture Source .NET (Dotnet) LECTEUR DE PENSÉE .NET
Source avec Zip Source avec une capture ASTUCE POUR DÉBUTANTS : VIDER LA PROPRIÉTÉ TEXT D'UNE COMBOB...
ASTUCE : COMMENT DEMANDER LA CONIRMATION DE FERMETURE D'UN F...
Source avec Zip Source avec une capture COULEURS PROG
Source avec Zip Source avec une capture RÉSISTANCE PROG
Toutes les sources de Appil

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) LOGICIEL DE MÉMO (POST-IT) par VBmasterX
Source avec Zip MESSAGE AUTO (MSG_AUTO) par omega8
Source avec Zip Source avec une capture MSG GENERATOR V 1.0 par ThePH267
Source avec Zip Source avec une capture [VB6] TOUT SAVOIR SUR LA POSITION ET LES DIMENTIONS DE LA BA... par lermite222
Source avec Zip Source avec une capture Source .NET (Dotnet) MESSAGE BOX A CHOIX MULTIPLE par mafieulemouton
Toutes les sources de la catégorie Message Box

Commentaires et avis

Commentaire de Ktb le 11/02/2003 14:54:18

Je craignais le pire en ouvrant le zip et j'ai pas été déçu ! On peut pas dire que le code soit trop compliqué même pour des débutants ! Enfin bon, peut-être que certains n'y avait pas pensé !

Commentaire de Kirua le 12/02/2003 07:45:27

t'es un drôle. tu veux éviter la faute d'ortho au pluriel, mais tu mets quand même à plusieurs reprise (titre et source) vous alleR ..... c grave non ? à 23 ans ...

Commentaire de Benouille le 12/02/2003 10:11:12

c'est une bonne idée, moi j'aurais externalisé ça dans une tite fonction pour moins alourdir le texte genre

function _s (NbOccur as int) as string
' rajoute un s à la fin d'un mots
   _s=iif (NbOccur&gt;1, "s",empty)
end function

bon j'ouvre pas le zip (y a quoi de plus?) je pense qu'on a fait le tour la non?

Benouille
ps: le s à la fin de mots dans le comment est volontaire: blagouille

Commentaire de rene38 le 12/02/2003 17:39:46

Pour Benouille :
Bonjour.
Essaie
MsgBox "J'ai acheté 3 chou" & _s(3)
Print "Ils sont dans ma deux cheval" & _s(2)

Commentaire de Appil le 13/02/2003 13:16:36

* Pour Kirua :
Je ne vois pas de fautes d'ortho dans le titre et la source et si il y en a,
c'est "normal" car le français n'est ma langue maternelle. Je te défie d'apprendre
ma langue à moi et d'en écrire sans fautes :) (c'est une blague)

* Bonne idée Benouille et bonne remarque rene38 ;)

Merci pour vos commentaires les gars.

A +
Golden-X

Commentaire de revo le 13/02/2003 19:24:20

Mais non l'idée est bonne et astucieuse c bien!

Commentaire de yoman64 le 21/02/2003 15:37:45

Ouais ben la c l'équivalent de

if msg&gt;1 then msgbox "vous avez " & msg & "nouveaux messages" :else: msgbox "vous avez " & msg & "nouveau message"

if,c'est plus facile a comprendre que iif pour les newbies...

Commentaire de Kirua le 23/02/2003 23:00:36

" EVITER « VOUS ALLER SUPPRIMER 1 MESSAGE(S) »)  "

là est la faute.

scuse moi, je ne savais pas que tu n'étais pas francophone. Quel est ta langue maternelle ?

Commentaire de Appil le 24/02/2003 14:55:39

Pour Kirua :
"EVITER « VOUS ALLER SUPPRIMER 1 MESSAGE(S) »" n'est pas une faute :) j'explique :
» Avant, pour ne pas se casser la tête avec le pluriel, je code comme suit :
MsgBox "Vous allez supprimer " & nbr & " message(s)"
quelque soit la valeur de nbr : &gt;= 1 .. et c'est le cas de la plupart des programmeur et même les Webmasters .. regardes un peu sur vbfrance :
      0 message(s) en attente
      4 source(s)
      62 message(s) dans le forum
      0 news sur CodeS-SourceS
ce que je trouve moche ... alors j'ai écris ce programme pour eviter ça .. voilà
J'espère que c'est clair maintenant.
A + et bonne programmtion.

Commentaire de Appil le 27/02/2003 10:37:25

Voilà, l?orthgaffe est corrigée ..
Bonne prgrammations les gars.

Golden-X

Commentaire de Kirua le 22/04/2003 23:04:07

pas grave tt ça
mais plutôt, à propos de la remarque que tu faisais que bcp de webmasters et programmeurs n'utilisaient pas cette possibilité pourtant enfantine, c'est probablement tt simplement pr des raisons de ressoures. ça fait tjs des calculs en moins, et s'il y en a bcp...

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo Iguassu Falls is the largest series of waterfalls on the planet, 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,866 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)