VB与Windows API 间的呼叫技巧
一般会使用WINDOW API的情况，实在是因为VB本身不提供某些功能，但是，程式所
需又不得不然，例如：读取Registry内的资
料，VB只提供SaveSetting、Getsetting 等
系列的指令，但是它只能读取特定地区的值，要读、删、更动其他区域的值时，就无
法
使用。再如：仔细看一看Combo Box的Events，其中没有MouseMove，但这是我们经常用
上的一个Event，那该如
何呢？是的，那只有透过Winodow API。而VB呼叫Window API一
般不都使用API检视员，直接将相对应的API COPY到
我们的程式中就好，那还用什麽技
巧吗？其实不然，因为VB资料格式的问题，又加上VB本身没有指标，在许多地方需要一
些小技巧才能解决，
而且我们经常因应不同的需求，将API 检视员的宣告COPY过来後再
做一些修改，最重要的，如果有一个.DLL档，它不在API 检视员中定
义，那时，就只有
自己想办法啦。
一、 整数参数
Windows API32
位元VB
============================== =============================
Int, INT ByVal Long
UNIT, DWORD ByVal Long
BOOL ByVal Long ture
时为1
WPARAM, LPARAM, LRESULT ByVal Long
Handle(如
HKEY) ByVal Long
WORD, ATOM, SHORT &nb
相关文档：
1.语言/环境基础
--项目的组成
--语言基础
----变量的作用域和生存期
----基本语句(for循环,赋值语句let(普通变量赋值),set(对象的赋值,只用set),分支语句)
----静态数组和动态数组(数组的声明,上下界确定,动态数组的使用,定义新的之后,怎么保留以前的数据)
----主要的系统函数和过程(By ......
一直想写下数据库操作方面的，只是没什么时间（好像是借口，应该是懒或者没心情吧，呵呵）。最近发现CSDN上
还是每天有人要问这些内容，我有的时候就懒的回答，呵呵，主要不断的去找代码给他们累啊。所以还是听高人的，来
个一劳永逸，自己重新温习下，也好给其他人一些帮助。
这个� ......
GetAllSettings（appname，section）
GetSetting（appname，section，key[，default]） ：读取注册表信息
SaveSetting appname，section，key，setting：向注册表中写入一个注册信息
deletesetting appname，section，key，setting：删除注册表信息
·appname：应用程序名，字符串类型，用户指定
·sec ......
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) 前两个字节为FFFE
Log.Message("fi ......
