BEF en Euro: code

• We gaan converteren als de gebruiker op enter drukt.
  Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 And IsNumeric(Text1.Text) Then converteer
  End Sub
  Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 And IsNumeric(Text2.Text) Then converteer
  End Sub
• Het converteren zelf doen we in een procedure. Op die manier moeten we de code slechts één keer schrijven en ook slechts één keer corrigeren.
  Sub converteer()
  If Option1.Value = True Then 'BEF -> XEU
  Text2.Text = Text1.Text / 40.3399
  End If
  If Option2.Value = True Then 'XEU -> BEF
  Text1.Text = Text2.Text * 40.3399
  End If
  End Sub

[VB Web] - [hlrnet] - [copyright]