Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changer le mousepointer

archi

XLDnaute Impliqué
Bjr le forum,

petite question:
comment peut on changer le mousepointer de facon à faire apparaitre une main au passage d'un CommandButton ?

merci
bye
 

Evelynetfrancois

XLDnaute Impliqué
Re : Changer le mousepointer

bonjour mario

pour essayer de repondre à ta 2° question
voila un fichier joint
qui peut (peut etre convenir )

E et F
 

Pièces jointes

  • text.xls
    25.5 KB · Affichages: 41
  • text.xls
    25.5 KB · Affichages: 44
  • text.xls
    25.5 KB · Affichages: 49

mariobross

XLDnaute Occasionnel
Re : Changer le mousepointer

le forum , e et f ,bonjour merci pour le code je l'ai modifié pour pouvoir avoir un commentaire qui s'affiche pour chaques controles (voir fichier joint) ,
par contre pour ce qui est d'importer un icone de souris different je suis preneur d'info , si j'en ai pas sur ce fil je posterai un fil avec uniquement cette question.
 

Pièces jointes

  • intitulé de controle.xls
    31 KB · Affichages: 42
  • intitulé de controle.xls
    31 KB · Affichages: 38
  • intitulé de controle.xls
    31 KB · Affichages: 41

Evelynetfrancois

XLDnaute Impliqué
Re : Changer le mousepointer

RE
J 'avoue ne pas avoir tout suivi LOL
si tu veux une infotexte sur un CommandButton qui se trouve sur un USF
alors le parametre ControlTipText dans les propriétés de ce control le fait tres bien (voir fichier)

par contre si ce CommandButton se trouve directement sur une feuille alors là le ControlTipText n'est pas proposé d 'ou mon montage (fichier precedent )

A te lire
E et F
 

Pièces jointes

  • intitulé de controle.xls
    32 KB · Affichages: 37
  • intitulé de controle.xls
    32 KB · Affichages: 37
  • intitulé de controle.xls
    32 KB · Affichages: 37

mariobross

XLDnaute Occasionnel
Re : Changer le mousepointer

le forum , e et f , lol ! je ne connaissais pas cette propriété de controle, bien pratique, dire que j'ai cherché pendant 1 heure du code pour une fonction qui existe déjà , pour ce qui est d'importer d'autres icones pour le pointeur de la souris as tu des infos sur le format requis? merci de ton aide.
 

mariobross

XLDnaute Occasionnel
Re : Changer le mousepointer

le forum tatiak bonjour , un dans un post que tu as écrit sur ce fil, tu joint un fichier dans lequel le mousse pointeur prend la forme d'une jolie fleche bleu et tu decris la façon de procéder, comment faire pour récuperer cette fleche ? car lorsque je récupere des icomes sur internet et que j'essai de l'importer avec la proprieté mousicon j'ai un message qui me dit que le format n'est pas compatible . merci.
 

archi

XLDnaute Impliqué
Re : Changer le mousepointer

bjr à tous,

ci-joint le cursor main qu'utilise windows pour ces applications
 

Pièces jointes

  • Main.zip
    267 bytes · Affichages: 37
  • Main.zip
    267 bytes · Affichages: 37
  • Main.zip
    267 bytes · Affichages: 38

Stéphane-Régis

XLDnaute Nouveau
Bonjour mariobross !
dans le code, tu tapes :
Private Sub Nom_du_bouton_Click()
Nom_du_bouton.MousePointer = fmMousePointerCustom
End Sub

Ensuite, dans la colonne de gauche des propriétés, tu vas sur la ligne "MouseIcon", dans la colonne de droite, tu vas voir entre parenthèses le mot "Aucun" et un petit bouton carré avec 3 petits points sur la droite de cette ligne, tu cliques sur ce bouton et dans la fenêtre qui va s'ouvrir, en haut dans la barre d'adresse,
tu tapes : C:\Windows et tu cliques sur le dossier "Cursors".
puis tu tapes dans la barre d'en bas de la fenêtre : "aero_link_i.cur", le mot "Aucun" est lors remplacé par "Icône" et sera lui aussi entre parenthèses.
Ensuite, tu reviens dans les propriétés, tu vas sur la ligne "MousePointer" et tu sélectionnes : "99 - fmMousePointerCustom"

Et voilà ton pointeur va se transformer en main avec l'index qui pointe.

J'espère avoir bien répondu à ta demande

Stef
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…