Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof

Dudu2 à dit:

P.S. J'en rigole encore du truc de @jurassic pork !
C'est étrange, j'entends presque la voix de ces acteurs formidables prononcer ces paroles.

Cliquez pour agrandir...

Dudu2 à dit:

Vu qu'il n'y a pas de retour de @patricktoulon, on va supposer que ça fonctionne chez lui car qui ne dit mot consent.

J'ai publié la version V16 encore "améliorée" notamment sur les tests sur le UserForm qui héberge le Control pour tester:
- S'il est chargé (présent ou fermé par ex. Alt + F4)
- Si il est caché (.Hide)
- Si il est minimisé.
Et un petit flag pour ne pas exécuter la fonction si un Scroll est en court (traitement pas terminé). Je ne sais pas si ça sert à quelque chose !

Je me suis rappelé que la moindre référence à une propriété du UserForm (UserForm.Name, UserForm.ListBox1.Visible, etc...) avait pour effet, s'il n'est pas chargé, de charger le UserForm et d'exécuter sa fonction UserForm_initialize().
D'où l'utilisation de cette fonction pour savoir s'il est chargé ou pas:

VB:

'--------------------------------------
'Returns True if the UserForm is loaded
'Warning ! If the argument is <UserForm.Name> it will be loaded and its <UserForm_Initialize>
'          Function executed because refering to a UserForm Property always prior loads it !
'--------------------------------------
Public Function IsUserFormLoaded(UserFormName As String) As Boolean
    Dim UserForm As Object
 
    'Loop through all loaded userforms
    For Each UserForm In VBA.UserForms
        If UCase(UserForm.Name) = UCase(UserFormName) Then Exit For
    Next UserForm
 
    If Not UserForm Is Nothing Then
        'Return value
        IsUserFormLoaded = True
    End If
End Function

Cliquez pour agrandir...

Dudu2 à dit:

Vu qu'il n'y a pas de retour de @patricktoulon, on va supposer que ça fonctionne chez lui car qui ne dit mot consent.

J'ai publié la version V16 encore "améliorée" notamment sur les tests sur le UserForm qui héberge le Control pour tester:
- S'il est chargé (présent ou fermé par ex. Alt + F4)
- Si il est caché (.Hide)
- Si il est minimisé.
Et un petit flag pour ne pas exécuter la fonction si un Scroll est en court (traitement pas terminé). Je ne sais pas si ça sert à quelque chose !

Je me suis rappelé que la moindre référence à une propriété du UserForm (UserForm.Name, UserForm.ListBox1.Visible, etc...) avait pour effet, s'il n'est pas chargé, de charger le UserForm et d'exécuter sa fonction UserForm_initialize().
D'où l'utilisation de cette fonction pour savoir s'il est chargé ou pas:

VB:

'--------------------------------------
'Returns True if the UserForm is loaded
'Warning ! If the argument is <UserForm.Name> it will be loaded and its <UserForm_Initialize>
'          Function executed because refering to a UserForm Property always prior loads it !
'--------------------------------------
Public Function IsUserFormLoaded(UserFormName As String) As Boolean
    Dim UserForm As Object
 
    'Loop through all loaded userforms
    For Each UserForm In VBA.UserForms
        If UCase(UserForm.Name) = UCase(UserFormName) Then Exit For
    Next UserForm
 
    If Not UserForm Is Nothing Then
        'Return value
        IsUserFormLoaded = True
    End If
End Function

Cliquez pour agrandir...

jurassic pork​

​

patricktoulon à dit:

bonjour @abdououbale
cette discussion a pour vocation de parler de méthodes hors hooking et divers moteur de scroll avec le lparam ou delta
si tu veux des renseignements sur ce que tu peux ou pas faire avec sont travail avec hooking de @Dudu2 ouvre ta discussion ou fait lui une demande en MP
merci de ta compréhension

Cliquez pour agrandir...

patricktoulon à dit:

re
pour répondre a ta question ou c'est possible et cela avec une méthode ou une autre
et cela sans besoins de connaitre le nom de la combobox
il suffit d'instancier des classe avec un module classe gérant les event des combobox
et d'appeler le scroll (methode ou l'autre) a partir de cet event dans la classe
malheureusement des l'ouverture de ton fichier j'ai une erreur de "chemin inrouvable"

cela dit la question n'est pas vraiment la possibilité de scroller mais de pouvoir piloter le scroll de plusieurs combobox

je t'ai donc fait un exemple vite fait comme ça
: dans le userform j'ai 6 comboboxs
pour identifier les combobox a intégrer dans la la classe je les ai tagué avec "x"
j'ai ajouté un module classe (on ne peut plus simple)qui va gérer l'event mouse move pour déclencher la capacité du scroll
au départ dans le activate du userform e donne un exemple (on ne peut plus simple encore )de classer X combobox )

a l'affichage toute les combobox ont le scroll avec la roulette

voila c'est assez simple et vu le code fourni dans ton fichier je pense que c'est a ta portée
si c'est pas le cas il faudra ouvrir une discussion sur ton vrai problème qui est l'intégration de control dans un module classe gérant les events

A noter que dans cet exemple les combobox existent déjà et il est possible de faire la même chose avec des combobox créées dynamiquement l'intégration se ferait alors lors de leur création
et avec une collection on peut le faire a tout moment
voila
patrick

Cliquez pour agrandir...

Merci énormément pour tout. mais ça ne fonctionne pas

Cliquez pour agrandir...

abdououbale à dit:

Merci énormément pour tout. mais ça ne fonctionne pas

Cliquez pour agrandir...

Nathe à dit:

Bonjour à tous,
est-ce compatible avec les contrôle de formulaire ?? , je n'ai pas testé, vu que les macs n'accepte pas l'ActiveX
Nathe

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour à tous voici une belle découverte
qui va rendre obsolète( tout du moins pour les userform ) toutes méthodes de scrolling vu a ce jour
en test et expérience pour le moment
les frames et listbox pas de problème (ne fonctionne pas pour les combobox mais je cherche )

en gros le principe
instancier un events object InkCollector
activer son scroll
et se servir de son event "IC_MouseWheeL "scroller les autres controls

VB:

Private WithEvents IC As MSINKAUTLib.InkCollector
Public mycontrol As Control
Dim handle As Long

Private Sub UserForm_Activate()
    ListBox1.List = Evaluate("row(1:30)")
    ComboBox1.List = Evaluate("row(1:30)")
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    'stop the scrolling when you leaves control
    ' destruction of object IC
    Set IC = Nothing
End Sub

'I CAN TAKE A FRAME1 HANDLE FOR ALL CONTROLS
'THE HANDLE IS JUST A REFERENCE  FOR THE IC OBJECT
'handle = Frame1.[_GethWnd]


Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    handle = Frame1.[_GethWnd] 'it take a handle of frame because combobox has not disponible handle
    Set mycontrol = ComboBox1
    mycontrol.SetFocus
    SetupMouseWheel
End Sub

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    handle = Frame1.[_GethWnd]
    Set mycontrol = Frame1
    mycontrol.SetFocus
    SetupMouseWheel
End Sub

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    handle = Frame1.[_GethWnd] 'handle = ListBox1.[_GethWnd]' this two can work
    Set mycontrol = ListBox1
    mycontrol.SetFocus
    SetupMouseWheel
End Sub

Private Sub SetupMouseWheel()
    Set IC = New MSINKAUTLib.InkCollector
    With IC
        .hwnd = handle ' The InkCollector requires an 'anchor' hWnd
        .SetEventInterest ICEI_MouseWheel, True ' This sets event that you want to listen for
        .MousePointer = IMP_Arrow ' If this is not set, the mouse pointer disappears
        .DynamicRendering = False ' I suggest turning this off
        .DefaultDrawingAttributes.Transparency = 255 ' And making the drawing fullly transparent
        .Enabled = True ' This must be set last
    End With
End Sub

Private Sub IC_MouseWheel(ByVal Button As MSINKAUTLib.InkMouseButton, ByVal Shift As MSINKAUTLib.InkShiftKeyModifierFlags, ByVal Delta As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean)
    Select Case True
        Case TypeOf mycontrol Is Frame
            If Delta > 0 Then
                Frame1.ScrollTop = Application.Max(0, Frame1.ScrollTop - 5)
            Else
                Frame1.ScrollTop = Application.Min(Frame1.ScrollHeight, Frame1.ScrollTop + 5)
            End If
        
        Case TypeName(mycontrol) = "ListBox"
            If Delta > 0 Then
                ListBox1.TopIndex = Application.Max(ListBox1.TopIndex - 1, 0)
            Else
                ListBox1.TopIndex = Application.Min(ListBox1.TopIndex + 1, ListBox1.ListCount - 1)
            End If
        
        Case TypeName(mycontrol) = "ComboBox"
            If Delta > 0 Then
                ComboBox1.TopIndex = Application.Max(ComboBox1.TopIndex - 1, 0)
            Else
                ComboBox1.TopIndex = Application.Min(ComboBox1.TopIndex + 1, ComboBox1.ListCount - 1)
            End If
    End Select
End Sub

En tout cas c'est très prometteur
pas de looping en adressof ou pas
l'event est en interne donc pas de vba tournant en arrière plan

Cliquez pour agrandir...