各自的定义
vbCr 是回车 ASC(vbCr)=13
vbLf 是换行 ASC(vbLf)=10
vbCrLf 是回车和换行的结合, 是到下一行的最头上Top ASC(vbCr)=13,实际上是 Chr (13) & Chr(10)
MsgBox效果一样
Private Sub Command1_Click()
Dim a$, b$, c$
a = "111" & vbCr & "222"
MsgBox a
MsgBox Len(a)
b = "111" & vbLf & "222"
MsgBox b
MsgBox Len(b)
c = "111" & vbCrLf & "222"
MsgBox c
MsgBox Len(c)
End Sub用Emeditor打开效果一样
用记事本打开效果不一样
vbLf在notepad笔记本里显示的黑方块不会换行
另外,Dos、windows一般使用vbCrLf换行;unix一般使用vbLf换行
文本框
'在设计时的属性框内设置Text1的ScrollBars=2,MultiLine=true
Private Sub Command1_Click()
With Text1
.Text = "00000"
.Text = Text1 & vbCr & "aaaaa"
.Text = Text1 & vbLf & "bbbbb"
.Text = Text1 & vbCrLf & "ccccc"
MsgBox .Text
End With
End SubMsgbox运行结果:
00000
aaaaa
bbbbb
cccccText1.txt运行结果:
00000aaaaabbbbb
ccccc