Le convertisseur euro de microsoft !!

Commenter

Contenu du snippet

- Un ctl TextBox nommé : txtSource
- Un ctl ComboBox nommé : cmbSource
- un ctl CommandButton nommé : btnConvert
- un ctl Label nommé : lblResult

'----------------------------------------------------

Source / Exemple : 


Option Explicit
'--------------

'Pour des informations sur les abbréviations... :
'http://www.visual-basic.it/uploads/articoli/tecnici/EuroConvert.htm
'-------------------------------------------------------------------
'MSOEURO.DLL = 36 kb ...(vaut mieux faire un createObject...)

Private msBeautiful As Variant
Private devises(3) As String
' ----

Private Sub btnConvert_Click()
    Set msBeautiful = CreateObject("MsoEuro.Converter")
    If txtSource = "" Then Exit Sub
    If cmbSource.ListIndex = -1 Then Exit Sub
    ' ----
    lblResult = msBeautiful.Convert _
    (CDbl(Replace(txtSource, ".", ",")), _
    devises(cmbSource.ListIndex), "EUR") & " ?"
    ' ----
End Sub

Private Sub Form_Load()
    
    devises(0) = "BEF": devises(1) = "BEF"
    devises(2) = "ESP": devises(3) = "FRF"
    ' ----
    cmbSource.AddItem "Francs Belge"
    cmbSource.AddItem "Francs luxembourgeois"
    cmbSource.AddItem "Pesetas Espagnol"
    cmbSource.AddItem "Francs français"
    'on peu en rajouter à foison PI l'inverse aussi !!
    ' ----
End Sub

Private Sub txtSource_KeyPress(KeyAscii As Integer)
    If KeyAscii = 46 Then KeyAscii = 44: Exit Sub
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Conclusion :


Je promet une chose :
Jamais plus je ne met une source à propos de l'euro sur vbfrance.com !!

@ vous lire , VIC

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 (VicoLaChips2)