以下是打开文件并在文本框内显示文本文件内容的程序代码:
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 Sub1.请问#1,chr(13)分别是什么意思?
2.chr(10)是换行的意思吧,但实现不了换行,为什么?
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 Sub1.请问#1,chr(13)分别是什么意思?
2.chr(10)是换行的意思吧,但实现不了换行,为什么?
解决方案 »
- 想把控件所对应的坐标输出出来有办法吗?
- 我想在richtextbox输出的报告中根据一个RETCODE = ???判断结果是否正确,怎么做啊?请高手指教1!!
- 求助
- 有很多个函数FunctionOne(...),FunctionOne(...),...,FunctionXX(...),如何把这些函数的地址存放在一个数组MyFuctionArray(n)里,当要执
- 请教有关Mschart的问题
- 如何循环播放MIDI音乐?必须使用TIMER控件吗?
- Collection对象问题
- 新手请教:怎么在VB中编写Checkbox的值(其对应Access中的yes/no值)
- 如保用VB独占方式打开文本文件,如何对一个文件更名?
- 怎么把一个EXE文件变成一个服务,使开机时自动运行这个EXE文件???
- 请教关于数组里的同一行的各元素的连乘的写法???
- 使用数据报表后如何关闭对数据库的连接
Chr(13) + Chr(10)=vbCrLf 就是回车加换行
2、文本框的设置有问题,multiline没有设置为true。
#1:SS文件的编号和使用文件名是一样的作用.
Chr(13):回车符
问题2:
应该设置text1的Multiline=True '表示text1可以多行显示.