Aufklappbreite der ComboBox festlegen II Hier zeigen wir, wie sich die Breite der aufgeklappten ComboBox-Liste individuell anpassen lässt.
Autor:   Philipp HERRMANN	Bewertung:     [ Jetzt bewerten ]	Views:  2.360
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn bei nachfolgendem Tipp die ComboBox eine andere Schrift(größe) verwendet als die Schrift, die dem Formular zugewiesen ist, ist das Ergebnis unbefriedigend!
 Aufklappbreite der ComboBox festlegen

Damit der Tipp zuverlässig funktioniert muss die Schrift der ComboBox an die Form übertragen werden (zur Bestimmung der Breite eines Eintrags).

Das geschieht am besten in der Prozedur gleich nach dem

With oCombo

in dieser Form:

' Schrift übertragen
Set .Parent.Font = .Font

Das Ganze sieht dann so aus:

  With oCombo
    ' Schrift übertragen
    Set .Parent.Font = .Font
 
    ' Falls keine Maßeinheit angegeben,
    ' autom. die ScaleMode-Eigenschaft der Form
    ' verwenden
    If IsMissing(nScaleMode) Or IsMissing(nFixWidth) Then
      nScaleMode = .Parent.ScaleMode
    End If
 
    ' Falls Parameter "nFixWidth" nicht angegeben,
    ' längsten Eintrag ermitteln
    If IsMissing(nFixWidth) Then
      Dim i As Long
      Dim nWidth As Long
 
      nFixWidth = 0
      For i = 0 To .ListCount - 1
        nWidth = .Parent.TextWidth(.List(i))
        If nWidth > nFixWidth Then nFixWidth = nWidth
      Next i
 
      ' Plus kleine Zugabe
      nFixWidth = nFixWidth + .Parent.ScaleX(10, vbPixels, nScaleMode)
 
      ' Falls mehr als 8 Einträge, nochmals kleine Zugabe wegen der Scrollbar
      If .ListCount > 8 Then
        nFixWidth = nFixWidth + .Parent.ScaleX(15, vbPixels, nScaleMode)
      End If
    End If
 
    ' Neue Aufklappbreite jetzt zuweisen
    SendMessage .hwnd, CB_SETDROPPEDWIDTH, _
      .Parent.ScaleX(nFixWidth, nScaleMode, vbPixels), 0&
  End With