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

Soyez le premier à donner votre avis sur cette source.

Vue 4 998 fois - Téléchargée 272 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
29 oct. 2004 à 14:52
keke tu te rammolis au SAP ! LOL !
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
14 oct. 2004 à 14:29
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.