TextBox Output

TextBox Output, ElseIf
Aufgabe: Die Hintergrundfarbe eines Textfeldes soll bei einem Inhalt (Zahl) größer als 5 von weiß in grün, bei mehr als 10 in blau, bei mehr als 100 in rot übergehen, wobei die Schriftgröße von 8 über 10 auf 12 nach 14 zunehmen soll.
Andere Lösung:
Private Sub txtInput_Change1() Private Sub txtInput_Change2()
Dim zahl%
With txtInput With txtInput
zahl = Val(.Text)
If zahl <= 5 Then If Val(.Text) > 100 Then
.BackColor = RGB(255, 255, 255) .BackColor = RGB(255, 0, 0)
.FontSize = 8 .FontSize = 14
End If
If zahl > 5 And zahl <= 10 Then ElseIf Val(.Text) > 10 Then
.BackColor = RGB(0, 255, 0) .BackColor = RGB(0, 0, 255)
.FontSize = 10 .FontSize = 12
End If
If zahl > 10 And zahl <= 100 Then ElseIf Val(.Text) > 5 Then
.BackColor = RGB(0, 0, 255) .BackColor = RGB(0, 255, 0)
.FontSize = 12 .FontSize = 10
End If
If zahl > 100 Then Else
.BackColor = RGB(255, 0, 0) .BackColor = RGB(255, 255, 255)
.FontSize = 14 .FontSize = 8
End If End If
End With End With
End Sub End Sub

TextBox Output

Mehr Tipps: Click-Event

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.