１.ＶＢ作一个保存到1.txt文本文件

ＶＢ中建了６个text,１个list1和一个按纽　　左边三个text１，text２，text３右边是４，５，６　中间是一个按纽
在前面三个text分别输入内容点按纽保存到1.txt文本文件格式要这样子：
文件１｜文件２｜文件３　用｜把它们分开　再点按纽又会添加到下一行
文件１｜文件２｜文件３

2.ＶＢ作一个显示的代码把前面的1.txt显示在list1上　显示是这样子的
文件１　文件２　文件３　
文件１　文件２　文件３

３．ＶＢ作个点选分别显示的代码
点选list1中第一行就会分别显示在text4,text5,text6上
显示是这样子：
text4显示　文件１
text5显示　文件２
text6显示　文件３
点第二行就会把第二行的分别显示在４．５．６上
这些代码都怎么写呢

把所需要的每一个控件的事件代码写到该写的地方去，就行了！

1.
Open App.Path & "\temp.txt" For Append As #1
    Print #1,Text1.Text & "|" & Text2.Text & "|" Text3.Text & vbCrlf
Close #1
2.
Dim s_Line As String
Dim re() As String
Open App.Path & "\temp.txt" For Input As #2
    Line Input #2,s_Line
    re=Split(s_Line,"|")
    Text1.Text=re(0)
    Text2.Text=re(1)
    Text3.Text=re(2)
Close #2

3.
代码比较多一点.我就不写了..
原理..
先定义一数组..然后将内容循环读到这数组中..
当点击List的时候.获取点击的ListIndex然后通过这个Index来定位到数组当中.就可以取到相应行的数据..
自己去实现一下..

PS:上面代码纯手写..不排除错误现象.

这是在惯懒人啊，作为学生就应自己动脑啊，知识才是自己的！

第三个自己会了,第二个问题还是不太懂 用上面代码好像不行
2.ＶＢ作一个显示的代码把前面的1.txt显示在list1上　显示是这样子的
文件１　文件２　文件３　
文件１　文件２　文件３
xxxxxx      xxxxxx       xxxxxx
要打开就把1.txt文件全都显示在list1上,要全都显示出来

Private Sub Command1_Click()
Const intSpace = 20
Dim 文件1 As String
Dim 文件2 As String
Dim 文件3 As String
文件1 = "文件1"
文件2 = "文件2"
文件3 = "文件3"

List2.AddItem 文件1 & Space(intSpace - Len(文件1)) & vbTab & 文件2 & Space(intSpace - Len(文件2)) & vbTab & 文件3 & Space(intSpace - Len(文件3))
End Sub

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

其实可以在用一个变量将三个文本串起来，然后保存到文本文件