Brug af "Format" i en listbox

kan ikke lige se hvad du vil formater, men det jeg tror du mener er:

Private Sub Form_Load()
tScore = 123
tTilbage = "abcde"

  'Right4(tScore) & Left8(tTilbage) = #123abcde###

  List1.AddItem Right4(tScore) & Left8(tTilbage)
End Sub

Public Function Left8(ByVal var As Variant)
  If Len(var) < 8 Then
    Left8 = Left(var & "########", 8)
      Else
    Left8 = var
  End If
End Function

Public Function Right4(ByVal var As Variant)
  If Len(var) < 4 Then
    Right4 = Right("####" & var, 4)
      Else
    Right4 = var
  End If
End Function

Det jeg vil formatere er de 2 variabler (tScore & tTilbage). Altså, hvis tScore indeholder 123, så skal den addes til listbox'en som [space]+ 123, hvis tScore indeholder 12 skal der addes til listbox'en [space]+[space]+ 12 osv...

Håber det er til at forstå.

Hvis jeg omskriver din kode lidt så får jeg det ønskede resultat.

'kode
Private Sub Form_Load()
tScore = 123
tTilbage = "abcde"

  'Right4(tScore) & Left8(tTilbage) = #123abcde###

  List1.AddItem Right4(tScore) & Left8(tTilbage)
End Sub

Public Function Left8(ByVal var As Variant)
  If Len(var) < 8 Then
    Left8 = Right("        " & var, 8)
      Else
    Left8 = var
  End If
End Function

Public Function Right4(ByVal var As Variant)
  If Len(var) < 4 Then
    Right4 = Right("    " & var, 4)
      Else
    Right4 = var
  End If
End Function

Hvis du syntes der er en smartere måde er jeg meget lydhør

Jeg kan se at du kun skal bruge "Right" og ikke Left, så gør sådan:


Private Sub Form_Load()
tScore = 123
tTilbage = "abcde"

  List1.AddItem AddSpace(tScore, 4) & AddSpace(tTilbage, 8)
End Sub

Public Function AddSpace(ByVal vStr As Variant, MaxSpace As Long) As Variant
  If Len(var) < MaxSpace Then
    AddSpace = Right(Space(MaxSpace) & vStr, MaxSpace)
      Else
    AddSpace = vStr
  End If
End Function

Takker :>