Discussion :

[jadey]

Voila j'aimerais savoir s'il y'a une methode simple pour recuperer la ligne (ou la colonne peu importe) d'un Flex Grid sur laquelle est positionné le curseur de la souris, et ainsi déclencher un evenement selon le numero de ligne ou de colonne.
Je pense qu'il est possible de le faire via un algo (calcul grâce aux coordonnées x et y retournées par MouseMove) de maniere dynamique, mais il doit y avoir une autre maniere de proceder bcp plus simple...si vous en avez une...je suis prenneur...
meci d'avance pour toutes vos contributions...

[Delbeke]

Code :

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

1
2
3
4
 
Private Sub MSFlexGrid1_RowColChange()
  Debug.Print MSFlexGrid1.Row; "*"; MSFlexGrid1.Col
End Sub

[sovo]

Delbeke je ne croit pas que ca devrais marcher car toi tu lances ton traitement lorsque la ligne change (c'est a dire a ete selectionner). Hors d'apres notre ami cette ligne n'a meme pas ete selectionne car il uilise le MoseMove donc la souris ne touche pas le controle et donc ne poura pas etre selectionne.

jadey Je penche aussi pour ton algo complexe car je ne vois pas trop comment ce sera realisable

[jmfmarques]

Je penche aussi pour ton algo complexe car je ne vois pas trop comment ce sera realisable

Non ! pas complexe du tout !

Je vous encourage à faire une recherche sur ce forum avec le mot-clef.... tiptoolText...

Si zaza passe par là, elle s'y retrouvera

[jmfmarques]

Bon.

Pas retrouvé !

Mais je viens de bâcler ceci, qui devrait vous éclairer. Si non, je vous le continue demain matin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim DX As Integer, DY As Integer
Dim jmfY, jmfrg As Integer
 
Private Sub Form_Activate()
MSFlexGrid1.ColWidth(0) = 2000
MSFlexGrid1.Rows = 5
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.Height = 735
MSFlexGrid1.TextMatrix(0, 0) = "voilà ma première ligne"
MSFlexGrid1.TextMatrix(1, 0) = "voilà ma deuxième ligne"
MSFlexGrid1.TextMatrix(2, 0) = "et cà c'est ma troisième ligne"
MSFlexGrid1.TextMatrix(3, 0) = "voyez ma quatrième ligne"
MSFlexGrid1.TextMatrix(4, 0) = "j'en suis à la cinqième"
End Sub
 
 
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
 
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
GoTo 10
jmfY = Int(y / MSFlexGrid1.RowHeight(1))
jmfrg = jmfY + (MSFlexGrid1.TopRow) - 1
On Error Resume Next
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(jmfrg, 0)
Err.Clear
10:
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
 
Private Sub MSFlexGrid1_Scroll()
jmfrg = jmfY + (MSFlexGrid1.TopRow) '- 1
MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(jmfrg, 0)

[Delbeke]

Interessant, je ne connaissais pas la propriété textmatrix. nul doute que ca me servira un jour
merci jmf, pour le tuyau

[jmfmarques]

Pas de quoi, Delbeke.

Je t'ai lu ici et là et sais que tu sauras l'utliser avec astuce et intelligence (v'la un pleonasme ... ou presque).
Je suis donc content ...
Bonne nuit.

[Delbeke]

venant de ta part, je prends çà comme un compliment. bonne nuit à toi aussi

[jadey]

hello les gens
jmf dis:

Non ! pas complexe du tout !

Je vous encourage à faire une recherche sur ce forum avec le mot-clef.... tiptoolText...

si tu fais allusion au site meteo avec des cartes je suis sûr que tu t'es apperçu que c'est du javascript...
Or je travaille avec vb 6 ça ne me convient par consequent que tres peu (sinon pas du tout lol )
La methode tooltiptext n'est pas mal du tout mais j'imagine que ça ne peut pas faire grand chose dans le cas ou je voudrais afficher une photo...???

[jmfmarques]

Ah ?... Tu en es certain ?...

Tu n'arrives vraiment pas à voir comment utiliser jmfrg (qui est un integer)
autrement que pour déclencher :

jmfrg = jmfY + (MSFlexGrid1.TopRow) - 1

???

Tu ne vois pas comment utiliser la "chose" comme index d'autre chose ?

Tu es certain d'aimer le développement ?

Intéresse-toi un peu plus à celà et un peu moins aux batteries de smileys et tout devrait aller mieux....

[jmfmarques]

Je réponds ici à MGD qui s'est inquiété par MP de la présence d'un GOTO :

Je l'invite à regarder de plus près :

Il ne s'agit pas là de développement mais, au contraire, de "sauter" un code d'essai (qui peut ainsi être totalement supprimé puisqu'il n'est pas utilisé du tout).

Je rappelle ce que j'ai dit plus haut : je bâclais un truc vite fait bien fait pour aider... dans mon bâclage, cette portion de code "sauté" est restée là ...

voilà donc mon code "nettoyé de cette inutilité" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim DX As Integer, DY As Integer
Dim jmfY, jmfrg As Integer
 
Private Sub Form_Activate()
  MSFlexGrid1.ColWidth(0) = 2000
  MSFlexGrid1.Rows = 5
  MSFlexGrid1.FixedCols = 1
  MSFlexGrid1.FixedCols = 1
  MSFlexGrid1.Height = 735
  MSFlexGrid1.TextMatrix(0, 0) = "voilà ma première ligne"
  MSFlexGrid1.TextMatrix(1, 0) = "voilà ma deuxième ligne"
  MSFlexGrid1.TextMatrix(2, 0) = "et cà c'est ma troisième ligne"
  MSFlexGrid1.TextMatrix(3, 0) = "voyez ma quatrième ligne"
  MSFlexGrid1.TextMatrix(4, 0) = "j'en suis à la cinqième"
End Sub
 
 
Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub
 
Private Sub MSFlexGrid1_Scroll()
  jmfrg = jmfY + (MSFlexGrid1.TopRow) 
  MSFlexGrid1.ToolTipText = MSFlexGrid1.TextMatrix(jmfrg, 0)
End sub

comme vous le voyez, j'ai également "zigouillé" d'autres petites choses qui n'avaient rien à faire là

[jadey]

te vexes pas jmfmarques on parle pas de la meme chose relis bien mon post sinon ton bout de code m'est tres utile...rien a dire de ce côté la merci
sinon pour la tof avec tooltip... y'a pas moyen? un bout d'idée peut etre???

[zazaraignée]

Code :

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

1
2
3
4
...
MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FixedCols = 1
...

Heu... Pourquoi deux fois? Ce ne serait pas FixedRows pour la deuxième, par hasard?

ici il fait encore jour: 15h11... Soleil... Pas trop chaud... Juste bien...
Alors dormez bien!

[jadey]

photo avec tooltiptext...???ça dois etre possible a faire non?

[jmfmarques]

Heu... Pourquoi deux fois? Ce ne serait pas FixedRows pour la deuxième, par hasard?

Non !
Juste par ce que sommeil présent et voulais aller au lit, c'est tout
J'ai fait à toute allure et ai rejoint Morphée...

[jmfmarques]

photo avec tooltiptext...???ça dois etre possible a faire non?

Non !
mais se servir de jmfrg comme index d'autre chose : oui !

[sovo]

la je croit que notre ami jadey n'y parviendra jamais tout seul. Tu es sur que tu ne peut rien faire avec l'index dans un FlexGrid ??

[jmfmarques]

Je pense, moi, Sovo, que ce que je dis est "captable" par n'importe quel développeur ayant la volonté de "s'y mettre" un tant soit peu (et vraiment peu).
Je pense qu'il est ultra simple de relier un rang (ou index) d'un ensemble à un autre rang de même valeur d'un autre ensemble, que ce soit dans le domaine du développement informatique ou dans tout autre domaine...
C'est un peu dire qu'au n° 3 de la rue Dupont, on associe ce que l'on trouve au n° 3 de la rue Durand !
S'il y a une difficulté de compréhension à ce simple niveau.... il vaut alors mieux écouter pousser le gazon...
Pourquoi diable faut-il qu'à chaque pas élémentaire fait on en fasse tout un monde en raison, apparemment, de ce qu'il s'agit d'informatique ? Il ne s'agit là que d'un jeu de bûchettes et le développement informatique, une fois de plus, est à plus de 80 % un mécanisme de la pensée, les 20 % restant (simple vocabulaire) n'étant à mes yeux que de la "gnognotte"...

[jadey]

c'est franchement desagreable tu te prends pour qui? y'en a marre des gens qui se croient superieurs pasqu'ils se croient redevable envers les autres juste parcequ'ils partagent des connaissances qu'ils ont acquis pour la plupart de leurs pères...je pense t'avoir deja remercié pour ta contribution mais je pense que ça a du te monter à la tête, et je commencerais à le regreter s'il n'y'avait pas autant de gens serviables et non inbu de leurs personnes sur ces forums.

Quoi qu'il en soit je bute tujours sur la photo au niveau de tooltiptext si ce n'est pas possible je suis preneurs de tout autre idée ou tuto pour une info bulle avec photo.
merci pour toutes vos pistes

[jmfmarques]

Bonjour Jadey,

Je n'ai pas voulu être désagréable, non, mais te mettre sur le chemin...

- Je t'ai parlé d'une variable (utilisée dans mon exemple pour afficher un tootiptext mais qui peut être utilisée à tout autre chose...
- tu sais ce qu'est un contrôle imagelist
- tu sais ce qu'est un tableau, une listbox, etc...
- tu sais ce qu'est la propriété visible d'un contrôle
- tu connais la méthode move appliquée à un contrôle
- tu sais ce qu'est un contrôle line
- tu sais ce qu'est un contrôle image
- tu sais ce qu'est la propriété stretch d'un contrôle image

tu as donc en main toutes les briques et tous les outils (un choix d'outils) nécessaires à ta construction. La seule chose que tu n'as pas, c'est un constructeur autre que toi-même pour bâtir ta maison. Le bâtisseur, vois-tu, c'est toi.

Si tu ne le vois pas, ce chemin que je t'ai tracé avec, à mon sens, assez de précision, alors... je passe à d'autres sujets....
Bonne chance à toi.

EDIT : il me parait important de te rappeler la question (ton sujet) qui était :

Voila j'aimerais savoir s'il y'a une methode simple pour recuperer la ligne (ou la colonne peu importe) d'un Flex Grid sur laquelle est positionné le curseur de la souris, et ainsi déclencher un evenement selon le numero de ligne ou de colonne.

Il a été répondu à cette question, me semble-t'il !
Le reste, qui n'a rien à voir directement avec cette question, aurait dû, en application des règles de ce forum, donner lieu à l'ouverture d'un autre sujet, auquel je ne participerai que s'il traite d'un point isolé (une difficulté ponctuelle précise et isolée dans la mise en oeuvre d'un mécanisme bien défini) et pas d'un ensemble.