如何在一个Text文本框里写入一大篇东西呢？

Question

dim filenmuber as integer
filenumber1=freefile
Open sTrackingNoListFile For out As #filenumber1‘写入文件
filenumber2=freefileOpen txtfile For Input As #Ffilenumber2 '读查看msdn

Answer 1

你最好用 richtextbox （富文本框） 在大篇文本方面更勝一酬
你可以直接寫到 text1 中，保存到 文本文件中
用 file 的 open 方法打開 文本文件 用 print 寫入文件 用input& 方法讀入文本中
例 1,讀入到 text
 private sub fileopen()
  on error goto fileerr
    open "c:\text.txt" for input as #1
    text1.text=input$(lof(1),#1)
    close #1
    exit sub
fileerr:
    msgbox err.number
end sub2,寫入
 private sub filewrite()
on error goto fileerr
   open "c:\text.txt" for output as #1
   print #1,text1.txt
   closet #1
   exit sub
fileerr:
  msgbox err.number
end sub

Answer 2

用richtextbox吧，楼上的说的很清楚了，嘻嘻！

Answer 3

直接在文本框输入不就行了嘛
要读取的话
先写到t.txt 在读取
Private Sub Form_Load()
Dim NewLine As String
 On Error GoTo fileerror
 Open "h:\t.txt" For Input As #1
 Do Until EOF(1)
  Line Input #1, NewLine
  Text1.Text = Text1.Text + NewLine + vbCrLf
 Loop
 Exit Sub
fileerror:
  MsgBox "fileerror"
  
End Sub

Answer 4

to  ggto(没有猎枪的猎手) :
如何引入richtextbox控件呢？
to danielinbiti(金)
如何将打开的路径改成相对的路径呢，就是把t.txt存放在存放程序的目录里呢？就象配置文件一样，例如： GetSysInfo (App.Path & "\xianlan.ini")

Answer 5

要在文本框中写，请把textbox.MultiLine=true
导入Rich TextBox:
1：工程--部件
2：控件选项卡
3：选择Microsoft Rich Textbox Control 6.0
4: 确定

Answer 6

做成资源文件就行了，
在记事本里写txtfile TEXTFILE "路径\t.txt"
把它存为help.rc  
可以在vb目录下找到rcdll.dll和rc.exe拷到和help.rc同一目录下，
在dos下在那个目录下编译
rc help.rc
在用vb中工程/添加文件把编译出的help.res 添加进去
这个和别人的机子无关，就相当于vb程序的一部分，自带，别人不用提供文件
在vb 中
Private Sub Form_Load()
  Dim lblstr() As Byte, get_lblstr As String
  lblstr = LoadResData("txtfile", "TEXTFILE")
  get_lblstr = StrConv(lblstr, vbUnicode)
 Text1.Text = get_lblstr
End Sub

Answer 7

Dim fso As New FileSystemObject
        Dim ts As TextStream
        'Open file.
        Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")
        'Loop while not at the end of the file.
        Do While Not ts.AtEndOfStream
          Debug.Print ts.ReadLine
        Loop
        'Close the file.
        ts.Close

Answer 8

加入multiline属性
vbcrlf回车

Answer 9

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile