Soyez le premier à donner votre avis sur cette source.
Vue 4 998 fois - Téléchargée 272 fois
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
29 oct. 2004 à 14:52
14 oct. 2004 à 14:29
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.