Question

vb 如何获取FileListBox指定项的值？

比如像File1的第一项的Index = 0，那么，我如何获得这个项的文本，比如“中国”。

Answer 1

在 VB6.0中新建一工程并命名为 vbreg.vbp，删去其中所有窗体，在工程资源管理器中点击右键，选择添加模块，并命名为 vbreg.bas。双击reg.bas，输入如下代码： Dim avntSettings As Variant Dim intX As Integer avntSettings = GetAllSettings(“VB 6 API 声明加载器”, “File List”) For intX = 0 To UBound(avntSettings, 1) Debug.Print avntSettings(intX, 0), avntSettings(intX, 1) Next intX 上面这段程序首先用 GetAllSettings 函数检索“VB 6 API 声明加载器”子键File List部分的两个注册表项的值，并将其结果显示在立即窗口中。开始运行前请按+确保立即窗口显示在屏幕上。同时请打开注册表，以便将标准位置\VB 6 API 声明加载器\File List的键值与结果进行对照。 下面这段程序用 SaveSetting 语句在标准位置下建立名为“我的工程\我的子键”的子键，然后使用 GetSetting 函数来得到其中一项设置值并显示出来。因为有传入参数default，GetSetting 函数一定会有返回值。 请注意，区域名称不能用GetSetting 函数取得。最后，使用 DeleteSetting 语句将该子键删除。 SaveSetting “我的工程”, “我的子键”, “Top”, 75 SaveSetting “我的工程”, “我的子键”, “Left”, 50 Debug.Print “Top”, GetSetting(“我的工程”, “我的子键”, “Top”, “25”) Debug.Print “Left”, GetSetting(“我的工程”, “我的子键”, “Left”, “0”) ’为了便于观察，调试可以在此处设置断点，同时切换到注册表，按下键刷新，即可看到自己建立的子键及其键值 DeleteSetting “我的工程”, “我的子键” ’运行完毕后再次切换到注册表并按下键刷新，观察己建立的子键及其键值是否被删除 说明: 运行本程序前，需先确保启动VB时已自动加载“API文本浏览器”，且在API文本浏览器中的“文件”菜单下有打开过的“文本文件”列表。否则，请先打开“API文本浏览器”，并在“文件”菜单下选择“打开文本文件”，打开至少一个文本文件或数据库。 Windows API 的注册表编程 VB自身虽提供了四个关于注册表的函数，但是这些函数只能在“HKEY_CURRENT_USER\ Software\VB and VBA ProgramSettings”下读取、删除、修改键值。这对于一般的应用程序利用它们可以达到目的，如果想对其他的非“标准位置”的主键或子键进行访问，该怎么办？此时，必须借助Windows API的帮助。 在Windows内部， 每一个键都会对应到一个 Key Handle(等于一个长整数值，程序中通常以 hKey表示)，Windows之所以要以hKey来代表键是为了让注册表的存取更有效率，因为整数的操作效能要优于字符串， 所以我们首先来了解如何取得键的 Key Handle(即hKey)。位于最上层的键，有HKEY_CLASSES_ROOT、HKEY_CURRENT

追问

无语了，回答错误。File1.什么的，不过我已经知道了。