|
|
安徽 韦法运
动态链接库ＤＬＬ是Ｗｉｎｄｏｗｓ 最重要的组成要素，它是应用程序外部的、可以从应用程序进行调用的过程库。在ＶＦＰ 中调用动态链接库，就可以大大加强ＶＦＰ 的功能，特别是一些ＶＦＰ 自身不能实现的功能。本文以建立一个闪烁的窗口为例介绍一下ＶＦＰ 中动态链接库的调用方法。
要调用动态链接库，先使用ＤＥＣＬＡＲＥ命令说明要调用的函数，也就是使用前必须注册一下外部３２动态链接库中的函数。其语法如下：
ＤＥＣＬＡＲＥ ［函数返回值类型］函数名ＩＮ
库名［ＡＳ 别名］［参数１类型］［＠］［参数１名］
［，参数２类型］［＠］［参数２名］……
假定函数的返回值为ＩＮＴＥＧＥＲ（３２整数
值），闪烁窗口的函数为：ＦｌａｓｈＷｉｎｄｏｗ（），
其调用说明如下：
ＤＥＣＬＡＲＥ ＩＮＴＥＧＥＲ ＦｌａｓｈＷｉｎｄｏｗＩＮ ｗｉｎ３２ａｐｉ
ｉｎｔｅｇｅｒ ｈＷｎｄ ，ｉｎｔｅｇｅｒ Ｂｏｏｌ
清除ＤＬＬ时用：ｃｌｅａｒ ｄｌｌｓ
具体实现方法如下：
建立表单，加入ｔｉ ｍｅｒ 控件和命令按
钮。属性如下：
控件属性值
ｔｉ ｍｅｒ１Ｉｎｔｅｒｖａｌ ２００
ｖｉｓａｂｌｅ ｆａｌｓｅ
ＣｏｍｍａｎｄＢｕｔｔｏｎ１Ｃａｐｔｉｏｎ 退出
方法如下：
ｆｏｒｍ１．Ｉｎｉｔ
ＤＥＣＬＡＲＥ ＩＮＴＥＧＥＲ ＦｌａｓｈＷｉｎｄｏｗ ＩＮ ｗｉｎ３２ａｐｉ ｉｎｔｅｇｅｒ ｈＷｎｄ ，ｉｎｔｅｇｅｒ
Ｂｏｏｌ ｓｅｔ ｌｉｂｒａｒｙｔｏ ＂ｄ ：＼ｖｆｐ＼ｆｏｘｔｏｏｌｓ ．ｆｌｌ＂
＆＆调用ｆｏｘｔｏｏｌｓ ．ｆｌｌ 库中的＿ＷｈＴｏＨｗｎｄ（）和＿ＷｏｎＴｏｐ（）函数以得到
窗口句柄
Ｔｉ ｍｅｒ１．ｔｉ ｍｅｒ
＝ＦｌａｓｈＷｉｎｄｏｗ（＿ＷｈＴｏＨｗｎｄ（＿ＷＯｎＴｏｐ（）），１）
ＣｏｍｍａｎｄＢｕｔｔｏｎ１．ｃｌｉｃｋ
ｃｌｅａｒ ｄｌｌｓ
ｔｈｉｓｆｏｒｍ．ｒｅｌｅａｓｅ
|
|
