SIMPLE BOITE À COULEUR

NHenry Messages postés 15116 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 mai 2024 - 5 sept. 2008 à 08:39
cs_youma85 Messages postés 82 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 28 avril 2011 - 11 sept. 2008 à 22:36

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/47870-simple-boite-a-couleur

cs_youma85 Messages postés 82 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 28 avril 2011 1
11 sept. 2008 à 22:36

merci a toi aussi

mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017
11 sept. 2008 à 19:20

Désolé, je ne voulais vexer personne en disant que ce code contient des erreurs.
Je pensais d'autre part qu'il était utile de mentionner une boite couleur performante car çà peut être souvent pratique.
Autant pour moi donc, et bonne réusite à Youma85.

cs_youma85 Messages postés 82 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 28 avril 2011 1
11 sept. 2008 à 19:00

merci bacteruis, je l'ai pourtant dit que je suis encore débutant.

Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 10
11 sept. 2008 à 18:56

MiniZanzan personne ne cherche une boîte à couleurs absolument géniale ... ils cherchent à aider YouMa85 : il est débutant en programmation VB, et c'est normal qu'il y ait plein d'erreurs. Tu es sur un site de programmation.
Au lieu de faire de la pub pour Clubic, essaye de poster une remarque constructive pour l'aider à améliorer son programme et son niveau.

Cordialement, Bacterius !

mimiZanzan Messages postés 301 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 décembre 2017
6 sept. 2008 à 22:57

Ce code est plein d'erreurs.
si vous recherchez vraiment une bonne boite couleur, télécharger (gratos) la boite sur le site Cublic
www.clubic.com/telecharger-fiche18543-la-boite-a-couleurs.html

Profil bloqué
6 sept. 2008 à 02:28

Pour un cours sur VB Net -----> http://plasserre.developpez.com/vsommair.htm

cs_youma85 Messages postés 82 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 28 avril 2011 1
5 sept. 2008 à 13:34

merci pour vos remarque NHenry et Charles Racaud. je suis encore débutant en .net si vous avez un lien d'un cours complet de vb.net donnez le moi svp.

NHenry Messages postés 15116 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 mai 2024 159
5 sept. 2008 à 11:19

Judicieuses remarques Charles Racaud, je n'avais pas fais attention à cela.

Donc je conseillerais à youma85 d'activer Option Explicit et Option Strict (là ça aurait gueuler, String -> Integer ce n'est pas permis en Strict si on ne l'indique pas clairement, avec CInt par exemple.).

Utilisateur anonyme
5 sept. 2008 à 11:12

On peut encore simplifier un ch'touil :

Private Sub TextBox1_Change(ByVal sender As System.Object, ByVal e As EventArgs) Handles TextBox1.Change,TextBox2.Change,TextBox3.Change
Dim TxBox as TextBox = ctype(sneder, Textbox)
If CINT(TxBox) > 255 Then TxBox = "255"
Label28.BackColor = Drawing.Color.FromArgb(CINT(TextBox1.Text), CINT(TextBox2.Text), CINT(TextBox3.Text))
End Sub

Autre petite erreur, CStr(TextBox1.Text) ne sert pas à grand chose (à rien même)
Utilise CInt pour convertir une string en integer.
__
Kenji

NHenry Messages postés 15116 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 9 mai 2024 159
5 sept. 2008 à 08:39

Bonjour,

J'ai regardé la code source, et j'ai quelques remarques :
- Nomme tes controles (TextBox1 ne veux rien dire alors que TxtR "Champ texte pour la couleur rouge")
- Dans ton code, j'ai vu :
# Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
# If (CStr(TextBox1.Text) > 255) Then
# TextBox1.Text = "255"
# End If
# Label28.BackColor = Drawing.Color.FromArgb(CStr(TextBox1.Text), CStr(TextBox2.Text), CStr(TextBox3.Text))
# End Sub
#
# Private Sub TextBox2_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
# If (CStr(TextBox2.Text) > 255) Then
# TextBox2.Text = "255"
# End If
# Label28.BackColor = Drawing.Color.FromArgb(CStr(TextBox1.Text), CStr(TextBox2.Text), CStr(TextBox3.Text))
# End Sub
#
# Private Sub TextBox3_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp
# If (CStr(TextBox3.Text) > 255) Then
# TextBox3.Text = "255"
# End If
# Label28.BackColor = Drawing.Color.FromArgb(CStr(TextBox1.Text), CStr(TextBox2.Text), CStr(TextBox3.Text))
# End Sub

Le mieux aurait été d'utiliser l'evenement Change et de regrouper le controle :

# Private Sub TextBox1_Change(ByVal sender As System.Object, ByVal e As EventArgs) Handles TextBox1.Change,TextBox2.Change,TextBox3.Change
# If (CStr(TextBox1.Text) > 255) Then
# TextBox1.Text = "255"
# End If
# If (CStr(TextBox2.Text) > 255) Then
# TextBox2.Text = "255"
# End If
# If (CStr(TextBox3.Text) > 255) Then
# TextBox3.Text = "255"
# End If
# Label28.BackColor = Drawing.Color.FromArgb(CStr(TextBox1.Text), CStr(TextBox2.Text), CStr(TextBox3.Text))
# End Sub

Sinon, je trouve que ton code est trop simple pour en faire une source (mais cela n'est que mon avis).

Discussions similaires

Convertir un code hexadecimal en couleur

fermer boite de dialogue (j'ai déjà posé la question, mais impossible d'y arrive

Comment changer le fond d'écran... etc?

[Photoshop] : Image noir et blanc en image blanc et noir ?

Couleur de fond d'une cellule excel

Votre réponse

Discussions similaires