Prozentuale Breitenermittlung (MSFlexGrid/StatusBar) Mit diesem Code lassen sich die Panels der StatusBar bzw. die Spalten des MSFlexGrids prozentual zur Gesamtbreite des Controls festlegen.
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  8.603
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die nachfolgende Funktion setzt anhand einer prozentualen Vorgabe die Breite der Panels einer Statusbar bzw. der Spalten eines MS-Flexgrids.
Die Prozentwerte werden der Funktion als String übergeben und durch ein Komma voneinander getrennt.

Die Funktion:

' Prozentuale Breitenermittlung der Panels einer Statusbar
' oder der Spalten eines FlexGrid
' clips: ein String mit der prozentualen Aufteilung von links beginnend
Public Sub setProzWidth(theCtrl As Control, clips As String)
  Dim proz() As String
  Dim i As Long
  Dim gl As Long
  Dim ra As Long
 
  ' Wenn keine Prozentangaben gemacht wurden...
  If Len(clips) = 0 Then Exit Sub
 
  ' Prozentsätze splitter
  proz = Split(clips, ",")
 
  gl = 0  ' aktuelle Gesamtbreite
  With theCtrl
    Select Case TypeName(theCtrl)
      Case "StatusBar"
        ' StatusBar
        ra = .Panels.Count - UBound(proz)
        For i = 1 To .Panels.Count
          If i > UBound(proz) Then Exit For
          .Panels(i).Width = .Width * Val(proz(i - 1)) / 100
          gl = gl + .Panels(i).Width
        Next i
        If gl < .Width Then
          For i = i To ra + 1
            .Panels(i).Width = (.Width - gl) / (ra - 1)
          Next i
        End If
 
      Case "MSFlexGrid"
        ' FlexGrid
        ra = .Cols - UBound(proz)
        For i = 0 To .Cols - 1
          If i > UBound(proz) Then Exit For
          .ColWidth(i) = .Width * Val(proz(i)) / 100
          gl = gl + .ColWidth(i)
        Next i
        If gl < .Width Then
          For i = i - 1 To ra
            .ColWidth(i) = (.Width - gl) / (ra - 1)
          Next i
        End If
    End Select
  End With
End Sub

Aufrufbeispiele:

setProzWidth StatusBar1, "20,30,60"

oder

setProzWidth FlexGrid1, "33,33,27"