[VisualBasic] Werte vergleichen? Wie?

L. Zorro · 12. September 2006

Werte vergleichen? Wie?

Tach auch,
ich würde gerne wissen wie ich Werte aus Textboxen miteinander vergleichen kann und z.B den höchsten der 5 Werte grün färbe. Wie könnte ich das am besten machen?

die Zitate sollen mal die Textboxen darstellen:

so und nun nach nem Klick auf ein Button soll er den höchsten Wert grün machen, also:

kann mir einer helfen?

Anzeige

Figger · 12. September 2006

AW: Werte vergleichen? Wie?

Code:

Private Sub Command1_Click()
Dim txtBox As TextBox
Dim hoechsteZahl As Integer
hoechsteZahl = 0
On Error Resume Next

'hoechste Zahl ermitteln
For Each txtBox In Controls
 If Int(txtBox.Text) > hoechsteZahl Then
 hoechsteZahl = Int(txtBox.Text)
 End If
Next txtBox

'und dalle Felder die diese Zahl enthalten hervorheben
For Each txtBox In Controls
 If Int(txtBox.Text) = hoechsteZahl Then
 txtBox.BackColor = &HC0FFC0
 End If
Next txtBox
End Sub

Geht mit beliebig vielen Textboxen, ist auch egal wie du die nennst...

Gruß,
Figger

//EDIT: falls du die schrift Grün machen willst dann musst du in der 4. zeile von unten (saudumm dass es beim code tag keine zeilenangaben mehr gibt ^^) halt txtBox.BackColor durch txtBox.ForeColor ersetzen.

Nash · 12. September 2006

AW: Werte vergleichen? Wie?

So einfach kann man das ganze Lösen, gibt natürlich noch ne komplizierte Lösung, bei denen du den Namen der Text Box kennen musst.

Aber aber damit könntest du auch eine Textbox ausschliessen.

mfg

Nash

EDIT: geht auch mit Figgers Lösung.. einfach nen If mit dem Namen der Text box..

L. Zorro · 12. September 2006

AW: Werte vergleichen? Wie?

Jo Danke euch beiden erstmal, werds mal probieren ^^

Nützliche Suchen

[VisualBasic] Werte vergleichen? Wie?

Videos zum Themenbereich