二级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&
0条评论