二级VB辅导：用VB实现“一点即填”

在申请邮箱和主页空时，我们经常要填写表格，比如姓名、地址、身份证号、邮箱、个人简介等等？？每次都要反复填，好烦啊！
面对这种情况，你可能首先想到的是在网上找一个填表软件。但是，现有的软件要么使用剪贴板传输，要么使用拖放技术，而且因为必须运行填表软件，所以使用起来不是很方便。所以我们决定自己写一个软件，集成到IE的右键菜单里。使用时，只需在要输入的输入项上点击鼠标右键，然后选择相应的项，就会自动输入，实现“一键填写”。
这个程序首先在IE的右键菜单中添加项目，可以通过操作注册表来实现。然后，使用JavaScript程序来判断所选择的输入框是否可用。如果有，填写我们提前保存的数据。下面介绍具体的实现过程。

一、设计界面
进入VB，选择“标准EXE”新建一个项目，选择“项目”菜单下的“部件”，在弹出的对话框中选择“Microsoft Windows Common Controls 6.0”，然后根据下表在窗体上添加控件。完成后的界面如图1所示:
控件类型名称属性
标签label1标题:名称标签label2标题:内容文本框txtname
文本框txtcont
命令按钮命令1标题:添加命令按钮命令2标题:删除列表框listView1，为其添加两列，列标题分别为“名称”和“内容”，
将视图属性更改为3-LV report，GridLines更改为True。

二。程序源代码
首先在项目中添加一个标准模块并输入以下代码，这些代码用于注册表操作:
'声明必要的API函数和常量
声明函数reg save key Lib " advapi 32 . dll " Alias
" regsavekeya "(Byval HKEY为long，ByVal lpFile为String，ByVal lpSecurityAttributes为Long)声明函数regset value Lib " advapi 32 . dll " Alias
ByVal CB data As Long)
声明函数RegCloseKey Lib " advapi32 . dll "(ByVal hKey
As Long
声明函数RegCreateKey Lib " advapi32 . dll " Alias
" RegCreateKeyA "(ByVal hKey As Long，ByVal lpSubKey As
String，phkResult As Long)声明函数RegDeleteKey Lib " advapi32 . dll " Alias
ByVal lpValueName
As String)Long
Declare Function regopen key Lib " advapi32 . dll " Alias
" regopen keya "(ByVal hKey As Long，ByVal lpSubKey As
String，phkResult As Long)
Declare Function RegSetValueEx Lib " advapi32 . dll " Alias
" RegSetValueExA "(ByVal hKey As Long，ByVal lpValueName As String，ByVal phkResult As Long)[/Br/]公共常数HKEY _类_根= & h 80000000[/Br/]公共常数HKEY _当前_用户= &H80000001
公共常数HKEY _ LOCAL _ MACHINE = & h 80000002[/Br/]公共常数HKEY _用户= & h 800000003[/Br/]公共常数错误_ NO _更多_项目= 259&