投稿日 | : 2005/08/06(Sat) 18:41 |
投稿者 | : すぐる |
Eメール | : |
URL | : |
タイトル | : Re^2: Space |
Space関数を使用して、書式を整えて、テキストボックスに設定しているのですが、
上手く思ったとおり整列してくれません。
AAAA :BBBB
AAAA :CCCC
AAAA :AAAA
AAAA :DDDDD
となってしまいます。
何故なのでしょうか。
Private Sub Command3_Click()
Dim str As String
str = fSpace_Set(Trim(objDs(0).Value), 60)
Text2.Text = Text2.Text & str &":" & objDs(1).Value & Chr(13) &
; Chr(10)
End Sub
Private Function fSpace_Set(ByRef myString As String, StrMaxLen As Integer) As String
' @(f)
Dim strTemp As String
Dim strLen As Integer
strTemp = ""
strLen = 0
If myString <> "" Then
strLen = LenB(myString)
strTemp = myString & Space(StrMaxLen - strLen)
End If
fSpace_Set = strTemp
End Function