begin process at 2010 03 17 06:12:59
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Formulaire

 > 

je craque....


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

je craque....

vendredi 1 octobre 2004 à 17:20:09 | je craque....

didier.007

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
vendredi 1 octobre 2004 à 17:42:07 | Re : je craque....

nr

Membre Club
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
vendredi 1 octobre 2004 à 17:44:53 | Re : je craque....

hhhp2004


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
vendredi 1 octobre 2004 à 18:08:29 | Re : je craque....

didier.007

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
vendredi 1 octobre 2004 à 18:11:07 | Re : je craque....

didier.007

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

Bon week
vendredi 1 octobre 2004 à 18:56:18 | Re : je craque....

KaViDee

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
vendredi 1 octobre 2004 à 19:03:47 | Re : je craque....

didier.007

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

merci et Bon week


Cette discussion est classée dans : text, text1, craque, rdg, srt


Répondre à ce message

Sujets en rapport avec ce message

Demande d'aide [ par VSt@r ] J'aimerais savoir : 1) Comment faut il faire pour additionner ou soustraire des heures : Text1.text = heure locale Text2.text = heure locale - 9 Comment enregistrer plusieurs "Text"(text1.text, text2.text ,...) dans un seul fichier et pouvoir le réouvrir ? [ par Olisoft ] Je cherche comment je peux enregistrer les données contenues dans plusieurs "Text" (text1.text, text2.text,...) dans 1 seul fichier et comment je pour Comment Print du text dans un Text1 [ par strangeEvader ] Je voudrai savoir comment on peut faireune commande semblable a:Picture1.Print ("")mais dans un _Text1_: qqchose commeText1.Print ("")mais dans ce cas text.box [ par Dragon ] si j`ai deux textboxtext1-multiligne true-scroll vertical-et il est la fenêtre principaltext2-ben normalsi on prend ce qui est dans la fenêtre 2 et sa Un petit PROBLÈME Avec Variable ! [ par ATH|500| ] Bon voici mon problème c'est que je veux mettre du texte et puis ma variable apres regarder !Option ExplicitDim nom1$Private Sub Text1_click()If Text1 "album photos" [ par stenie ] je voulais réaliser un album photos en VB et l'enregistrer sous forme d'éxécutable afin de pouvoir l'envoyer par email aux gens qui m'entourent. Pb : "album photos" [ par stenie ] je voulais réaliser un album photos en VB et l'enregistrer sous forme d'éxécutable afin de pouvoir l'envoyer par email aux gens qui m'entourent. Pb : Comment afficher ? [ par Kevinklen ] Bonjour,Je n'arrive pas à obtenir un affichage en colone bien aligné dans une textBox.Ce qui se traduit par un affichage tout décaler, c'est môche, ma ASC(text1.text) [ par fkiller / fkiller001 ] comment fair pour englober tout le text dans asc, car avec ASC(text1.text)il ne tien compte que de la 1 ere lettre. <img src=/i bleme de calcul [ par Laulaut ] j'ai un gros probleme de calcul si quelqu'un peut m'aide urgence ce serais coolvoila j'ai 3 boite de text et je fais un chiffre dans la premier et un


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,170 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales