Hallo zusammen,
auf einem Win10 64Bit System fahre ich Microsoft Office 365 ProPlus in der 64Bit Version. Die aktuell angezeigte Access Version ist 2002 Build 12527.21952. Als VBA wird Version 7.1 angezeigt.
Es wurde ein Formular erstellt. Dieses Formular beinhaltet einen vertikalen Splitter, wie er auch beim Explorer verwendet wird. Das Formular wird maximiert im Access Fenster dargestellt.
Wird der Splitter verschoben oder das Access Fenster in der Größe (Resize Event) verändert, wird eine Funktion zum Anpassen der Elemente aufgerufen. Ein Element ist das Control Listenfeld (listbox). Dies wird neu positioniert und gegebenenfalls in der Höhe und der Breite angepasst.
Hier liegt das Problem. Nach dem "Resize" der listbox wird die "alte" Listbox aus er Entwurfsansicht weiter angezeigt. Es macht den Anschein, dass die "Entwurfsansicht" nicht gelöscht wird.
Die passiert nicht nur im Resize Event, sondern auch im Activate/Current/Timer Event. Es ist auch egal, ob ich die Listbox mit einer Tabelle verknüpft habe oder sie noch leer ist. Es geht aber, wenn ich das Button Down Event nutze. Dann wird die "alte" Listbox gelöscht und die neue fehlerfrei gezeichnet.
Public Sub mCO_Resize(lngLeft As Long, lngTop As Long, lngWidth As Long, lngHeight As Long)
Dim lngX, lngY, lngW, lngH As Long
With Form_frmMainApp.lstNavigationList
lngX = lngLeft
lngY = lngTop
lngW = lngWidth - clngLeftMargin - clngRightMargin
lngH = lngHeight - clngTopMargin - clngBottomMargin
.Left = lngX
.Top = lngY
.width = lngW
.Height = lngH
End With
End Sub
|