Public Class Form1
 
   Private Sub txtEingabe_TextChanged(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles txtEingabe.TextChanged
 
   End Sub
 
   Private Sub btnUmwandeln_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnUmwandeln.Click
      Dim zahl As Double = -1
      zahl = CDbl(txtEingabe.Text)
      zahl = zahl * 1.8 + 32
      MessageBox.Show(txtEingabe.Text & " Grad Celsius sind gleich " & zahl & "" & _
        "Fahrenheit.")
   End Sub
   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.KeyPressEventArgs) Handles txtEingabe.KeyPress
 
      Select Case Asc(e.KeyChar)
         Case 48 To 57, 8, 32, 46
 
         Case Else
            e.Handled = True
      End Select
   End Sub
End Class

------------------------------------------------------------------------------------

So sechs wie wir f?nf gibt es keine vier, wir drei sind die zwei Einzigen!

------------------------------------------------------------------------------------

Beitrag wurde zuletzt am 26.02.10 um 13:00:08 editiert.