Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 10 19:41:07

SHAREPOINT : NOUVEL ARTICLE SUR LA MISE EN PLACE DES SCOPE DANS MOSS SEARCH par ROMELARD Fabrice

HELLO CS par julz

MSDN/TECHNET/MICROSOFT DAYS TOUR 2008 à LILLE LES 13 ET 14 OCTOBRE ! par redo

MVC PRATIQUE #07 - UN PROJET CONCRET ET LE TRANSFERT DES OBJETS AVEC LES MODELBINDERS par Rui

SQL SERVER 2008 : CERTIFIé - TS ADMIN (70-432) par christian

RE : COMBOBOX LIé à UN AUTRE EN VB.NET par casy

RE : AFFICHER DATAREPORT DE VB6 EN MODE PAYSAGE par marcel haba

RE : LES SOCKETS AIMENT LES MSGBOX par Kevin.Ory

RE : [DEBUTANT] QUELQUES COMMANDES à RAJOUTER. par vautour32

RE : [DEBUTANT] QUELQUES COMMANDES à RAJOUTER. par akatsuki1905

+ de logiciels à télécharger

1 259 435 membres
330 nouveaux aujourd'hui
14 408 membres club

Trouver une ressource

Trouvez une ressource parmi 38 818 codes, 1 185 509 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONTROLE POUR CHANGEMENT DE COULEUR (CHAT, IRC ...)

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 13/10/2004 Date de mise à jour : 14/10/2004 19:55:48 Vu / téléchargé: 2 482 / 157

Auteur : keke4483

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce control permet de changer une propriété couleur d'un objet.

Il m'a servi pour le développement d'un Chat.
Je me suis dit que s'il m'avait été utile, il pourrait en être de même pour d'autre.

Source

Private Sub lblCouleur_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'le backcolor de l'origin deviens celui de l'élément survolé
lblOrigine.BackColor = lblCouleur(Index).BackColor
End Sub
Private Sub lblOrigine_Click()
'si la frame est afficher elle deviens invisible et inversement
fraContain.Visible = Not fraContain.Visible
'on renvoie l'evenement Changement avec la couleur (merci Renfield j'y avais pas pensé)
RaiseEvent Changement(lblOrigine.BackColor)
End Sub

Private Sub lblCouleur_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'le backcolor de l'origin deviens celui de l'élément survolé
lblOrigine.BackColor = lblCouleur(Index).BackColor
End Sub

Private Sub lblOrigine_Click()
'si la frame est afficher elle deviens invisible et inversement
fraContain.Visible = Not fraContain.Visible
'on renvoie l'evenement Changement avec la couleur (merci Renfield j'y avais pas pensé)
RaiseEvent Changement(lblOrigine.BackColor)
End Sub

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

ocxCouleur.ctl 6 968 octets
prjCouleur.oca17 408 octets
prjCouleur.ocx24 576 octets
prjCouleur.vbp 758 octets

Télécharger le zip

Historique

14 octobre 2004 19:55:48 :: Première modification (merci Renfield), l'évènement Changement contient désormais la couleur en paramètre. Le control conserve tout de même sa propriété Couleur permettant de récupérer sa valeur à tout moment et non pas uniquement lorsque l'évènement Changement est lancé.