| 投稿日 | ： 2005/08/06(Sat) 18:44 |
| 投稿者 | ： すぐる |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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