Notifications
Clear all

Calcular Múltiplo de 1000

3 Posts
2 Usuários
0 Reactions
863 Visualizações
(@chook)
Posts: 197
Reputable Member
Topic starter
 

Bom dia Amigos,
Tenho um label que mostra a quantidade total de itens separados. Ele vai crescendo de 1 em 1 unidade. Chegamos a valores bem expressivos como 100.000 e quero que o sistema modifique a cor do label quando for múltiplo de 1000, ex: 1000, 2000, 5000 etc...

Abraços a todos!!

 
Postado : 12/03/2013 2:46 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para cada multiplo uma cor? Qual o limite?

 
Postado : 12/03/2013 4:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Veja se é isso...

Private Sub CommandButton1_Click()

If Label1.Caption Mod 1000 = 0 Then
Label1.ForeColor = RGB(255, 255, 0)
Label1.BackColor = RGB(255, 0, 0)
End If
End 
 
Postado : 12/03/2013 4:02 pm