View Code Snippet

Author: Buddhika Fernando
Date Submitted: 3/16/2006
Category: String Handling/Manipulation
Compatibility: VB 6,VB 5
This code has been accessed 3822 times.

Task: Get Balance Of String : Useful Function

Declarations

Code

Private Function GetBalance(ByVal PassText As String, _ ByVal PassTextLen As Integer, _ ByVal StatValue As Integer, _ ByVal FillString As String, Optional SetToLeft As Boolean = False) As String Dim Balance As Integer If PassText = "" Then Exit Function If PassTextLen = 0 Then Exit Function If StatValue = 0 Then Exit Function If FillString = "" Then Exit Function Balance = StatValue - PassTextLen If Balance <= 0 Then GetBalance = PassText Else If SetToLeft = False Then GetBalance = String(Balance, FillString) & PassText Else GetBalance = PassText & String(Balance, FillString) End If End If End Function Private Sub Form_Load() Me.Caption = GetBalance("Buddhika Fernando", Len("Buddhika Fernando"), 30, "#", True) End Sub