一点点小问题,关于用传址返回值类型API的返回值处理问题
2007-04-01 21:13
549 查看
可能我的叫法不太对,说明一下,以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~
它们的声明如下:
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~
相关文章推荐
- 关于在MVC4中增加强类型的View时找不到Model问题的处理记录
- 关于java中重载时返回值类型的问题
- 关于ajax的dataType类型为text返回值乱码的问题
- 关于hibernate的查询返回类型问题总结
- 关于float double的数据类型的细节,在处理转换问题的时候非常有用
- 关于EditText中的getText()方法的返回值类型以及string的转换问题
- 关于【可访问性不一致: 返回类型】的问题
- ASP.NET Core Web API处理HttpResponseMessage类型返回值的问题
- 关于QT中evaluateJavaScript()函数返回值的处理问题
- 关于$.ajax 返回返回值问题
- 关于$query=mysql_query($query);返回的是什么类型的值的问题的理解
- 关于jquery中ajax数据返回类型问题
- 关于$.ajax 返回返回值问题
- 关于处理PHP json_encode返回的json数据一些小问题
- 关于QT中evaluateJavaScript()函数返回值的处理问题
- 函数有返回值且返回值为引用类型的问题返回null
- 解决C++/CLI中关于“MissingManifestResourceException类型的未经处理的异常出现在mscorlib.dll”问题一例
- c#关于数据库自定义类型在存储过程中返回服务器端的问题
- C# WebApi 接口返回值不困惑:返回值类型详解
- 关于 API 中返回字串的一些问题