[Basic] Animation bouton picto

[Piaf]

Un petit exemple pour égayer les boutons de commande.
Le dessin n’est pas terrible, mais pas trop doué pour ça.
Le principe est d’affecter une image différente en fonction des événements du bouton.

Les macros sur les événements du bouton :

• Événements – Souris à l’intérieur et Bouton de souris relâché :

Code : Tout sélectionner

Sub Survol(oEv as Object)
Dim VueCtrl as Object, oPointer as Object, oWinPeer as Object
	Chemin getDirectory(thisComponent.URL)
	monImage = Split(oEv.Source.Model.Tag,";")
	oEv.Source.Model.ImageURL = Chemin & monImage(1)
	vueCtrl = thisComponent.CurrentController.getControl(oEv.Source.Model)
	oPointer = createUnoService("com.sun.star.awt.Pointer")
	oWinPeer = vueCtrl.peer
	oPointer.SetType(com.sun.star.awt.SystemPointer.HAND)
	oWinPeer.setPointer(oPointer)
End Sub

• Événement – Bouton de souris enfoncé :

Code : Tout sélectionner

Sub ClickBtn(oEv as Object)
	monImage = Split(oEv.Source.Model.Tag,";")
	oEv.Source.Model.ImageURL = Chemin & monImage(2)
End Sub

• Événement – Souris à l’extérieur :

Code : Tout sélectionner

Sub OutBtn(oEv as Object)
	monImage = Split(oEv.Source.Model.Tag,";")
	oEv.Source.Model.ImageURL = Chemin & monImage(0)
End Sub

A+

[TheHache]

Salut Piaf,

Beau boulot !

[martinbrait]

Bonjour,
Un très gros boulot, Piaf, comme toujours.

Gratitude, pour ce partage !
Merci et à bientôt !