0/5 (11 avis)
Vue 4 822 fois - Téléchargée 216 fois
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
22 avril 2003 à 23:04
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...
27 févr. 2003 à 10:37
Bonne prgrammations les gars.
Golden-X
24 févr. 2003 à 14:55
"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 : >= 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.
23 févr. 2003 à 23:00
là est la faute.
scuse moi, je ne savais pas que tu n'étais pas francophone. Quel est ta langue maternelle ?
21 févr. 2003 à 15:37
if msg>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...
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.