Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textfeld "" mein Code
Autor: Reinhold
Datum: 12.11.01 22:26
Hallo Dieter, anbei mein, für einen Profi wie Dich wahrscheinlich, "trauriger" Code: Was hab ich falsch gemacht ? Danke !!! - Reinhold Const KW As Double = 1.36 Dim KWErg As Double Dim PSErg As Double Private Sub Command1_Click() txtPS = "" txtKW = "" txtPS.SetFocus End Sub Private Sub txtKW_GotFocus() txtKW.BackColor = &HFFFF& End Sub Private Sub txtKW_LostFocus() KW_PS txtKW.BackColor = &H80000005 End Sub Private Sub txtPS_GotFocus() txtPS.BackColor = &HFFFF& End Sub Private Sub txtPS_LostFocus() PS_KW txtPS.BackColor = &H80000005 End Sub Private Sub txtPS_Click() txtPS = "" txtKW = "" End Sub Private Sub txtKW_Click() txtPS = "" txtKW = "" End Sub Private Sub PS_KW() KWErg = Round((Val(txtPS) * KW), 0) txtKW = KWErg End Sub Private Sub KW_PS() PSErg = Round((Val(txtKW) / KW), 0) txtPS = PSErg End Sub ' Tasten txtPS Private Sub txtPS_KeyPress(KeyAscii As Integer) Select Case KeyAscii ' zulässige Tasten: 0-9, Punkt, Space und Backspace Case 48 To 57, 8, 32, 46 ' Komma automatisch in Punkt umwandeln Case 44 KeyAscii = 46 ' Alle anderen Tasten ignorieren Case Else KeyAscii = 0 End Select End Sub ' Tasten txtkw Private Sub txtKW_KeyPress(KeyAscii As Integer) Select Case KeyAscii ' zulässige Tasten: 0-9, Punkt, Space und Backspace Case 48 To 57, 8, 32, 46 ' Komma automatisch in Punkt umwandeln Case 44 KeyAscii = 46 ' Alle anderen Tasten ignorieren Case Else KeyAscii = 0 End Select End Sub

Variable löschen, Textfeld absolut	101	Reinhold	12.11.01 22:15
Re: Variable löschen, Textfeld absolut	424	Dieter	12.11.01 22:17
Re: Textfeld "" mein Code	87	Reinhold	12.11.01 22:26
Re: HALT!!! Jetzt geht's ?!	107	Reinhold	12.11.01 22:31

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