[VBA] Problem mit Scrollbars

[WingX]

VBA Problem mit Scrollbars

Folgendes Problem: Ich hab ein Formular in Access mit 2 Listenfeldern. Der Inhalt geht bei beiden nach rechts über die Grenze hinaus.
Es ist eine Ergebnisübersicht, die übereinander zugehörige Gruppen darstellen.
Nun soll, wenn bei einer Box die Scrollbar gezogen wird,
die andere Listbox folgen...

Wie kann ich die Scrollbars abfragen bzw. setzen?

 

[Toaster]

Hi,

schwer zu sagen, kannst du mal ein Demo machen wie das bei dir aussieht, dann kann ich mal schauen ob man da rankommt.

Gruß

Toaster

 

[MeLLe]

Du koenntest im einfachsten Fall z.B. bei den Ereignissen KeyDown/Up/Pressed oder MouseMove/Up/Down (je nachdem, muesste man probieren!) der jeweligen ListBox folgenden Code nutzen, um zumindest die Auswahl mitzuscrollen:

Private Sub Liste1_MouseDown(...)
        Liste2.ListIndex = Liste1.ListIndex
End Sub

Private Sub Liste2_MouseDown(...)
        Liste1.ListIndex = Liste2.ListIndex
End Sub

Wenn das nicht reicht meld Dich nochmal