MSFlexGrid et MouseIcon

Bonjour,

Je souhaite dans un MSFlexGrid changer le curseur suivant certains traitement
Pour cela j'écris :

Code:

---

1 2	MSFlexGrid.MousePointer = flexCustom MSFlexGrid.MouseIcon = LoadPicture("harrowjaune.ico")

---

J'ai comme message d'erreur :
Utilisation incorrecte de la propriété

Où est mon erreur, svp, merci :oops:

Salut

essai :

Code:

---

1 2	MSFlexGrid.MousePointer = flexCustom MSFlexGrid.MouseIcon = VbCustom(LoadPicture("harrowjaune.ico"))

---

je ne suis pas sur de la syntax mais dans l'aide de VB :
VbCustom = Pointeur personalisé a l'aide d'un fichier icon

A+

Désolé

Cette solution ne marche pas.
J'ai cherché dans l'aide mais pas de solution
Peut-être que l'on ne peut pas changer le curseur en cours de traitement
sur un MSFlexGrid ? :(

Salut

Quand je t'ais dit que je ne suis pas sur de la syntax je suis très loin de la vérité

Code:

---

1 2	MSFlexGrid.MousePointer = vbCustom MSFlexGrid.MouseIcon = LoadPicture("harrowjaune.ico")

---

Mais je ne sais pas si ça marche avec les flexgrid

A+

Re

Oublie et essai plutot :

Code:

---

1 2	MSFlexGrid.MousePointer = 99 MSFlexGrid.MouseIcon = LoadPicture("harrowjaune.ico")

---

MousePointer = 99 : Icon personalisé
je viens de trouver un autre exemple ou les deux ligne sont inversées, cela a peut etre une importance, a voir.

A+

Salut

Essaie comme ça:

Code:

---

Set MSFlexGrid.MouseIcon = LoadPicture("harrowjaune.ico")

---

:D :D :D

CA MARCHE
Merci à toi BM42 (Y manquait pas grand chose) et
à toi pour 'SET' :hola: ZAZARAIGNEE.
Maintenant pourquoi ça fonctionne sans le 'SET' pour tous les autres controles ?

Ça, c'est un peu mystérieux!

J'ai regardé dans l'aide pour la syntaxe de la propriété MouseIcon. J'y ai trouvé ceci :

Citation:

---

Envoyé par msdn

Syntax

object.MouseIcon = LoadPicture(pathname)

object.MouseIcon [= picture]

---

Remarque la deuxième syntaxe ou on peut affecter un objet Picture. Voilà, pour attribuer une image à un objet Picture, on a besoin de la clause Set. Exemple

Code:

---

1 2	Dim monImage As Picture Set monImage = LoadPicture("PhoteDeMoi.jpg")

---

Le contrôle MsFlexGrid est un composant ajouté au projet, il ne fait pas partie des contrôles de la palette d'outils inclus dans VB. Pour modifier la propriété MouseIcon on fait exactement comme pour l'objet Picture. Alors que les objets 'natifs' de VB, le changement d'icône doit être fait plus directement, je présume. Voici plutôt:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Load() Dim monIcone As Picture Dim chemin As String chemin = "C:\Program Files\Microsoft Visual Studio\" & _ "Common\Graphics\Icons\Misc\CHECKMRK.ICO" Set monIcone = LoadPicture(chemin) MSFlexGrid1.MousePointer = flexCustom Set MSFlexGrid1.MouseIcon = monIcone Command1.MousePointer = vbCustom Command1.MouseIcon = monIcone End Sub

---

Remarquez que les propriétés MousePointer des deux contrôles n'ont pas les même noms de constantes. C'est un indice, à mon avis, puisque je n'ai pas d'autres informations pour le prouver, que les deux contrôles ne sont pas gérés de la même façon.