Office: (Office 2019) Listbox wird nicht breiter, Schriftgrösse ändert sich

Die Listbox reagiert, da der Rechenaufwand intern offensichtlich recht hoch ist mit gelegentlichem Ignorieren. Dies kann man in deinem Beispiel mit DoEvents regeln. Da wird die Prozedur angehalten bis die interne Berechnung durch ist.
Änderung im Modul des Userforms:

Code:

Else
        'DoEvents   ' falls erforderlich
        Me.Frame_Daten.Width = Me.InsideWidth
        DoEvents
        Me.lst_Daten.Width = Me.Frame_Daten.Width - Me.lst_Daten.Left - Me.lst_Daten.Left
        lngWidthCol_2_3_4_5 = Me.lst_Daten.Width - 70
        arrSp(2) = lngWidthCol_2_3_4_5 * 0.6
        arrSp(3) = lngWidthCol_2_3_4_5 * 0.2
        arrSp(4) = lngWidthCol_2_3_4_5 * 0.2
    End If

ins Modul Monitor:

Code:

Option Explicit

Public Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongPtr, ByVal nIndex As Long) As Long
Public Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Public Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hcd As LongPtr) As Long
Public lHsize As Long, lVsize As Long
Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const HORZRES = 8
Const VERTRES = 10

Public Function GetScreenResolution()
    ' lHsize = Anzahl der horizontalen Bildschirmzeilen
    ' lVsize = Anzahl der vertikalen Bildschirmzeilen
    Dim lRval As Long, lDc As Long
    
    lDc = GetDC(0&)
    lHsize = GetDeviceCaps(lDc, HORZRES)
    lVsize = GetDeviceCaps(lDc, VERTRES)
    lRval = ReleaseDC(0, lDc)
    
End Function

Public Function GetScreenResolution_Horizontal()
    ' lHsize = Anzahl der horizontalen Bildschirmzeilen
    ' lVsize = Anzahl der vertikalen Bildschirmzeilen
    Dim lRval As Long, lDc As LongPtr
    
    lDc = GetDC(0&)
    GetScreenResolution_Horizontal = GetDeviceCaps(lDc, HORZRES)
    lHsize = GetDeviceCaps(lDc, HORZRES)
    lRval = ReleaseDC(0, lDc)
    
End Function

Public Function GetScreenResolution_Vertical()
    ' lHsize = Anzahl der horizontalen Bildschirmzeilen
    ' lVsize = Anzahl der vertikalen Bildschirmzeilen
    Dim lRval As Long, lDc As Long
    
    lDc = GetDC(0&)
    GetScreenResolution_Vertical = GetDeviceCaps(lDc, VERTRES)
    lVsize = GetDeviceCaps(lDc, VERTRES)
    lRval = ReleaseDC(0, lDc)
    
End Function

Die #If .. #Else ... #End If Anpassung um auf <VBA7 die Lauffähigkeit sicher zu stellen, überlasse ich zwecks Lernens dir.
Eine entsprechende Vorlage hast du ja bereits von mir bekommen.

Gruß Uwe

 

Hallo Uwe,
ich hab's nicht überlesen. Einen API Viewer habe ich nicht gefunden, bzw. habe die gefunden Programme nicht verstanden. Also habe ich die Funktionen mit Google gesucht und dann versucht die Microsoft Doku zu verstehen.
Ist egal, ich geb's auf. Muss ja nicht alles perfekt funktionieren.

 

Hallo Wilhelm1,

einen sehr gut gemachten API-Viewer findest du hier (VBA7 und älter):
API-Viewer
Es gibt auch eine aktualisierte Version (VBA7 ohne ältere):
API-Viewer - Update -

Gruß Uwe

 

Hallo Uwe,
das war einer der Treffer bei meiner Suche. Ich wollte aber nicht einen Benutzer anlegen nur um die Datei laden zu können, ich dachte ich finde noch einen anderen Viewer.
Grundsätzlich hast Du natürlich Recht, korrekte Deklarationen sind wichtig.
Ich konnte das Problem aber umgehen indem ich das ganze Modul lösche und den einzigen Funktionsaufruf durch ein Zahl ersetze. Mit der Variante konnte ich das Problem weiter eingrenzen. Der Effekt tritt nur auf wenn die Breite UND die Höhe der Listbox geändert werden.

 

anbei die Datei. Bei mir gibt es so keine der beschriebenen Probleme mehr mit DoEvents.

Gruß Uwe

 

Hallo Uwe,
vielen Dank. Den API Viewer habe ich inzwischen auch