Convertisseur €uro (pour faire plaisir a kelk'un)

Télécharger le projet
Commenter

Description

Command1 : Bouton Quitter;
Command2 : Bouton Copier la valeur en Francs dans le presse papier;
Command3 : Bouton Copier la valeur en €uro dans le presse papier;
Text1 : Boite de texte en Francs
Text2 : Boite de texte en €uros

Source / Exemple : 


Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text & " FF"
End Sub

Private Sub Command3_Click()
Clipboard.Clear
Clipboard.SetText Text2.Text & " €"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

Private Sub Text1_GotFocus()
If Len(Text1.Text) <> 0 Then
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End If
End Sub

Private Sub Text2_GotFocus()
If Len(Text2.Text) <> 0 Then
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next 'au cas ou c'est pas une valeur numérique
Text2.Text = Val(Text1.Text & Chr(KeyAscii)) * 6.55957
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next 'au cas ou c'est pas une valeur numérique
Text1.Text = Val(Text2.Text & Chr(KeyAscii)) / 6.55957
End Sub

Conclusion :


Voilà grâce à ce SUPER CONVERTISSEUR ULTRA INNOVANT vous pouvez convertir les Francs en €uro et vice versa. Vous pouvez quitter en appuyant sur Echap.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_config)