一点点小问题,关于用传址返回值类型API的返回值处理问题

可能我的叫法不太对,说明一下,以GetWindowText和GetClassName为例:

它们的声明如下:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
其返回值为 lpString 和lpClassName ,而cch 和nMaxCount 分别为返回值的长度..这样的API要求我们传入的包含返回值的字符被初始化...一般我们这样做:

dim lpString as string * 255

或者

dim lpString as string

lpString = space(255)

这样都可以,而问题随之而来,当得到返回值以后,想去掉"空格",用Trim,Replace等函数怎么也去不掉.并且当想在后面连接其他字符时,根本连不上...麻烦来了!!!

实际上,里面并没有几个空格的,并不是Trim,Replace不好用,而是字符格式问题,实际上,这样的API函数"返回值"后面直接跟的是字符串结束符chr(0).

用以下函数处理即可:

Private Function GetWindText(ByVal hwnd As Long) As String
Dim myStr As String * 256
GetWindowText hwnd, myStr, 256
GetWindText = Trim(Replace(myStr, Chr(0), ""))
End Function

Private Function GetWindClass(ByVal hwnd As Long) As String
Dim myStr As String * 256
GetClassName hwnd, myStr, 256
GetWindClass = Trim(Replace(myStr, Chr(0), ""))
End Function

解释一下,首先初始化字符,并利用API取值,取完以后,用Replace去掉结束符,再用Trim去掉前导和后续空格,就得到正确的返回值了..

OK~