CONVERTISSEUR ¤URO (POUR FAIRE PLAISIR A KELK'UN)

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