|
Public Function vAutoAlign(strText As String, Optional vAlign As Integer = 0, Optional vMaxLength As Long = 92) As String
Dim sLen As Long sLen = Len(strText) If sLen >= Val(vMaxLength) Then vAutoAlign = strText Exit Function End If If vAlign <= 0 Then 'Allineamento al centro vAutoAlign = String((Val(vMaxLength) - sLen) / 2, " ") & strText ElseIf vAlign >= 1 Then 'Allineamento a destra vAutoAlign = String(Val(vMaxLength) - sLen, " ") & strText End If End Function strText e' la stringa da allineare vAlign e' un intero che indica lo stile di allineamento vMaxLength e' la lunghezza massima della stringa strAlignedText = vAutoAlign("prova",1,10) |