Controle pour changement de couleur (chat, irc ...)

Soyez le premier à donner votre avis sur cette source.

Vue 4 678 fois - Téléchargée 237 fois

Description

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

HeiniK0n
Messages postés
9
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
15 novembre 2004

keke tu te rammolis au SAP ! LOL !
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
pourquoi ne pas donner la nouvelle valeur dans l'evenement changement ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.