ADDIN WHEEL VB : ACTIVE LA ROULETTE DANS VB

Commentaire de clementio le 04/04/2006 04:25:24 administrateur CS

En plus, je viens de remarquer que si on scroll sur une fenêtre qui n'a pas le focus, ça lui redonne, cool non???

Commentaire de clementio le 04/04/2006 08:47:00 administrateur CS

Tu vas dans outil > options > étendues et tu coches environnement de développement SDI... Je te laisse découvrir...

Commentaire de clementio le 04/04/2006 11:06:12 administrateur CS

La technique utilisée est un hook bas niveau sur la souris. En cherchant sur Internet (MSDN particulièrement), j'ai lu que Microsoft dit qu'on ne peut pas faire de subclassing sans appeler de DLL externe. Et bien, c'est faux... d'autres l'on fait. BruNews en particulier dont j'ai traduit le code C++ (je crois) en VB.

Et pour ce qui est de la partie ScrollBar, ça se complique. En fait pour scroller une fenêtre (celle de VB en tout cas), if faut envoyer un SendMessage avec comme paramètres:

- Le handle de la fenêtre à scroller (normal...)
- Le type de message, ici WM_VSCROLL (scroll vertical)
- L'action à faire, ici SB_LINEUP ou SB_LINEDOWN (+ ou - 1 ligne répétée 3 fois)
- Le handle du ScrollBar --> et là c'est chaud.....

Et bien dans ce cas là, si vous voulez tout savoir sur les messages des fenêtres, un seul prog : Spy++ (disponible dans le dossier Tools du CD VB6). Avec ce prog, on peut espionner tous les messages qui transitent en fonction d'une fenêtre particulière, de ces "enfants", des types de message....

J'ai donc compris avec ça qu'il fallait que je cherche dans les "enfants" de ma fenêtre de code VB. Grâce à l'API EnumChildWindows, j'ai pu récupérer le handle de mon scrollbar. Et tant que j'y étais, j'ai retrouvé ce handle en fonction de la position de la souris. Et oui, si il y a les 2 ScrollBars verticales d'activées, il faut bien le prendre en charge (voir capture).

Bref, tout ça pour dire que si voulez travailler avec les messages  des fenêtres, utilisez Spy++, on trouve vite fait ce qui nous intéresse...

Commentaire de clementio le 04/04/2006 11:09:33 administrateur CS

Depuis le début, je  bosse comme ça...

Commentaire de clementio le 04/04/2006 11:43:14 administrateur CS

Par curiosité, j'ai télécharger MouseWare dont tu parles. A la fin de l'install, il me demande de redémarrer. Et là, plus de souris... C'est peut-être parce que je l'ai empêché de se lancer au démarrage. Mais bon, si le prog ne se lance pas au démarrage ou si il plante pour je ne sais quelle raison (ici c'est moi qui l'ai désactivé) et bien on a pas de souris... Pas terrible quand même.

Du coup, j'ai tout désinstallé au clavier. Et le comble c'est que ma souris est une Logitech!!!

Commentaire de clementio le 04/04/2006 13:04:18 administrateur CS

Je préfère un AddIn qui se lance uniquement lorsqu'on utilise VB plurôt qu'un prog qui tourne en tâhe de fond en continu...

Si vous avez testé, vous avez pu voir qu'il y a un petit temps lorsqu'on ferme une fenêtre dans VB (Code, Form, Propriétés...). C'est dû au hook de la souris. Mais ça de vient vite chiant...

J'ai essayé de passer par une DLL ActiveX externe pour voir si ce ralentissement de fermeture de fenêtre avait baissé et non, ça ne marche pas. Ensuite j'ai utilisé la DLL C++ de BruNews. Idem, ça ralentit toujours la fermeture d'une fenêtre. Après j'ai essayé d'attribué un hInstance différent de celui de l'application à mon hook et ça ne marche pas non plus.

Mais j'ai trouvé, en compilant tout ça dans un projet normal. On exécute et le scroll marche bien dans les fenêtres VB et la fermeture des fenêtres est instantannée!!!

Donc je fais un prog juste avec un module qui lancera VB et quittera à la fermeture de VB. Il y aura les 2 versions dans le prochain zip...

Commentaire de metalcoder le 04/04/2006 15:50:53

Salut clementio.

On est sur VbFrance et si une source existe et que tu la reprend pour l'ameliorer, moi en tout cas cela ne me pose aucun probleme bien au contraire et d'ailleurs la version 2 que j'ai mise n'est autre que la version de EBArtSoft mais pour le SDI.

Ma version fonctionnait pas tres bien je l'avoue mais j'avais d'autre projet et je n'y ai pas retoucher.

La tienne fonctionne beaucoups mieux sauf le temps de latence que tu a souligner precedemment, mais je vais essayer de compiler tout ca dans un projet pour voir.

@+

Commentaire de julescezar le 04/04/2006 16:25:16

Pour en finir avec mon mouseware lol ...
Je pense que la discussion a bien fait avancé ton projet.

Maintenant mon petit exe de merde qui se lance en tache de fond ne gère pas que le wheel de l'IDE VB.
Il s'occupe de tous les autres prog aussi...

Commentaire de clementio le 04/04/2006 16:33:43 administrateur CS

Si tu veux en venir au fait que je fasse un prog qui gère et VB et tout le reste, là ça peu devenir inréressant. Je chope tous les Wheels avec mon prog, ça ne doit pas être si dur de les redistribuer....

Je vais y réfléchir, merci de tes remarques ;-)....

Commentaire de Brosske le 05/04/2006 08:15:39

Le code en soi est bien fait, mais en effet, vous reinventez l'eau chaud je pense. Perso j'utilise l'utilitaire gratuite : FREEWHEEL pour faire fonctionner la roulette partout.

Commentaire de dany108 le 06/04/2006 00:43:44

Cette source est très intéressante  mais moi ce que j'aimerais trouver, c'est comment faire fonctionner la molette de souris avec un MsFlexGrid  dans une application compilée.

Commentaire de clementio le 06/04/2006 00:54:01 administrateur CS

En fait, il te suffit de trouver le handle de ton MsFlexGrid (c'est une fenêtre "fille" de ton appli). Et essaies de lui envoyer le même message que mon prog (avec les bons handles)...

Lis mes commentaires pour en savoir plus...

Commentaire de clementio le 06/04/2006 01:13:49 administrateur CS

Je viens de tester en lançant le prog + une autre aplli contenant un MsFlexGrid et ça marche aussi... En fait, ça envoie le message à n'importe quelle fenêtre de la classe "MSFlexGridWndClass"...

Commentaire de dany108 le 06/04/2006 16:56:20

J'ai mis en application pour les MsFlexGrid : c'est top !!!!!!!!!!!
Bravo.

Commentaire de clementio le 06/04/2006 20:43:15 administrateur CS

J'ai aussi rajouté un autre exemple avec le composant ScrollBar de VB cette fois-ci...

Commentaire de gerard45 le 10/04/2006 10:03:30

j ai lance ca dans vb, a quoi sert la ligne "NBE_LIGNES = CLng(Command)" qui bug et qui de plus modifie la ligne précédente qui est "   NBE_LIGNES = 3" ??? une fois la ligne en cause commentée ca marche

Commentaire de elisath le 10/04/2006 14:05:53

Je te remercie ça marche beaucoup mieux maintenant. Ca fait plaisir de pouvoir réutiliser cette molette sous VB. Je vais enfin ne plus regretter mon portable sous Windows 98 qui a toujours bien fonctionné.

Commentaire de jipef le 04/07/2006 19:54:54

Pourquoi réinventer la roue....de souris
ici on trouve un pilote qui marche trés bien en VB
ce pilote permet le scroll en VB mêmem dans une fenetre de code partagée en 2
http://www.labtec.com/index.cfm/service/listing/EUR/FR,crid=68,crid2=1763
"mw9791fra.exe" sur le site de logitech ne fait pas ça

Commentaire de jipef le 05/07/2006 14:23:35

trés bien ce qu'a fait clementio
mais l'échange dans un forum est aussi de faire passer ses connaissances donc rendre service aux autres tout le monde ne peut passer son temps à faire du code pour du code il faut aussi être productif

par exemple 2 add-ins de VB6 qui sont des outils pro et gratuits ( je vous souhaite bien du plaisir si vous voulez les écrire !!)
MZtools  et SmartIndenter

http://www.mztools.com/index.htm
MZtools existe aussi pour VB net mais payant

www.oaltd.co.uk  est le site de  Stephen Bullen auteur de SmartIndenter
Carlos Quintero est le développeur de MZTOOLS

Salut à tous

Commentaire de yan35 le 18/12/2006 01:30:42

Sympa, j'essaye.
Merci

Commentaire de Renfield le 30/03/2007 14:57:32 administrateur CS

je l'avait pas vue avant ta source Clem'

me rappelle certaines questions que tu m'avais posées sur le hook MOUSE_LL, y'a quelques temps, c'était donc (je suppose, a posteriori) pour ça ^^

Commentaire de titi2b le 10/10/2007 19:15:53

Je viens de découvrir cet addin et j'essaye de le faire fonctionner avec un datagrid.
Un petit coup de main svp.

a bientot