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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (keke4483)