Bonjour à tous,
Je souhaite dans une boite de dialogue afficher plusieurs ImageControl et
lorsque la souris passe sur l'un d'eux changer le cadre de l'imagecontrol,
j'ai donc affecté les procédures suivantes aux événements "Souris extérieur"
et "souris intérieur" :
Sub SourisExt(evt as Object)
Dim k as Object
k = evt.Source.Model
k.Backgroundcolor = -1
k.Border = 0 ' pas de bordure
End Sub
Sub SourisIn(evt as Object)
Dim k as Object
k = evt.Source.Model
k.Backgroundcolor = RGB(150, 150, 200)
k.BorderColor = RGB(0, 0, 0)
k.Border = 2 ' pour une bordure normale
End Sub
Mais ça ne fonctionne pas : en fait les procédures sont bien appelées, la
couleur de fond de l'imageControl change bien, par contre la bordure
n'apparait pas... :-(
Quel est l'erreur ? Est-ce qu'il y a d'autres choses à modifier pour pouvoir
modifier l'état de la bordure des ImageControls ?
Merci d'avance pour vos réponses...
A+
Gilles
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
