Bonjour,
J'ai un code que j'avais fait avec une des premières versions de Windev 9 (avant les mise à jour). Ce code marchait !
C'était un truc pour le controle de la roulette souris, donc l'évenement WM_MOUSEWHEEL.
En fait quand j'utilisais ma roulette sur la fenetre ça scrollait toutes les tables de ma fenetre. Ca ne marche plus.
Après des tas d'essais je me suis rendu compte que pour que ça marche je dois copier l'ancienne dll WD90OBJ.dll et la copier à la place de la nouvelle quand je compile mon code !
Quelqu'un a-t-il une explication ???
Merci d'avance,
JF
PS : Mon code est le suivant (si je mets des points d'arret dasn l'évnèment il ne passe pas dedans !!)
dans Roulette souris (WM_MOUSEWHEEL) de Fen_Tables :
sens est une entier
numligne, numlignebas est un entier
i, x, y est un entier
sens = PoidsFort(_EVE.wParam)
//on récupère le numéro de ligne de la première ligne visible
x=2
y=2
numligne = TableInfoXY(Salle1,tiNumLigne ,x ,y)
SI sens > 0 ALORS//sens est positif, la roulette monte sinon elle descent
SI numligne > 6 ALORS
TablePosition(TableHoraire,numligne-6)
POUR i=1 A NbSalles
TablePosition({"Table"+i},numligne-6)
FIN
SINON
TablePosition(TableHoraire,1)
POUR i=1 A NbSalles
TablePosition({"Table"+i},1)
FIN
FIN
SINON
//on récupère le numéro de ligne de la dernière ligne visible
x=2
y=Salle1..Hauteur-10
numlignebas = TableInfoXY(Salle1,tiNumLigne ,x ,y)
SI numlignebas < NbPlagesHoraire-6 ALORS
TablePosition(TableHoraire,numligne+6)
POUR i=1 A NbSalles
TablePosition({"Table"+i},numligne+6)
FIN
SINON
TablePosition(TableHoraire,numlignebas)
POUR i=1 A NbSalles
TablePosition({"Table"+i},numlignebas)
FIN
FIN
FIN |