kleuren van vakjes en afronden van getallen

Status
Niet open voor verdere reacties.
J

jacco beniest

Gebruiker
Lid geworden
22 mei 2003
Berichten
142
ik wil graag als het getal goed is dat het labeltje groen kleurt en als fout is rood en als het net aan is geel

wat is de code om dat voor elkaar te krijgen?

ik ben een experience rekenmachine aan het maken maar ik krijg wel 7 getallen achter de komma maar ik wil er gewoon een achter de komma hebben hoe los ik dat op?
 
Afronden kun je met format, en voor die kleuren:

If intgetal = 1 Then
lbltest.BackColor = Color.Green
ElseIf intgetal = 2 Then
lbltest.BackColor = Color.Red
Else
lbltest.BackColor = Color.Yellow
End If
 
dat van die kleuren had ik al gevonden maar van dat afronden niet eigenlijk want hoe werkt die format functie?
 
jacco beniest zei:
dat van die kleuren had ik al gevonden maar van dat afronden niet eigenlijk want hoe werkt die format functie?
Klik om te vergroten...

Je kan het antwoord ook in een NumericUpDown laten zetten en de eigenschap DecimalPlaces op 1 invoeren
Denk er dan dan wel om dat je de eigenschap Minium op
-9999999999999999999999999 zet en de eigenschap maxium op 9999999999999999999999999
 
Laatst bewerkt:
Code: 
        Dim getal As Double = "0,1654365476"
        Dim afgerond As Double = Format(getal, "#.#")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan