Excel 2010-UserForm - Formular nicht scrollen mit Mausrad

Ich habe eine UserForm, die ich angelegt habe in Excel 2010 mit VBA. Steuerelemente zum Formular Hinzugefügt programmgesteuert basierend auf Daten aus einem bestimmten Blatt. Mein code fügt alle Bedienelemente und bestimmt dann, wenn das Formular zu lang. Wenn es ist, dann ist die form festgelegt wird, bis zu einer Höhe von 500 Pixel und scrollen aktiviert ist.

Die scrollbars angezeigt werden und funktionieren wie erwartet, wenn Sie auf den Scrollbalken, aber das Maus-Scrollrad hat keine Auswirkungen auf den Scrollbalken auf der form.

Ich habe nicht gesehen, alle Eigenschaften, die für die Aktivierung der Maus-Rad scrollen. Jeder Artikel, den ich gefunden habe auf Google Punkte Bildlauf-Steuerelemente innerhalb einer UserForm (ListBox, ComboBox, etc.) und nicht die UserForm selbst. Andere Artikel, die ich gefunden habe, datiert zurück zu Excel 2003 nicht unterstützt scrollen mit dem Mausrad aus der box.

Hat jemand eine Idee, was hier Los ist?

Hier ist der code wo ich den Bildlauf aktivieren:

If Me.height > 500 Then
    Me.ScrollHeight = Me.height
    Me.ScrollBars = fmScrollBarsVertical
    Me.KeepScrollBarsVisible = fmScrollBarsVertical
    Me.height = 500
    Me.Width = Me.Width + 12
End If

Ich bin mit Excel 2010 (32-bit) auf einem Windows 7 64bit laptop. In der gleichen Ausgabe erschienen, die auf anderen Computern laufen auch das gleiche setup. Ich don ' T haben Zugang zu einer anderen Konfiguration zu testen.

haben Sie gesehen, und/oder überprüft diese SO Q&A
Ich habe, SO Frage. Ich nicht beziehen sich auf die UserForm selbst, und statt die OP versucht, Blättern Sie ein Steuerelement im Formular. Ich bin neu in VBA, aber ich habe mit .Net und anderen Sprachen, wo ein Bildlauf in einem control-vs-scrolling-form sind sehr verschiedene Dinge.

InformationsquelleAutor Brian | 2013-07-15

  1. 2

    Können Sie bekommen, es funktioniert nur auf 32-bit-Excel. Der code wird nicht kompiliert und laufen alle unter 64-bit-Excel. Obwohl ich gemacht (bisschen komplizierter) version, ist kompatibel mit 32-bit und 64-bit, aber es einfach nicht scrollt auf 64-bit, aber wenigstens kompiliert (bitte lassen Sie mich wissen, wenn jemand muss, dass 64-bit-kompatibel code).

    So erstellen Sie ein neues Modul und füge dort code für die WinAPI-Aufrufe:

    Option Explicit 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
      (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
      (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE As Long = (-16)           'The offset of a window's style
Private Const WS_SYSMENU As Long = &H80000        'Style to add a system menu
Private Const WS_MINIMIZEBOX As Long = &H20000    'Style to add a Minimize box on the title bar
Private Const WS_MAXIMIZEBOX As Long = &H10000    'Style to add a Maximize box to the title bar
'To be able to scroll with mouse wheel within Userform
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _
    ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Const GWL_WNDPROC = -4
Private Const WM_MOUSEWHEEL = &H20A
Dim LocalHwnd As Long
Dim LocalPrevWndProc As Long
Dim myForm As UserForm
Private Function WindowProc(ByVal Lwnd As Long, ByVal Lmsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'To handle mouse events
Dim MouseKeys As Long
Dim Rotation As Long
If Lmsg = WM_MOUSEWHEEL Then
    MouseKeys = wParam And 65535
    Rotation = wParam / 65536
    'My Form s MouseWheel function
'=================================================================
    YOUR_USERFORM_NAME_HERE.MouseWheel Rotation
'=================================================================
End If
WindowProc = CallWindowProc(LocalPrevWndProc, Lwnd, Lmsg, wParam, lParam)
End Function
Public Sub WheelHook(PassedForm As UserForm)
'To get mouse events in userform
On Error Resume Next
Set myForm = PassedForm
LocalHwnd = FindWindow("ThunderDFrame", myForm.Caption)
LocalPrevWndProc = SetWindowLong(LocalHwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub WheelUnHook()
'To Release Mouse events handling
Dim WorkFlag As Long
On Error Resume Next
WorkFlag = SetWindowLong(LocalHwnd, GWL_WNDPROC, LocalPrevWndProc)
Set myForm = Nothing
End Sub

    Und fügen Sie dann einen einfachen code, der auf Ihrem Benutzerformular,... (vergessen Sie nicht zu ersetzen "frames_(mouseOverFrame_)") mit dem Namen Ihres UI-Steuerelement, das Sie wollen, um zu Blättern.

    Public Sub MouseWheel(ByVal Rotation As Long)
'************************************************
' To respond from MouseWheel event
' Scroll accordingly to direction
'
' Made by:  Mathieu Plante
' Date:     July 2004
'************************************************
Select Case frames_(mouseOverFrame_).ScrollTop - Sgn(Rotation) * 18
Case Is < 0
frames_(mouseOverFrame_).ScrollTop = 0
Case Is > frames_(mouseOverFrame_).ScrollHeight
frames_(mouseOverFrame_).ScrollTop = frames_(mouseOverFrame_).ScrollHeight
Case Else
frames_(mouseOverFrame_).ScrollTop = frames_(mouseOverFrame_).ScrollTop - Sgn(Rotation) * 18
End Select
End Sub

    , Weil ich wollte, um zu Blättern drei verschiedene frames (je nachdem, welcher Rahmen ist derzeit unter Maus-cursor) - ich habe eine Sammlung von drei frames und verwendet "MouseMove" - Ereignis in jedem Bild zuweisen frame-Nummer zu "mouseOverFrame_" variable. Also wenn sich die Maus bewegt, z.B. über den 1. frame, der scroller wird wissen, welcher frame zu scrollen, indem Sie mit "1" innerhalb "mouseOverFrame_" variable...

    InformationsquelleAutor alexkovelsky

Schreibe einen Kommentar