<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  euroanzeigen_KeyPress(KeyAscii <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=#000099>Dim</font> intresponse1 <font color=#000099>As</font> _
  <font color=#000099>Integer</font>
 
  <font color=#000099>Select</font> <font color=#000099>Case</font> KeyAscii
    <font color=#000099>Case</font> 48 <font color=#000099>To</font> 57, 8, 32, _
      44, 46
      <font color=green>' Nur Zahlen, Backspace, Space, Komma und Punkt</font>
      <font color=green>' Punkt wird zu Komma</font>
      <font color=#000099>If</font> KeyAscii = 46 <font _
        color=#000099>Then</font> KeyAscii = 44
 
      <font color=green>' nur ein Komma zulässig</font>
      <font color=#000099>If</font> InStr(euroanzeigen.Text, ",") > 0 <font _
        color=#000099>And</font> KeyAscii = 44 <font color=#000099>Then</font>
        KeyAscii = 0
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> <font color=#000099>Else</font>
      <font color=green>' alle anderen Tasten (Zeichen) werden ignoriert</font>
      KeyAscii = 0
  <font color=#000099>End</font> <font color=#000099>Select</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  umrechnen_Click()
  <font color=green>' Falls die erste Währung dem Euro entspricht,</font>
  <font color=green>' dann wird durch die If-Bedingung die zweite Währung</font>
  <font color=green>' mit dem entsprechenden Umrechnungsfaktor bestimmt</font>
  <font color=green>' und dann der errechnete Wert auf zwei Stellen</font>
  <font color=green>' hinter dem Komma gerundet im Labelfeld ausgegeben.</font>
  '
  <font color=green>' Sonst überprüft die Select Case Fkt.weitere 
  ' mögliche</font>
  <font color=green>' Währungen.</font>
 
  <font color=#000099>Dim</font> cur_Euro_betrag <font color=#000099>As</font> _
    Currency
  <font color=#000099>Dim</font> cur_DM_betrag <font color=#000099>As</font> _
  Currency
  <font color=#000099>Dim</font> cur_Dollar_betrag <font _
  color=#000099>As</font> Currency
 
  <font color=#000099>Select</font> <font color=#000099>Case</font> _
    ErsteWährung.Caption
    <font color=#000099>Case</font> "Euro"
      <font color=#000099>If</font> (ZweiteWährung.Caption = "DM") <font _
        color=#000099>Then</font>
        cur_Euro_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_DM_betrag = cur_Euro_betrag * 1.95583
        AnzeigeFremdwährung.Caption = Str(Round(cur_DM_betrag, 2))
 
      <font color=#000099>Else</font>
        cur_Euro_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_Dollar_betrag = cur_Euro_betrag * 0.9
        AnzeigeFremdwährung.Caption = Str(Round(cur_Dollar_betrag, 2))
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> "DM"
      <font color=#000099>If</font> (ZweiteWährung.Caption = "Euro") <font _
        color=#000099>Then</font>
        cur_DM_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_Euro_betrag = cur_DM_betrag * 0.511292
        AnzeigeFremdwährung.Caption = Str(Round(cur_Euro_betrag, 2))
      <font color=#000099>Else</font>
        cur_DM_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_Dollar_betrag = cur_DM_betrag / 2.2
        AnzeigeFremdwährung.Caption = Str(Round(cur_Dollar_betrag, 2))
      <font color=#000099>End</font> <font color=#000099>If</font>
 
    <font color=#000099>Case</font> "Dollar"
      <font color=#000099>If</font> (ZweiteWährung.Caption = "Euro") <font _
        color=#000099>Then</font>
        cur_Dollar_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_Euro_betrag = cur_Dollar_betrag * 1.1
        AnzeigeFremdwährung.Caption = Str(Round(cur_Euro_betrag, 2))
      <font color=#000099>Else</font>
        cur_Dollar_betrag = <font color=#000099>CCur</font>(euroanzeigen.Text)
        cur_DM_betrag = cur_Dollar_betrag * 2.2
        AnzeigeFremdwährung.Caption = Str(Round(cur_DM_betrag, 2))
      <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>Select</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>