WINCONVERT 1.1
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
1 déc. 2002 à 19:13
cs_erick13 Messages postés 11 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 12 septembre 2003 - 4 déc. 2002 à 16:29
cs_erick13 Messages postés 11 Date d'inscription vendredi 27 septembre 2002 Statut Membre Dernière intervention 12 septembre 2003 - 4 déc. 2002 à 16:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5243-winconvert-1-1
https://codes-sources.commentcamarche.net/source/5243-winconvert-1-1
4 déc. 2002 à 16:29
3 déc. 2002 à 00:24
2 déc. 2002 à 15:29
C'est pas mal mais utilise le focus pour convertir :
déclare une variable globale FocusOn as String qui prend le nom du TextBox qui a le Focus. Ex
Private Sub Text1_Change()
If FocusOn = "Text1" Then
Dim franc As Single
Dim euros As Single
euros = 6.55957
franc = Val(Text1.Text)
Text2.Text = franc * euros
End Sub
Private Sub Text2_Change()
If FocusOn = "Text2" Then
Dim franc As Single
Dim euros As Single
euros = 6.55957
franc = Val(Text2.Text)
Text1.Text = franc * euros
End Sub
Private Sub Text1_GotFocus
FocusOn = "Text1"
End Sub
etc..
1 déc. 2002 à 20:07
1 déc. 2002 à 19:35
1 déc. 2002 à 19:13
...
et ça sert à quoi ?
ça convertit quoi ? dis-nous en un peu plus ...