有些消息的参数声明为Any.这表示该参数是一种可变的类型(你可以以整型,字符串,用户自定义或其他的类型来传递).
这有一个这样的例子:
PublicDeclareFunctionSendMessageLib"User32"Alias"SendMessageA"ByValHwndasLong,ByValwMsgasLong,ByValwParamasLong,lParamasAny)asLong
lParam声明为Any并按引用(ByRef)传递.
这里是在这个函数中如果lParam是不同类型的值时应遵循的规则:
如果该值是传递形式
numericByVal(asLong,orasAny)
NullByVal(asLong,orasAny)
StringByRef(asString,orasAny)
TypeByRef(asAny)
arrayofTypeByRef(asAny)
如果你的函数声明同上面的一个而且你想传递一个Long型数,你应该这样写:
CallSendMessage(Me.Hwnd,WM_XXXX,0&,ByValLongValue)
注意尽管头三个参数也是数值,但它们前边并没有ByVal.这是因为在函数声明中它们已经被声明为按值传递(ByVal).第四个参数,由于是按引用传递(ByRef)(VB并不知道你要传递参数的类型),因此你必须加上ByVal你可以使用别名技术来传递不同类型的参数:
PublicDeclareFunctionSendMessageLngLib"User32"Alias"SendMessageA"(ByValHwndasLong,ByValwMsgasLong,ByValwParamasLong,ByVallParamasLong)asLong
或:
PublicDeclareFunctionSendMessageStrLib"User32"Alias"SendMessageA"(ByValHwndasLong,ByValwMsgasLong,ByValwParamasLong,lParamasString)asLong注意API参数类型本身是不会改变的.例子中的第四个参数总是一个4字节的长型数.当你按值(ByVal)传递一个Long或Null时,该4字节长的数值就直接传递给函数.如果你传递一个String或其他的什么,你是按引用(ByRef)传递,VB传递的实际上是变量的地址,也是4个字节.
参数传递
你已经知道如何传递参数了,只需把他放到调用的函数中即刻.然而,当你使用API函数时,在传递参数是有一些你应该注意的细节.ByVal还是ByRef.通常情况下,你不用为此担心,VB的API浏览器已经为你做好了一切,只需你输入数值它就会照所声明的方式传递.总的来说,ByVal是把实际的数值传递给函数,而ByRef是把地址传给函数.唯一的麻烦就是Any类型.把字符串传递给API函数也并不难.API函数需要的是字符串首字符的地址,然后读取该地址直到遇到一个Null字符.听起来很糟糕,但只是VB处理字符串的实际方法.你唯一要记住的是一定要按引用传递(ByRef)字符串当你想得到所需的函数返回值信息时,情况有稍微的一点不同.
这里是GetComputerName函数的声明:
DeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByVallpBufferAsString,nSizeAsLong)AsLong
第一个参数是一个指向字符串的远程指针,第二个参数是字符串的长度.
如果你只是简单的声明一个字符串类型的变量并把它传递给函数,就会出现错误.因此,你首先需要初始化字符串.这里是如何得到计算机名字的例子:DimBufferAsString
Buffer=Space(255)
Ret&=GetComputerName(Buffer,Len(Buffer))
ifRet&>0thenCompName$=Left(Buffer,Ret&)
在这里,待传递的字符串被初始化为有255个空格的字符串.我们把它传递给函数同时还有它的长度.如果出错则返回值为0.
CompName中将保存计算机名.有些函数也需要传递数组,这里是一个例子:
DeclareFunctionSetSysColorsLib"user32"Alias"SetSysColors"(ByValnChangesAsLong,lpSysColorAsLong,lpColorValuesAsLong)AsLong
最后两个参数是Long型数组.为了传递数组,你只需传递它的第一个元素.下面是示例代码:
ConstCOLOR_ACTIVECAPTION=2
ConstCOLOR_INACTIVECAPTION=3
ConstCOLOR_CAPTIONTEXT=9
ConstCOLOR_INACTIVECAPTIONTEXT=19
DimSysColor(3)AsLong
DimColorValues(3)AsLong
DimRet&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中使用API函数(之二)
下一篇:在VB中使用IE的 WebBrowser控件改进界面设计
|
精品推荐