Bernard Marcelly a écrit :
.....
On peut de même changer le curseur sur un contrôle de dialogue. C'est
un peu plus simple. Ici une routine appelée en cliquant un bouton du
dialogue:
Sub changerCurseur(evt as object)
dim kt as object, dlg as object, oWindow as object
kt = evt.Source
dlg = kt.Context
oWindow = kt.getPeer()
SwitchMousePointer(oWindow, False)
wait 5000
SwitchMousePointer(oWindow, True)
wait 3000
MsgBox "Fini"
End Sub
Cela marche aussi avec le panneau dialogue (utiliser dlg.getPeer()
dans ce codage). Seulement, le sablier n'apparaît alors qu'en dehors
des contrôles !
Bernard
Bonjour Bernard,
Merci pour toutes tes infos.
J'ai testé les différentes formes de curseur, sur cette page :
http://api.openoffice.org/docs/common/ref/com/sun/star/awt/SystemPointer.html
Beaucoup de curseurs sont identiques pour des définitions différentes,
et on trouve des curseurs non commentés de 72 à 93.
Au delà, on retrouve les curseurs déjà vus.
Est-ce que ça peux intéresser de faire un tableau (un how-to ?) avec les
images des différents curseurs ?
Bon surf,
Christian
--
Visitez http://christianwtd.free.fr/ pour débuter avec Calc, d'OpenOffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]