我用API取得TEXT的值还有窗口的位置,怎么总是不成功呢?

fosterxujp 2007-04-23 11:31:36
我用的是Visual Basic 2005的开发环境
Dim hw As Integer
hw = FindWindow(Nothing, "我的窗口")
hw = FindWindowEx(hw, 0, Nothing, "我的按钮")
Dim i_Rect As RECT 'RECT是我自己定义的一个Class
GetWindowRect(hw, i_Rect) '程序运行到此处提示i_Rect不可读
MsgBox(i_Rect.Top)
Dim Buffer_I As Integer
Dim Buffer() As String
Buffer_I = GetWindowTextLength(hw) '这里的Buffer_I的值可以正常取得
ReDim Buffer(Buffer_I + 1)
GetWindowText(hw, Buffer(0), Buffer_I + 1) '这里取得的值总是空的
MsgBox(Buffer(0))


之前定义的RECT是这样的
Class RECT
Public Left As Long
Public Top As Long
Public Right As Long
Public Bottom As Long
End Class
...全文
291 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
嗷嗷叫的老马 2007-04-24
  • 打赏
  • 举报
回复
..............................................................
programart_life 2007-04-24
  • 打赏
  • 举报
回复
buffer=strdup(Buffer_I+1,chr(0))
programart_life 2007-04-24
  • 打赏
  • 举报
回复
sorry,我没看内容就回了。

函数用错了,把GetWindowText(hw, Buffer(0), Buffer_I + 1)改了
dim buffer as string
buffer=string(256,chr(0))'这句话你用2005的代码升级功能转换一下,貌似2005里没有string这个函数。

GetWindowText(hw,buffer,Buffer_I+1)
programart_life 2007-04-24
  • 打赏
  • 举报
回复
把long换成integer再试试

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧