Office: (Office 2007) Scrollen per Maus-Scrollrad in Textbox möglich?

neckit · 4. November 2009

Hallo,

in meinem Formular habe ich die Form-Eigenschaft "Zyklus" auf "Aktueller Datensatz" eingestellt und die Textbox-Eigenschaft "Bildlaufleisten" auf "vertikal".

Ich hatte gehofft, das mit diesen Einstellungen das Scrollen in einer Textbox mit Hilfe des Maus-Scrollrads möglich ist - sobald die Textbox den Focus erhält". Unter Access 2007 scheinen diese Einstellungen aber nicht auszureichen.

Ist das pauschal nicht mehr möglich oder habt Ihr eine Lösung für mich?

Danke für eure Hilfe.

Gruß
Ralf

:)

neckit · 6. November 2009

Nach meinen eigenen Recherchen scheint das Scrollen per Mausrad in einer Textbox - ab Access 2007 - tatsächlich nicht mehr möglich zu sein. *mad.gif*

Es gibt lediglich zwei Workarounds die aber beide nicht wirklich optimal sind.

Workaround 1: hier wird der Cursor bewegt, was zu einem etwas ungewohnten Scrollverhalten führt.
Code:

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
If Count > 0 Then
If Screen.ActiveControl.Name = "meineTextBox" Then
If InStr(Me.meineTxtBox, Chr(13)) + 1 < Len(Me.meineTxtBox) Then
Me.meineTxtBox.SelStart = Me.meineTxtBox.SelStart + InStr(Me.meineTxtBox, Chr(13)) + 1
End If
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Workaround 2: arbeitet mit Sendkeys (Achtung! Unter Vista funktioniert SendKeys nicht - hier ist dann eine im Forum kursierende SendKey-Variante einzusetzen)
Code:

meineTxtBox.SetFocus
Select Case Count
Case Is > 0
SendKeys "{DOWN 4}", True
Case Is < 0
SendKeys "{UP 4}", True
End Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie gesagt, beide Varianten verhalten sich nicht wirklich so, wie man es von einem Scrollen per Mausrad gewöhnt ist - aber wenigsten sind es mögiche Alternativen.

Oder hat vielleicht noch jemand einen ausgereifteren Workaround (z.B. über API) ?

Gruß Ralf

Josef P. · 6. November 2009

Eine API-Variante könnte so aussehen:
Code:

'Scroll-Richtung
Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115

' Scroll-Variante
Private Const SB_LINEUP = 0
Private Const SB_LINELEFT = 0
Private Const SB_LINEDOWN = 1
Private Const SB_LINERIGHT = 1
Private Const SB_PAGEUP = 2
Private Const SB_PAGELEFT = 2
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGERIGHT = 3
Private Const SB_THUMBPOSITION = 4
Private Const SB_THUMBTRACK = 5
Private Const SB_TOP = 6
Private Const SB_LEFT = 6
Private Const SB_BOTTOM = 7
Private Const SB_RIGHT = 7
Private Const SB_ENDSCROLL = 8

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Sub eineZeileNachUnten()
If KeyCode = vbKeyDown Then
Dim hwnd As Long
hwnd = GetControl(Me, GetDetailSection(Me.hwnd), "OKttbx", "txtDeinTextfeld")
SendMessage hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anm.: GetControl und GetDetailSection sind Hilfsfunktionen, die wiederum API-Funktionen einsetzen.
Eine Vielzahl an solchen Hilfsfunktionen findest du im AEK10-Download zum Thema API von Jörg Ostendorp.

neckit · 6. November 2009

Hallo Josef,

das werde ich doch heute gleich mal ausprobieren und mich dann melden, ob es damit wie gewünscht funzt.

Danke!

Gruß
Ralf Müller

Thomas Möller · 7. November 2009

Hallo Ralf,

ich habe unlängst auf Grund einer Frage in der MS-Newsgroup eine Beispieldatenbank zu just diesem Thema bereitgestellt.

Den Download findest Du hier:
http://www.team-moeller.de/?Download...olltInMemofeld

HTH

neckit · 7. November 2009

Es klappt jetzt perfekt - ich bin begeistert *grins

Ich habe anhand Josefs Tip, den unten aufgeführten Code zusammengestellt, den ich nun nur noch als Klasse oder Modul einfügen muss, und dann ganz unkompliziert in meiner Form aufrufen kann:

Code:

Option Compare Database
Option Explicit

'Scroll-Richtung
Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115

' Scroll-Variante
Private Const SB_LINEUP = 0
Private Const SB_LINELEFT = 0
Private Const SB_LINEDOWN = 1
Private Const SB_LINERIGHT = 1
Private Const SB_PAGEUP = 2
Private Const SB_PAGELEFT = 2
Private Const SB_PAGEDOWN = 3
Private Const SB_PAGERIGHT = 3
Private Const SB_THUMBPOSITION = 4
Private Const SB_THUMBTRACK = 5
Private Const SB_TOP = 6
Private Const SB_LEFT = 6
Private Const SB_BOTTOM = 7
Private Const SB_RIGHT = 7
Private Const SB_ENDSCROLL = 8

Private Type POINTAPI
X As Long
y As Long
End Type

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ClientToScreen Lib "user32.dll" ( _
ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long

Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Function GetControl(frm As Access.Form, ByVal sHwnd As Long, ByVal ClassName As String, ByVal ControlName As String) As Long
'Ermittelt den Handle eines beliebigen Controls

On Error Resume Next
Dim h As Long
Dim obj As Object
Dim pt As POINTAPI

h = 0
Do
'Erstes (h=0)/nächstes (h0) Control auf dem Sektionsfenster ermitteln
h = FindWindowEx(sHwnd, h, ClassName, vbNullString)

'Bildschirmkoordinaten dieses Controls ermitteln
'dafür die Punktkoordinaten aus dem letzten Durchlauf zurücksetzen, sonst wird addiert!
pt.X = 0
pt.y = 0
ClientToScreen h, pt

'Objekt bei den Koordinaten ermitteln
Set obj = frm.accHitTest(pt.X, pt.y)

'Wenn Objektname = Tabname Ausstieg aus der Schleife
If obj.Name = ControlName Then
Exit Do
End If
Loop While h 0

'Handle zurückgeben
GetControl = h

End Function

Private Function GetHeaderSection(ByVal fHwnd As Long) As Long
'Ermittelt den Handle für den Kopfbereich eines Formulares

Dim h As Long

'Erstes "OFormsub"-Kindfenster des Formulares (fhwnd) ermitteln
h = FindWindowEx(fHwnd, 0&, "OformSub", vbNullString)
GetHeaderSection = h

End Function

Private Function GetDetailSection(ByVal fHwnd As Long) As Long
'Ermittelt den Handle für den Detailbereich eines Formulares

Dim h As Long

'Erstes "OFormsub"-Kindfenster des Formulares (fhwnd) ermitteln, beginnend nach dem Kopfbereich
h = GetHeaderSection(fHwnd)
h = FindWindowEx(fHwnd, h, "OformSub", vbNullString)
GetDetailSection = h

End Function

Public Sub sbVScrollDown(ByVal myForm As Form, ByVal myTextboxName As String)
Dim hwnd As Long
hwnd = GetControl(myForm, GetDetailSection(myForm.hwnd), "OKttbx", myTextboxName)
SendMessage hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End Sub

Public Sub sbVScrollUp(ByVal myForm As Form, ByVal myTextboxName As String)
Dim hwnd As Long
hwnd = GetControl(myForm, GetDetailSection(myForm.hwnd), "OKttbx", myTextboxName)
SendMessage hwnd, WM_VSCROLL, SB_LINEUP, 0&
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Von Thomas habe ich dann noch die Anregung aufgegriffen, bei Cursorposition ausserhalb der Textbox das Scrollen auf die Datensätze umzulegen.
In der gewünschten Form muss ich dann nur noch folgenden Code vorsehen :
Code:

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dim hwnd As Long

On Error Resume Next
If Screen.ActiveControl.Name = "meineTextbox" Then
If Count > 0 Then
clsMouseScrollInTxtBox.sbVScrollDown Me, "meineTextbox"
End If
If Count < 0 Then
clsMouseScrollInTxtBox.sbVScrollUp Me, "meineTextbox"
End If
Else
If Count > 0 Then RunCommand acCmdRecordsGoToNext
If Count < 0 Then RunCommand acCmdRecordsGoToPrevious
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So einfach liebe ich es *cool.gif*

Nochmals Danke an Euch - Ihr seit Spitze!

Gruß
Ralf Müller

HerrBär · 12. November 2009

Hallo Ralf, Josef und Thomas

ich habe genau dasselbe Problem, das Du, Ralf, schon gelöst hast:
Ich arbeite mit Access 2007 und möchte in einem Textfeld mit der Maus scrollen, soweit dieses Feld den Focus hat, wenn nein, sollen die Datensätze gescrollt werden.

Da Ralf seinen Code netterweise ins Forum gestellt hat, hab ich versucht, ihn zu übernehmen, die Anpassung gelingt mir als Amateur aber nicht (ich verstehe nichts von API). Ich schreib' mal relativ detailliert, wie ichs versucht habe:

1. Den ersten Code-Teil von Ralf (im Thread #6) habe ich als Klassenmodul in meine DB eingefügt und als "clsMouseScrollInTxtBox" benamst (zur Benennung siehe dann den zweiten Code-Teil).
Das Textfeld, in dem ich mit der Maus scrollen möchte heißt "Forms!Hauptformular!FbText"
weshalb ich die beiden Prozeduren am Ende des neuen Klassenmoduls folgendermaßen verändert habe.

Code:

Public Sub sbVScrollDown(ByVal Hauptformular As Form, ByVal FbText As String)
Dim hwnd As Long
hwnd = GetControl(Hauptformular, GetDetailSection(Hauptformular.hwnd), "OKttbx", FbText)
SendMessage hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End Sub

Public Sub sbVScrollUp(ByVal Hauptformular As Form, ByVal FbText As String)
Dim hwnd As Long
hwnd = GetControl(Hauptformular, GetDetailSection(Hauptformular.hwnd), "OKttbx", FbText)
SendMessage hwnd, WM_VSCROLL, SB_LINEUP, 0&
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

2. Den zweiten Code-Teil von Ralf (im Thread #6) hab ich so in den Code meines Hauptformulars eingefügt:
Code:

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Dim hwnd As Long

On Error Resume Next
If Screen.ActiveControl.Name = "FbText" Then
If Count > 0 Then
clsMouseScrollInTxtBox.sbVScrollDown Me, "FbText"
End If
If Count < 0 Then
clsMouseScrollInTxtBox.sbVScrollUp Me, "FbText"
End If
Else
If Count > 0 Then RunCommand acCmdRecordsGoToNext
If Count < 0 Then RunCommand acCmdRecordsGoToPrevious
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergebnis: Wenn ich scrolle, bekomme ich die Fehlermeldung (in Bezug auf "clsMouseScrollInTxtBox" in der Prozedur Form_MouseWheel): "Fehler beim Kompilieren: Variable nicht definiert". Füge ich die Zeile "Dim clsMouseScrollInTxtBox as Module" (daher die Benamsung) moniert Access in Bezug auf ".sbVScrollDown": "Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden".

Auch die Lösung von Thomas hab ich ausprobiert. Da funktioniert das Scrollen wie gewünscht, aber die Datenbank wird instabil, meine nach dem Einbau, aber auch schon die Demo-Datenbank selbst. Die oberste Leiste des Editors 'zappelt' und der Wechsel von Editor Formularansicht Entwurfsansicht lässt die DB abstürzen.

Ich bin für jeden Tipp dankbar

Gruss
Herbert

Thomas Möller · 7. Januar 2021

Hallo Herbert,

von HerrBär

Auch die Lösung von Thomas hab ich ausprobiert. Da funktioniert das Scrollen wie gewünscht, aber die Datenbank wird instabil, meine nach dem Einbau, aber auch schon die Demo-Datenbank selbst. Die oberste Leiste des Editors 'zappelt' und der Wechsel von Editor Formularansicht Entwurfsansicht lässt die DB abstürzen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

was Du hier siehst und erlebst sind die üblichen Nachteile des Sub-Classings. Wenn Du Deinen Anwendung öffnest ohne in den VBA-Editor zu wechseln, wirst Du keines der Probleme haben. Diese treten nur in Verbindung mit dem geöffneten VBA-Editor auf.

CU

HerrBär · 15. November 2009

Hallo Thomas,

Dank für Deine Antwort! Wenn ich sie recht verstehe, lässt sich dieser Nachteil des Sub-Classings kaum umgehen.

Die fragliche DB ist ein privates Projekt und daher in ständiger Entwicklung, d.h. ich ich muss immer wieder in den Editor wechseln.

Gruss
Herbert

Thomas Möller · 7. Januar 2021

Hallo Herbert,

von HerrBär

Dank für Deine Antwort! Wenn ich sie recht verstehe, lässt sich dieser Nachteil des Sub-Classings kaum umgehen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich habe jetzt in meine Beispieldatenbank die Bedingte Kompilierung eingebaut. Damit lässt sich der Nachteil umgehen.

Während der Entwicklung wird das Sub-Classing, gesteuert über die Argumente zur Bedingten Kompilierung, deaktiviert.

Wenn es in den Produktivbetrieb übergeht werden die Argumente für die Bedingte Kompilierung angepasst und das Sub-Classing wieder eingeschaltet.
(Was genau zu tun ist steht als Kommentar im VBA-Code.)

HTH

Office: (Office 2007) Scrollen per Maus-Scrollrad in Textbox möglich?

Scrollen per Maus-Scrollrad in Textbox möglich?

Scrollen per Maus-Scrollrad in Textbox möglich?

Scrollen per Maus-Scrollrad in Textbox möglich?

Scrollen per Maus-Scrollrad in Textbox möglich?

Scrollen per Maus-Scrollrad in Textbox möglich? - Similar Threads - Scrollen Maus Scrollrad

commandbutton fließend auf dem Tabellenblatt einrichten

Formular in Entwurfsansicht nur teilweise Scrollbar

Scrollen verhindern

Probleme mit Scrollen einiger Arbeitsblätter einer Excel Datenbank mit Makros

Synchroner Bildlauf bei Scrollen mit Maus

Scrollen mit der Maus abschalten

Scroll-Funktion der Maus in Access deaktivieren