XL 2019 Molette Scroll sur ListBox

Dudu2

XLDnaute Barbatruc

• 24 Octobre 2022

• #31

ben met un unhook au move du parent c'est tout

Cliquez pour agrandir...

Oui je comprends ce que tu veux faire.

Mais ça m'ennuie de devoir mettre des UnHook. Le UnHook doit se faire tout seul à la sortie de la zone directement dans la fonction de Hook qui appelle la fonction de positionnement pour à chaque fois savoir si elle doit continuer ou stopper le Hooking.
D'ailleurs le UnHook se fait. Mais c'est ma zone qui semble décalée. Faut que je vérifie. Mais là j'ai pas trop le temps.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2022

• #32

Bonjour @Dudu2
je fouille dans mes vieux truc et ...je retrouve des truc que j'avais complètement zappé
et si je te proposais de savoir zoner le rectangle de la listbox en pixel ?
1°connaître directement le handle de la listbox
2°déterminer le rectangle avec la même api "getwindowrect"
3° tu pourrais contrôler simplement la position avec getcursorpos

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #33

Salut @patricktoulon,
Alors ça oui, ce serait super !
Plus besoin de faire des calculs complexes.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2022

• #34

je te fait un exemple comme ca vite fait donne moi 5 minutes

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #35

Pas de souci, prends ton temps. Je bosse sur un truc en parallèle.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2022

• #36

dans cet exemple j'ai deux listbox dans le userform
au move de celles ci de détermine leur handle et leur le rect
dans cet exemple je me sert aussi du move du userform (c'est juste pour l'exemple)
mais le changement se fait grace au rect et getcursorpos

comme dans la fonction en adressof pour la molette cette fonction tourne tant que on l’arrête pas ben tu met ca dans celle ci
et voilà tu n'a plus besoins du parent move
les seuls move sont celle des listbox qui le démarre
et le unhook seulement s’appellera dans la fonction de hook (c'est rigolo non)
userform de démonstration pour déterminer les rect des listbox

je t'ai fait ca vite fait mais le principe est là

 

Pièces jointes

• test handle Rectangle listbox.xlsm

  17.2 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2022

• #37

ca y est je l'ai adapté a mon model mollete (listebox frame combobox) et ca match pour les listbox et frame
sauf pour la combobox bien évidemment car le rectangle qui est donné donne le rectangle(combo non développé) çà c'est dommage
il faut soit exepter les combo soit rectifier le rectangle( le bottom )par listrow*font.size*1.25

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #38

@patricktoulon, question sans rapport.
Est-ce que tu sais déterminer si un UserForm est appelé par un autre UserForm ?
Rapport à ça -> https://excel-downloads.com/threads/vba-tcd-questions-diverses.20071393/post-20542927

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #39

Nan, laisse tomber la question, j'ai peut-être une solution car je passe par un Public Function du UserForm pour l'afficher et donc dans cette fonction je connais le Handle qui l'appelle.
De toutes façons, les Parents des UserForms qui s'empilent c'est toujours l'application Excel, jamais le UserForm de niveau précédent.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2022

• #40

re
oui moi aussi j'utilise une variable public

De toutes façons, les Parents des UserForms qui s'empilent c'est toujours l'application Excel, jamais le UserForm de niveau précédent.

Cliquez pour agrandir...

sauf si tu fait un setparent pour affilier le usf2 a l'usf 1(appelant)

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #41

ok je vais faire ça.
Au moment de l'appel de la fonction publique, je capte le Handle de l'appelant et dans l'activate du Usf2 je le définis comme parent.
Si l'appelant est la Window, ça restera la Window.
Si c'est le Usf1, il deviendra le parent au lieu de la Window.

Mais j'ai des comportements très étranges car différents. Car jusque maintenant ça marchait sans que je fasse rien et maintenant non. Ça vient d'arriver là, sur un nouveau UserForm ! Et les anciens fonctionnent.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #42

Le Usf2 il accepte pas de passer de passer sous le Usf1.
Là je suis bien dans la m... Toute mon appli est basée sur ces outils. Une grosse appli.
Et là bizarrement un truc se dérègle dans les retour de UserForm et je suis bloqué.

Demain je vais essayer de réduire le problème dans un fichier pour tester et que tu voies si tu as des idées.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #43

J'ai aussi essayé un SetForeGroundWindow à la sortie du Usf2 pour revenir sur Usf1 mais ça provoque des interruptions. La m...

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 25 Octobre 2022

• #44

J'ai un petit espoir avant d'aller dormir !
il SEMBLE qu'un truc comme ça à la fin de la Fonction Publique fonctionne et ne fasse plus d'interruption (il faut dire que j'utilise souvent ESC pour sortir des UserForm et là j'ai dû collisionner).

VB:

    'Activate le Caller
    Application.EnableCancelKey = False
    SetForegroundWindow MsgBoxPerso_CallingHandle
    Application.EnableCancelKey = True

Je touche du bois et je verifierai demain.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Octobre 2022

• #45

re

Le Usf2 il accepte pas de passer de passer sous le Usf1.

Cliquez pour agrandir...

ca ca n'est pas possible si un usserform est affilé avec setparent il devient un control du parent il se loge dans le inside
il ne peut donc pas passer en dessous

 

Vote positif 0 Vote négatif