请高手解释一下程序的部分内容

qiang119 2004-03-22 01:58:17
以下是打开文件并在文本框内显示文本文件内容的程序代码:
Private Sub Command1_Click()
Dim ss As String
Dim inputdata As String
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|图象(*.bmp)|*.bmp)"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
ss = CommonDialog1.FileName
Open ss For Input As #1
inputdata = ""
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, inputdata
Text1.Text = Text1.Text + inputdata + Chr(13) + Chr(10)
Loop
Close #1
End Sub

1.请问#1,chr(13)分别是什么意思?
2.chr(10)是换行的意思吧,但实现不了换行,为什么?
...全文
27 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
qiang119 2004-03-22
多谢两位
回复
julysixth 2004-03-22
问题1:
#1:SS文件的编号和使用文件名是一样的作用.
Chr(13):回车符
问题2:
应该设置text1的Multiline=True '表示text1可以多行显示.
回复
RandomLife 2004-03-22
1、#1表示文件编号,chr(13)表示回车符
2、文本框的设置有问题,multiline没有设置为true。
回复
flyingscv 2004-03-22
#1 文件号,标识用
Chr(13) + Chr(10)=vbCrLf 就是回车加换行
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告