Roulette souris avec Vb6Résolu

Question

Bonjour,

Je n'ai pas réussi à faire fonctionner correctement le 
contôle SNA_WHEEL avec le tableur MSFLEXGRID.
La roulette n'agit que dans un sens (vers le bas)
Merci de votre aide

PCPT · Accepted Answer

salut,

le même titre en recherche de "codes sauf dotnet" au lieu de le taper pour poser la question t'aurait directement mené à plusieurs sources corrigeant cette lacune qu'a VB6

bonnes recherches

[hr]

Renfield · Answer

je ne connais pas ce controle.

nénamoins, il suffit de faire du subclassing sur le flexgrid pour traper WM_MOUSEWHEEL, calculer le Delta  (vitesse et sens de defilement)
et générer a notre tour un Message indiquant un Scroll...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lionyz · Answer

Re Bonjour
J'ai testé le module MoletteSouris trouvé à

Renfield · Answer

tu as ajoute le TLB a ton projet ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lionyz · Answer

Bonjour

Non je l'ai simplement mis dans le répertoire de l'application
Faut-il le mettre dans Windows\System32 , l'enregistrer et l'utiliser
comme un controle ?
merci

Renfield · Answer

pas comme controle, mais dans les references du projet

l'enregistrer, oui, mais ca se fera tout seul en l'ajoutant via le menu Projet  > References


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lionyz · Answer

Bonjour,


J'ai intégré le fichier Wheel.tlb dans les références du projet et il n'y a plus de procédure non définie

Par contre la conclusion de la page 'UTILISATION MOLETTE ROULETTE SOURIS' précise d'attacher le fichier à un contrôle
(exemple ci-dessous)
Le mot mshflexgrid1 est en 2 parties (frmMain.MSHFlex Grid1) ce qui provoque une erreur
J'ai essayé en supprimant l'espace, il n'y a plus d'erreur mais la roulette n'est pas activée
De plus je ne sais pas très bien ou l'instruction call doit être placée dans le programme.
Merci d'avance de votre aide.



'Concusion

référencer le fichier wheel.tlb d'EBArtSoft@ (in the zip)

Par exemple vous voulez l'attacher à un mshflexgrid nommé mshflexgrid1 dans une form nommé frmMain, alors faites :

    Call ActiverMoletteEtDéfinirObjetScroll(frmMain.MSHFlex Grid1)'

PCPT · Answer

tu parles d'une source en particulier, le mieux est alors de t'adresser directement à son auteur

++

Roulette souris avec Vb6

8 réponses

Votre réponse

Discussions similaires