Discussion :

[MaKb]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BM42]

Salut

essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[MaKb]

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 ?

[BM42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

A+

[BM42]

Re

Oublie et essai plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[zazaraignée]

Salut

Essaie comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MaKb]

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

[zazaraignée]

Ç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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.