Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Eingabe von Zahlen in ein Textfeld
Autor: Andrew
Datum: 09.01.02 19:59
Der Code sieht so aus Private Sub euroanzeigen_KeyPress(KeyAscii As Integer) Dim intresponse1 As Integer Select Case KeyAscii Case 48 To 57, 60 To 69, 8, 44, 46: ' Durch die Select Case Fkt. sind hier nur die Nummerntasten' ' auswählbar.' If KeyAscii = 46 Then ' Der Punkt wird in ein Komma umgewandelt.' KeyAscii = 44 End If Case Else euroanzeigen.Text = Empty ' Falls andere Tasten gedrückt werden,werden die sofort gelöscht' KeyAscii = 8 End Select End Sub Private Sub Umrechnung_Click() 'Falls die erste Währung dem Euro entspricht,dann wird durch die If-Bedingung die' 'zweite Währung mit dem entsprechenden Umrechnungsfaktor bestimmt' 'und dann der errechnete Wert auf zwei Stellen hinter dem Komma gerundet im Labelfeld ausgegeben.' 'Sonst überprüft die Select Case Fkt.weitere mögliche Währungen.' Select Case ErsteWährung.Caption Case "Euro" If (ZweiteWährung.Caption = "DM") Then cur_Euro_betrag = euroanzeigen.Text cur_DM_betrag = cur_Euro_betrag * 1.95583 AnzeigeFremdwährung.Caption = Str(Round(cur_DM_betrag, 2)) Else: cur_Euro_betrag = euroanzeigen.Text cur_Dollar_betrag = cur_Euro_betrag * 0.9 AnzeigeFremdwährung.Caption = Str(Round(cur_Dollar_betrag, 2)) End If Case "DM" If (ZweiteWährung.Caption = "Euro") Then cur_DM_betrag = euroanzeigen.Text cur_Euro_betrag = cur_DM_betrag * 0.511292 AnzeigeFremdwährung.Caption = Str(Round(cur_Euro_betrag, 2)) Else: cur_DM_betrag = euroanzeigen.Text cur_Dollar_betrag = cur_DM_betrag / 2.2 AnzeigeFremdwährung.Caption = Str(Round(cur_Dollar_betrag, 2)) End If Case "Dollar" If (ZweiteWährung.Caption = "Euro") Then cur_Dollar_betrag = euroanzeigen.Text cur_Euro_betrag = cur_Dollar_betrag * 1.1 AnzeigeFremdwährung.Caption = Str(Round(cur_Euro_betrag, 2)) Else: cur_Dollar_betrag = euroanzeigen.Text cur_DM_betrag = cur_Dollar_betrag * 2.2 AnzeigeFremdwährung.Caption = Str(Round(cur_DM_betrag, 2)) End If End Select End Sub

Eingabe von Zahlen in ein Textfeld	53	Andrew	09.01.02 15:58
Re: Eingabe von Zahlen in ein Textfeld	271	Dieter	09.01.02 16:50
Re: Eingabe von Zahlen in ein Textfeld	35	Andrew	09.01.02 18:50
Re: Eingabe von Zahlen in ein Textfeld	250	Dieter	09.01.02 19:18
Re: Eingabe von Zahlen in ein Textfeld	36	Andrew	09.01.02 19:59
Zum Vergleich...	261	Dieter	09.01.02 21:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen