Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 738 fois - Téléchargée 41 fois
Private Sub eur_Click() convEuro.BackColor = vbRed stranswer = InputBox("Quelle est la somme en euros?") If (stranswer > "0") Then MsgBox (stranswer * 6.55957) Else stranswer = InputBox("Entrez une valeur valide.") If (stranswer <= "0") Then MsgBox ("Entrez une valeur valide.") Else MsgBox (stranswer * 6.55957) End If End If End Sub Private Sub fr_Click() convEuro.BackColor = vbBlue stranswer = InputBox("Quelle est la somme en francs?") If (stranswer > "0") Then MsgBox (stranswer / 6.55957) Else stranswer = InputBox("Entrez une valeur valide.") If (stranswer <= "0") Then MsgBox ("Entrez une valeur valide.") Else MsgBox (stranswer / 6.55957) End If End If End Sub Private Sub quit_Click() End End Sub
11 avril 2002 à 15:24
serieux, essayez de faire marcher vos meninges... c vraiment lourd...
apres yen a ki se pleignent de se faire décendre avec les comm... fo pas chercher !
$hîv@n
11 avril 2002 à 12:24
A part cette remarque ( ma fois sans interet ), j'aurais aussi deux ou trois conseils, notamment remplacé tes inputbox par deux textbox
ensuite tu pourrais faire le convertissage ( chais pas si sa existe ce mot )
en temps réel
et enfin rajouter des command pour faire comme une calculette.
sa te permettrait de découvrir plus de fonction de VB et tu pourrais progresser
A+
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.