je craque....

Question

Je m essaye a BV depuis peu et j ai des difficultes...

Voila je m entraine , je voudrais afficher dans une textbox des chiffres soient negatifs soient positifs ou nuls. suivant les trois dernieres, je voudrais qu ils affichent de differentes couleurs.
voici ce que j ai tapé :

Private Sub Text1_Change()
On Error Resume Next
If Text1.Text < 0 Then
Srt.Text = RDG(255, 0, 0)
ElseIf Text1.Text = 0 Then
Srt.Text = RDG(0, 255, 0)
Else: Text1.Text = RDG(0, 0, 255)
End If
End Sub

Ca ne marche pas. Pourrez vous me dire ma connerie ? 
merci

cs_nr · Answer

Salut,

En voyant ton code j'ai trois suggestions :

Pourquoi gère tu les erreurs avec : on error resume next si tu n'as pas une suite du genre : 

if err.number = erreur que risque d'avoir then
clear error
msgbox "il y une erreur"
endif

Et pourquoi as tu ":" après le dernier else ?

Enfin si tu veux attribuer une couleur à un textbox il faudrai utiliser : srt.backcolor = RDG(255,0,0)

Voila bon week

hhhp2004 · Answer

hhhp2004

jai pas esseye, mais esseye ca :

Private Sub Text1_Change()
On Error Resume Next

select case val(text1.text)
 case is 0
  text1.backcolor = RDG(0, 255, 0)
 case is < 0
  text1.backcolor = RDG(255, 0, 0)
 case else
  text1.backcolor = RDG(0, 0, 255)
end select
  
End Sub

ton code naffiche pas de couleur parce que tu ne lui dis pas !
pour afficher une couleur en arriere plan dun textbox utilise text1.backcolor !

ton code dit a lordi que quand il voit un chiffre negatif, il doit remplacer le contenu  du textbox par "RDG(0, 0, 255)". cest pour ca que ca marchait pas ...

autre chose : quand tu parles de Visual Basic, dit VB et non BV

salut

cs_didier.007 · Answer

Pour BV... EH, faute de frappe...

merci de ta reponse et a titre indicatif il n y a que 15 jours que j ai attaqueé...

Bon week a toi

cs_didier.007 · Answer

je ne veux pas attribué une couleur de font , mais aux textes.

Bon week

KaViDee · Answer

salut, je sais que c'est énervant de bloquer sur des petits trucs comme ça alors voila une solution ki devrait te satisfaire :)

Private Sub Text1_Change()
    On Error Resume Next
    
    Select Case Val(Text1.Text)
        Case 0
            Text1.ForeColor = RGB(0, 255, 0) 'ou vbGreen
        Case Is < 0
            Text1.ForeColor = RGB(255, 0, 0) 'ou vbRed
        Case Is > 0
            Text1.ForeColor = RGB(0, 0, 255) 'ou vbBlue
    End Select
End Sub

PS: ce n'était pas RDG mais RVB et vbGreen etc sont des constantes intégrées a VB,et  lors de la compilation il n'y aura pas de différence

@+

KaViDee

cs_didier.007 · Answer

Eh, oui ça marche meme bien . Je te remercie et t attend pour un autre "petit" probleme.

merci et Bon week

Je craque....

6 réponses

Discussions similaires