Space Function
āĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āĻĒāϰāĻŋāĻŽāĻžāĻŖ āϏā§āĻĨāĻžāύā§āϰ āϏāĻŽāύā§āĻŦā§ā§ āĻāĻ āĻŋāϤ āϏā§āĻā§āϰāĻŋāĻ āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Space (n As Long)
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
āϏā§āĻā§āϰāĻŋāĻ
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
n: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϏā§āĻā§āϰāĻŋāĻ āĻ āĻĢāĻžāĻāĻāĻž āϏā§āĻĨāĻžāύā§āϰ āϏāĻāĻā§āϝāĻž āύāĻŋāϰā§āĻĻā§āĻļ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ n āĻāϰ āϏāϰā§āĻŦā§āĻā§āĻ āĻ āύā§āĻŽā§āĻĻāĻŋāϤ āĻŽāĻžāύ āĻšāϞ⧠65535āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleSpace
Dim sText As String,sOut As String
Dim iLen As Integer
iLen = 10
sText = "Las Vegas"
sOut = sText & Space(iLen) & sText & Chr(13) &_
sText & Space(iLen*2) & sText & Chr(13) &_
sText & Space(iLen*4) & sText & Chr(13)
msgBox sOut,0,"Info:"
End Sub