UTILISER LA ROULETTE DANS VB6 IDE (ADDIN)

Commentaire de sebmafate le 10/04/2004 08:36:40 administrateur CS

j'allais le dire... avec IntelliPoint plus aucune fenêtre ne résiste à la souris... (marche aussi avec les souris non ms)

Séb

Commentaire de sebmafate le 10/04/2004 09:36:00 administrateur CS

je n'ai pas dit que ce n'était pas bien comme addin... loin de moi cette pensée... mais c'est vrai que je suis tellement habitué en utilisant intellimouse... que... bah... il ne va pas me servir...

Séb... bon boulot :p

Commentaire de jotrash le 10/04/2004 10:39:26

bizarre moi g une logitech et ca defile quand meme sans intellimouse ou ton addin

Commentaire de Urgo le 10/04/2004 14:55:51

J'avoue que je n'avais jamais cherché à faire fonctionner la roulette sous VB6 IDE, mais c'est vraiment pratique !
10/10

Commentaire de hqv0 le 11/04/2004 11:31:06

Je suis debutante,  je n'ai pas compris comment faire pour l'installation
regsvr32 j'ignore ce que c'est et surtout comment faut faire
j'ai intelli mouse mais ma roulette marche pas dans VB6 (je suis sous XP Prp) sinon j'aimerai bien avoir la roulette pour VB  merci

Commentaire de hqv0 le 11/04/2004 15:20:31

Merci Urgo car c'est impecable ca marche Cooool

Merci EBArtSoft car ton source est SuPeR utile , petite remarque tout de meme, tu l'as classé dans le niveau debutant, moi je veux bien, mais, si à mon niveau de debutante j'etais capable de faire cela, ce serait total bonheur, bref tout cela pour dire que je te met un 10, mais... par la pensée et de tout mon coeur, cette note je ne te l'inscris pas, car, je ne suis pas capable de juger tes lignes, par contre j'utilise ta création et je vais tenter d'apprendre avec tes connaissances
MeRcI

Commentaire de BiSi le 11/04/2004 23:45:31

Code propre, marche bien et surtout améliorera considérablement la vie des VB Codeurs (n'utilisant pas IntelliPoint) qui passeront par là.

Eh ben, pour être bref, MERCI.

Allez 10 même si maintenant il faudrait un tit package automatique ;o)

Commentaire de EBArtSoft le 12/04/2004 02:36:57 administrateur CS

Voila c'est fait j'ai ajouter un installeur, il enregistre et desenregistre la dll a condition de le laisser toujours dans le meme repertoire. Utilisable depuis le panneau de config ajouter/supprimer des prog

Il y a également deux batch install/desinstall pour ceux qui ne veulent pas utiliser le setup

Pour ce qui est de l'explication je ferait ça demain si vous le voulez bien (pis si vous le voulez pas c'est pareil, non mais ! Afyn t'es pas au lit pas cette heure ci, aller faut y aller ! :P )

Merci @+

Commentaire de mastercatz le 13/04/2004 12:03:22

Tu es mon sauveur :)

Bravo

Commentaire de pluplu le 21/04/2004 10:11:43

c'est un plus c'est certain, mais ce que je cherche aussi depuis longtemps c'est d'avoir cette fonction dans mes propre appli. vb t'aurais pas une petite idée des fois...
En tout cas merci pour cet addin ci

Désolé je voulais te mettre 9 mais j'ai ripper et la note par défaut c'est enreg. et impossible de corriger...

Commentaire de redsentry le 11/05/2004 16:29:52

Ce n'est pas 10 que tu mérites mais 15/10 car j'en avais vraiment raz le chou de cette roulette qui roule pas dans VB.

Merci c'est coll ;-))))

Commentaire de azerty25 le 26/05/2004 19:39:38

Ya un probleme, depuis que j'ai installé l'addin, VB6 efface tout seul le clipboard à son démarrage

Commentaire de azerty25 le 26/05/2004 20:54:14

Arf , tu me fait douter maintenant :( Rendez vous à mon prochain formatage alors ! lol

Commentaire de Neo.balastik le 27/05/2004 09:34:43

En fait, toute l'info officielle ainsi que le code de la DLL (par Microsoft) se trouve ici:

http://support.microsoft.com/default.aspx?scid=kb;en-us;837910&Product=vbb

Commentaire de Neo.balastik le 27/05/2004 11:41:54

Bah.. Bill a plus besoin de pub...

Commentaire de galopin01 le 01/11/2004 19:05:09

Bonjour
Je dois être en dessous du débutant moyen
je n'arrive pas à exécuter :
regsvr32 VB6Wheel
le message est LoadLibrary "VB6Wheel" à échoué - le module spécifié est introuvable
J'ai exécuté setup, install...
Ou faut-il mettre VB6Wheel pour qu'il soit trouvé ?
(XP Pro)
Merci

Commentaire de metalcoder le 05/11/2004 23:18:51

Merci, ca marche nickel. Dommage j'aimais bien travailler en mode SDI...

Metalcoder

Commentaire de elisath le 08/11/2004 17:50:12

Super. Depuis le temps que j'attends ce moment. Par contre pour info je n'ai pas de problème sur mon portable qui est en windows 98 et avec intellipoint 4.2. Je n'ai le problème que sur mon PC que depuis XP.

Si tu trouves une solution avec l'environnement SDI je suis preneur car je travailles depuis toujours dans cet environnement.

Commentaire de tontonpolak le 02/07/2005 20:28:24

Magnifique toujours très utile
BRAVO tu mérites 20/10

Commentaire de EBArtSoft le 25/09/2005 17:39:42 administrateur CS

Voila apres tout ces beau commentaire j'ai mis a jour pour accepter l'environement SDI ;)

Commentaire de elisath le 03/10/2005 16:03:03

Autre problème: dès que je bascule d'un programme à un autre et que je reviens sous VB la molette ne fonctionne plus, je suis obligé de relancer VB.

Commentaire de alain91210 le 21/10/2006 13:23:40

Bonjour !

Rien ne se passe sur VBA Access 2003 une fois que j'ai lancé le install.bat.

Ai-je raté qlqchose ?

@+++

Commentaire de arapahoo le 03/12/2006 17:55:05

Trop class !!!
VB6 n'est pas mort des gars comme toi le font évoluer
Merci

Commentaire de mortalino le 22/04/2007 14:55:16

Salut EB,

merci pour ton addon, simple et efficace  ;)
Je bosse sur mon pc portable, jusqu'à présent j'avais le Pad, mais mon bouton gauche commence à merder, donc j'ai branché la souris et avec ton addon, c'est que du bonheur  :D

Juste pour info, toi qui connait très bien VB, pas moyen de tester le VB.IDE dans un projet exécutable ?
Car dans un ActiveX, on ne peut pas tester pas à pas (ou alors, je ne connais pas la combine)
Par exemple, avec VBA Xl, je peux tester pas à pas, et c'est le top.

Merci encore EB,
@++ ;)

Commentaire de Chatbour le 07/09/2007 04:43:57

Salut EBArtSoft, bravo !

Pouvez vous m'expliquer le principe de la solution, le rôle de la dll autrement dit ?

Commentaire de EBArtSoft le 18/01/2008 18:47:01 administrateur CS

Chatbour> La dll sert de complement a l'interface VB c'est egalement une porte d'entré pour notre programme afin qu'il puisse acceder aux donnée de l'IDE. Ainsi on recupere les mouvement de la souris dans les fenetre d'edition puis on transforme en deroulement vertical.

@+

Commentaire de robotsystem le 07/02/2008 14:42:46

Est ce que le touch pad peut poser des problemes de compatibilité?

Commentaire de robotsystem le 08/02/2008 08:48:37

OK, problème résolu en installant les pilotes de la souris.
Merci

Commentaire de saphyp le 12/09/2008 21:51:08

Bonsoir,

  J'achete toujours des chaussures de taille 36, c'est supportable ...
    Mais le fun arrive dans la soirée quand je les enlève. Quel bonheur !!!!

    C'est le même effet.....

    Merci ...... 19.99/19.99 top...

.
.
.
.
.
.
.
PS je chausse du 72......

Commentaire de SnkVrt le 20/11/2009 14:18:11

Merci EBArtSoft, c'est exactemnt ce que je cherchais et ça marche nickel.
Bravo. 10/10

Commentaire de asimengo le 14/02/2010 14:57:01

merci EB, grace aux sources faisant reference à cette source, j'apporte une contribution sur le moyen simple et efficace de recevoir les evenements de la molette et de pouvoir faire l'intégrer aux objets comme datagrid, .., ne le gerant pas. voir http://www.vbfrance.com/codes/UTILISER-ROULETTE-DA NS-VB6-IDE-ADDIN_21802.aspx.

@EB: Neanmoins j'ai pensé à une approche dont je n'ai pas commecencé m'y mettre en seulement 2 jours de travail sur le SubClassing. Celle de rediriger les evenements de la molette sur les evenements mouse (MouseMove, MoveDown, MouseUp) en definissant une constante approprié pour le paramettre "Button" qui permettra de différencier avec les évenements standard.
je suis pour le moment bloqué sur le passage des bon parametre, voir Winproc ci-dessous, as-tu des suggestions a me faire?

Public Function WindowProc(ByVal Hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error GoTo Err_WindowProc
Dim wParam2 As Long, lParam2 As Long

    Select Case uMsg
        Case WM_MBUTTONDOWN:
            wParam2= ...
            lParam2= ...
            WindowProc = CallWindowProc(mlAddressOfWndProc, Hwnd, WM_MOUSEDOWN, wParam2, lParam2)
        Case WM_MBUTTONUP:
            wParam2= ...
            lParam2= ...
            WindowProc = CallWindowProc(mlAddressOfWndProc, Hwnd, WM_MOUSEUP, wParam2, lParam2)
        Case WM_MBUTTONDBLCLK:
            wParam2= ...
            lParam2= ...
            WindowProc = CallWindowProc(mlAddressOfWndProc, Hwnd, WM_MOUSEDOWN, wParam2, lParam2)
        Case WM_MOUSEWHEEL:
            wParam2= ...
            lParam2= ...
            WindowProc = CallWindowProc(mlAddressOfWndProc, Hwnd, WM_MOUSEMOVE, wParam2, lParam2)
        Case Else:
            'Si on est là c'est parcequ'il ya eu subclassing dont mlAddressOfWndProc est valide
            WindowProc = CallWindowProc(mlAddressOfWndProc, Hwnd, uMsg, wParam, lParam)
    End Select

Exit_WindowProc:
    Exit Function
    
Err_WindowProc:
'    MsgBox "Hwnd = " & Hwnd & vbCrLf & _
'        "AddressOfWndProc = " & mlAddressOfWndProc & vbCrLf & vbCrLf & _
'        "Error = " & Err & vbCrLf & _
'        Err.Description
    Resume Exit_WindowProc
End Function

Commentaire de pepere5 le 27/01/2011 16:15:37

Super, je suis persuadé que si elle était plus facule à trouver, tous les amoureux de VB6 l'utiliseraient.
Nos administrateurs devraient en faire la Pub.