|
楼主 |
发表于 2012-9-26 14:10
|
显示全部楼层
本帖最后由 win2009 于 2012-9-28 13:40 编辑
保存后文件的格式
网址:http://wenwen.soso.com/z/q270625993.htm
标题:VB如何把webbrowser的网页添加到收藏夹? - 已解决 - 搜搜问问
可以把list1的内容存放在一个TXT里面,打开的时候读取。
Private Sub Command1_Click()
Dim i As Integer
List1.AddItem Text1.Text
Open App.Path + "\aaa.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
私有的 过程 command1单击()
定义变量 i 为 整型值
列表1 . 添加列表项 文本1 . 文本
打开文件 app . 路径 + "\aaa . txt" 设定范围 output 为 #1
设定范围 i = 0 到 列表1 . 列表count - 1
输出显示 #1 列表1 . 列表(i)
下一句
关闭 #1
结束 过程
Private Sub Form_Load()
List1.Clear
Dim a As String
Open App.Path & "\aaa.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
List1.AddItem a
Loop
Close
End Sub
私有的 过程 form_load()
列表1 . 清除
定义变量 a 为 字符串
打开文件 app . 路径 & "\aaa . txt" 设定范围 读入 为 #1
执行循环操作 当条件 非 文本全部(1)
读入 #1 a
列表1 . 添加列表项 a
循环执行
关闭
结束 过程
==================
2012-9-26 11:41:59
==================
|
|