说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中使用API函数 (之三)

HTML文档下载 WORD文档下载 PDF文档下载
在VB中使用API函数 (之三)

 
Any

有些消息的参数声明为Any.这表示该参数是一种可变的类型(你可以以整型,字符串,用户自定义或其他的类型来传递).

这有一个这样的例子:

Public Declare Function SendMessage Lib "User32" Alias "SendMessageA" ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, lParam as Any) as Long

lParam 声明为Any并按引用(ByRef)传递.

这里是在这个函数中如果lParam是不同类型的值时应遵循的规则:

如果该值是 传递形式

numeric ByVal(as Long,or as Any)

Null ByVal(as Long,or as Any)

String ByRef(as String,or as Any)

Type ByRef(as Any)

array of Type ByRef(as Any)

如果你的函数声明同上面的一个而且你想传递一个Long型数,你应该这样写:

Call SendMessage(Me.Hwnd,WM_XXXX,0&,ByVal LongValue)

注意尽管头三个参数也是数值,但它们前边并没有ByVal.这是因为在函数声明中它们已经被声明为按值传递(ByVal).第四个参数,由于是按引用传递(ByRef)(VB并不知道你要传递参数的类型),因此你必须加上ByVal 你可以使用别名技术来传递不同类型的参数:

Public Declare Function SendMessageLng Lib "User32" Alias "SendMessageA"(ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, ByVal lParam as Long) as Long

或:

Public Declare Function SendMessageStr Lib "User32" Alias "SendMessageA"(ByVal Hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, lParam as String) as Long

注意API参数类型本身是不会改变的.例子中的第四个参数总是一个4字节的长型数.当你按值(ByVal)传递一个Long或 Null时,该4字节长的数值就直接传递给函数.如果你传递一个String或其他的什么,你是按引用(ByRef)传递,VB传递的实际上是变量的地址,也是4个字节.

参数传递

你已经知道如何传递参数了,只需把他放到调用的函数中即刻.然而,当你使用API函数时,在传递参数是有一些你应该注意的 细节. ByVal还是ByRef. 通常情况下,你不用为此担心,VB的API浏览器已经为你做好了一切,只需你输入数值它就会照所声明的方式传递.总的来说,ByVal是把实际的数值传递给函数,而ByRef是把地址传给函数.唯一的麻烦就是 Any 类型. 把字符串传递给API函数也并不难.API函数需要的是字符串首字符的地址,然后读取该地址直到遇到一个Null字符.听起来很糟糕,但只是VB处理字符串的实际方法.你唯一要记住的是一定要按引用传递(ByRef)字符串 当你想得到所需的函数返回值信息时,情况有稍微的一点不同.

这里是GetComputerName函数的声明:

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"(ByVal lpBuffer As String, nSize As Long) As Long

第一个参数是一个指向字符串的远程指针,第二个参数是字符串的长度.

如果你只是简单的声明一个字符串类型的变量并把它传递给函数,就会出现错误.因此,你首先需要初始化字符串.这里是如何得到计算机名字的例子: Dim Buffer As String

Buffer = Space(255)

Ret& = GetComputerName(Buffer, Len(Buffer))

if Ret& > 0 then CompName$ = Left(Buffer, Ret&)

在这里,待传递的字符串被初始化为有255个空格的字符串.我们把它传递给函数同时还有它的长度.如果出错则返回值为0.

CompName中将保存计算机名. 有些函数也需要传递数组,这里是一个例子:

Declare Function SetSysColors Lib "user32" Alias "SetSysColors" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

最后两个参数是Long型数组.为了传递数组,你只需传递它的第一个元素.下面是示例代码:

Const COLOR_ACTIVECAPTION = 2

Const COLOR_INACTIVECAPTION = 3

Const COLOR_CAPTIONTEXT = 9

Const COLOR_INACTIVECAPTIONTEXT = 19

Dim SysColor(3) As Long

Dim ColorValues(3) As Long

Dim Ret& SysColor(0) = COLOR_ACTIVECAPTION

SysColor(1) = COLOR_INACTIVECAPTION

SysColor(2) = COLOR_CAPTIONTEXT

SysColor(3) = COLOR_INACTIVECAPTIONTEXT

ColorValues(0) = RGB(58, 158, 58) '深绿

ColorValues(1) = RGB(93, 193, 93) '浅绿

ColorValues(2) = 0 '黑色

ColorValues(3) = RGB(126, 126, 126) '灰色

Ret& = SetSysColors(4&, SysColor(0), ColorValues(0))

该程序将改变所有活动和非活动窗口的标题栏背景和文本的颜色.
VB如何判断数据中是否存在某一表或查询 VB如何删除FoxPro数据库的数据? VB如何设置对VB数据库连接的动态路径 VB如何使用 ADO 來压缩或修复 Microsoft Access 文件 VB如何修改Foxpro数据库(不是用VB实现的,不过也可以看看) VB如何在 SQL 语句中使用日期? 返回 VB如何在表中保存单引号? VB如何抓出 Access 的 Table 欄位中的【敘述】部份呢? 实现Access数据库的Web查询-VB资料 使用Visual Basic访问数据库几个注意的问题 数据库查询-VB资料 数据约束控件和 RecordSet-VB资料 锁住数据库中的表 -VB资料 谈谈VB的数据库编程方式 为VB5辩解: VB处理数据库时求数据表记录总数的最佳方法 为什么安装后的数据库应用总是路径不对或找不到? 返回 -VB资料 无论如何,就是只能输入数字-VB资料 VB用 DAO 或 ADO 正确访问 Access 2000 VB用CELL组件显示Access数据库的图片对象 VB用DAO打开Excel文件 VB用DATA控件绑定报表控件打印报表 VB用EXCEL来打印报表并生成折线图 VB用EXCEL组件简化VB编程的一种方法 VB用MDB文件做密码库 VB用ODBC API访问ODBC数据库 用VB 实现类电子表格的数据录入 用VB5直接控制Excel 97 用VBA编制Access的查询程序 用VB和RDO访问SQL Server 用VB开发多通道仪表数据采集程序 用VB实现关闭所有数据库对象 ADODB.Connection问题,急!! 急急! 在javabean里面使用HttpServletRequest对象的例子好吗?谢谢你了,具体到里面看看可以吗? 河南的程序员考试成绩出来了没有?都快把大家急疯了! 一个类的四个问题?this指针等等,欢迎大家的光临。 请大家帮个忙!我的PARADOX数据库有660M,但是在读取的时候出现‘BLOB HAS BEEN MODIFIED‘!! 请问哪里有ado数据库引擎下载,谢谢~! BDE错误$2109 如何得到“我的文档”里的IShellView指针? SOS!各位帮帮我呀!“实现汉诺塔” 幫忙看一下下面這段代碼有什么問題? 改进后的开开关关窗口特别酷 请问在VB6与VB.NET在数据库方面有多大的区别呀?? 关于C语言 寻找将 AUTOCAD 文件格式转换成 PDF 格式的软件 谁有包含开发接口的OCR软件? 求助:没有紧急修复软盘,怎样恢复win2kserver的双启菜单。 请问怎么得到DATAGRID1中记录的总条数! 转发:一粒沙子的爱情故事 公司發過年禮物了 ,哎 ,原來是一塊石英表 ,雖然是情侶表 ,卻只發一塊 ,不是一對 ,你們呢!..... ??有解密高手吗?或者哪里有这样的论坛?? 怎样用多线程显示多个form? VB串口发送大数据量时其他程序没有反应? 这句sql语句怎么写?低手请教! 数据库高手请进,报表问题!!! 请介绍VC测试内存泄漏的好工具. select number from table需要分别得到所有的值,如果做? 请问如何将下载的控件加到delphi的控件面板上?先谢谢了!!! 一个form里面如何将6个radiobottom 分成两组? 开开关关IE窗口的小程序 请各位高手介绍一下win2K,wingate,sygate这些做上网服务器各使用什么技术?NAT?SOCK5? WIN2000 PRO. 怎样才能通过 NT4+MSPROXY 上网? ASP中如何实现等待几秒再执行下一步的功能? 数据库的烦恼之二 如何在程序中播放Power Point? 散分,帮我看看主机链接是否正常 BDE数据库的问题。 win2000中怎样配置开机启动文件(如98下的Msconfig) 痛苦的人请看 http://www.csdn.net/expert/topic/425/425671.shtm (UP者有分!) 关于strlen函数 高手请进 vc中是否有函数readline(),该如何调用, 如何将我写好的.java文件编译在单片机的系统中? 下载的.rar格式的文件怎样打开 怎么是查询(select)不受更新(update)的阻塞? 请老大帮帮我啊 怎样获得WIN98系统的日期格式啊? 超级终端的传输格式 关于strlen函数的问题 请教:关于soft-ice软件的问题 谁有Exange 2000操作手册之类的东东?还有下载ftp地址和密码,谢谢!收到马上给分!急用! NetUserAdd怎么用,我下面是否用错了,结果会蓝屏,dump!!(KMODE_EXCEPTION_NOT_HANDLED) 在标准情况下,至少需要多少体积的氢气与足量的氧气反应才能生成18g水完整解答 多少克的氧气可跟多少克的氢气完全反应,生成18克的水? 萝卜与白菜的杂交结果萝卜体细胞内有9对染色体,白菜体细胞内有9对染色体,现将萝卜和白菜杂交培育出新作物,这种作物最少应有染色体多少条? 某养鸡场第一天卖出鸡总只数的40%,第二天卖出鸡总数的3分之1,还剩1200只鸡,养鸡场共有几只? 白菜的拉丁文学名是什么?注意,是白菜,不是其他的什么…… “菜园里有白菜 萝卜 青菜等蔬菜”一题顿号怎么加?这题主要是顿号放在后面怎么加? 养鸡场第一天卖出的鸡占总数的40%,第二天卖出鸡总只数的3分之1,还剩1200只鸡,养鸡场共养鸡多少只? 什么是拉丁学名 生苍蝇的原因.寝室忽然多了好多小苍蝇,不知道是怎么出来的.没有烂的东西.该怎么办,不知道根源在哪. 养鸡场第一天卖出养鸡总数的六分之一,第二天卖出养鸡总数的二分之一,还剩1200只鸡,共养鸡多少只?用方程解 什么是植物拉丁语?种的拉丁学名由哪几部分组成? 苍蝇会生小苍蝇么? 怎样把旭日东升的景色正壮观改成反问句,感叹句,疑问句,设问句,双重否定句 植物学名是否是拉丁名? 养鸡场有母鸡3600只,比公鸡多八分之一,公鸡有多少只?( 列方程求解)五年级《自主学数学》50页(6)题 这美丽的南国的树.改成疑问句、感叹句、反问句?怎么改?读这句话的语气是怎样的? 请问这种植物叫什么名字,学名,还有拉丁名什么的,具体点.谢谢! 养鸡场有母鸡3600只,比公鸡多1/8,公鸡有多少只?请帮我列方程, 小蓉的学习很优秀 改为疑问句,反问句,感叹句 肯德基原料用的是六只翅膀和六条腿的变异鸡,真的吗 6根胡萝卜换2个大萝卜,9个大萝卜换3棵大白菜,6棵大白菜换多少根胡萝卜? 西湖的景色秀丽,风景优美.改为祈使句、疑问句、感叹句、反问句 小兔种的白菜是萝卜的5倍,白菜重量比萝卜的重量多208千克.白菜和萝卜各多少千克? 2个大萝卜换6根胡萝卜,9个大萝卜换3棵大白菜,5棵大白菜可以换多少根胡萝卜 养鸡场第一天卖出的鸡占总数的40%,第二天卖出了剩下的2/3,还剩1200只,养鸡场共养鸡几只?用算术方法做. 菜站为部队配送蔬菜,菜箱中的白菜比萝卜多60千克,白菜旳千克数是萝卜的3倍.菜箱的白菜和萝卜各重多少千克.请使用五年级水平 冬天为什么没有打雷现象包括闪电? 某养鸡场第一天卖出养鸡总只数的40%,第二天卖出养鸡总只数的1/3,还剩1200只鸡,养鸡厂共养鸡多少只? 菜站为部队配送蔬菜,菜箱中的白菜比萝卜多60千克,白菜的千克数 为什么夏天下雨打雷`闪电,而冬天没有? 要生成18克水,需要标准状态下氢气的体积为多少 ,氧气的体积为多少,过程怎么写 植物的学名跟拉丁学名一样吗? 提问问题9根胡萝卜换3个大萝卜,12个大萝卜换6个大白菜.9个大白菜换多少根胡萝卜 用“他很啰嗦.”感叹句、疑问句、反问句、双重否定句 英语翻译M.denudata Desr M.sprengeri Pamp.Castanea henryi ( Skam ) Rehd.Et Wils.Cornus paucinervis HanceL indera ery throcarpaMakinoCarpinus turczan inow ii Hance.M 9根胡萝卜可以换3根大萝卜,6根大萝卜可以换3棵白菜,8棵白菜一换多少跟胡萝卜? 天牛幼虫有什么能力 你一定想更多地了解汉字.改为感叹句反问句和疑问句快 养鸡场今年养鸡4900只比去年多养5分之2去年养鸡多少只 昆虫记的作文怎么写?我门要写一篇作文,叫我推荐的一本书,我想写昆虫记,可是不知道怎么写,字数在500左右. 英语的陈述句、疑问句、祈使句、感叹句与汉语的陈述句、疑问句、祈使句感叹句在语序上有什么区别?它们的语序比较,分别都是什么样的? 一个养鸡场今年养鸡比去年养鸡多百分之20,今年是去年养鸡的百分之几?急 《昆虫记》中有哪些文章? 已知某养鸡场共养鸡8万只,第一天有一只鸡患流感,第二天患流感的鸡新增10只,第三天新增100只.求第四天时共有多少只鸡患流感?到第几天时全部患上流感? 某养鸡场去年养鸡2.8万只,今年比去年少五分之一,今年养鸡多少只? 急需一篇作文,“读【昆虫记】有感”,400-500字,不用写太好,火速!火速!只要作文,不要建议,一小段也可以,或者是作文网址,可以摘抄别人的! 比较优美的比喻句.【不要太长】 某养鸡场今年养鸡28万只,比去年多五分之二,去年养鸡多少只? 黑甲虫的洞穴散布在草地边上的小土堆上 改为比喻句或拟人句 优美的比喻句 1、红花养鸡场共养鸡6000只,其中的5分之3是鸡蛋.蛋鸡有多少只?还有第二道 现在就要啊!1、红花养鸡场共养鸡6000只,其中的5分之3是鸡蛋.蛋鸡有多少只?2、一辆汽车每小时行100k,从甲站到乙站行 改为比喻句和拟人句. 形容愉快心情的比喻句,要优美,有深度,最好长一点. 一块地,划出他的6分之1种白菜,3分之1种萝卜,其他的种西红柿,种西红柿的地战这快地的几分之几?快回答急 改成比喻句和拟人句小波浪向前流淌. 谁优美的比喻句? 某养鸡场第一天卖出鸡的总只数的40%,第二天卖出剩下只数的2/3,还剩1200只鸡.养鸡场共养鸡多少只?要说明为什么 养蛋鸡好,还是肉鸡好? 优美比喻句要是一句比喻句,优美一些 王阿姨的菜园里种满了三种蔬菜,分别是白菜、萝卜和大蒜,其中白菜和大蒜的面积占总面积的十六分之十一,萝卜和大蒜的面积占种面积的四分之三,大蒜的种植面积占总面积的几分之几
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn