如何在 VB6 0 中保存和读取两个列表的内容！ 20

然后在更改控件名称时复制并粘贴。

private sub form_load()"china"

america"

japan"

soccer"

tennis"

basketball"

end sub

private sub list1_click()'将选定的元素从左侧列表移动到右侧列表。

if >= 0 then

将新元素添加到右侧的列表中。

从左侧列表中删除所选元素。

end if

end sub

保存在文本文件中，如果要保存很多东西，请使用数据库

1. 在界面上放置一个定时器控件，并将其间隔值设置为 5000（即 5 秒）。

2.在一般部分定义一个公共变量ilistindex为整数，在表单load中给ilistindex分配一个初始值（这部分根据你的需要在不同的位置给ilistindex分配一个初始值，不能在表单load中）。

private sub form_load()ilistindex = 1

end sub

4. 在 timer1 timer 中编写以下语句。

private sub timer1_timer()ilistindex = ilistindex + 1=

end sub

在模块中添加以下函数：

public function gettime(jin as interger)

ss=timer

dodoevents

tt=timer

if tt-ss>jin then exit doloopend function

那么这就是你的程序。

private sub command3_click()dim i

dim sfor i = 0 to - 1

igettime 5'请每 5 秒写下来阅读下一个结束子 这里

使用计时器控件和全局或静态变量。

Win7XPorProfile文件路径与xpc相同：文档和设置所有用户，很容易判断用户是否被XP操作系统写入，获取用户的桌面路径**冗余而麻烦**:d im path、getpath、allusers$

path = environ("userprofile")allusers = environ("allusersprofile")

if allusers = c:\documents and settings\all users" then

getpath = 路径 & 桌面"

elsegetpath = path & desktop\"

end if 获取 Win7XP 桌面的路径。

使用的主要功能，filefree，open等。

手头没有VB就试不试了，记住如果是mdb中的记录，可以一一拖到窗口中，窗口会给每个项目添加一个文本框并关联数据，也可以修改一下。（否，请使用 adodb 控件连接到数据库）。

17 20 文本！ 下面的循环可以处理如此多的文本。 获取内容后，将其添加到数据库中。

dim v as object

for each v in

if typename(v) = "textbox" then 。。获取内容）。

next v

数据库？ 田地呢？ 保存到的每个文本呢？

给我一个标准。

您要保存到哪个文件？

文本文件？ 数据库？ sql？mdb？xls？

两个列表框，list1 和 list2

命令按钮 command1

private sub command1_click()for i = 0 to - 1

if = true then

end if

next i

end sub

我在这里使用一个循环，所以它是变量 i。 我只是想知道你的话题，你不允许使用变量，当然没关系，只要写出所有的可能性。

您的多件物品是全部还是其中的几件？

这是有区别的。