WINCONVERT 1.1

Commentaire de erick13 le 01/12/2002 19:35:23

ca converti franc euro simplement etr bettement

Commentaire de moustachu le 02/12/2002 15:29:00

Les francs ? C'est quoi ? ;)
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..