您的位置：程序门 -> .net技术 -> vb.net

vb.net 如何获取当前运行窗口的标题栏文字

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb.net 如何获取当前运行窗口的标题栏文字[已结贴,结贴人:h88888888]

发表于：2008-01-02 00:23:36 楼主

想编个程序，需要得到需要得到当前窗体标题栏文字，查过msdn等资料仍未获得解决，希望高手帮忙解决一下
procedure tform1.button1click（sender: tobject);
var
hcurwindow: hwnd;
wintext: array[0..255] of char;
begin
memo1.clear;
hcurwindow := getwindow（handle, gw_hwndfirst);
while hcurwindow <> 0 do
begin
if getwindowtext（hcurwindow, @wintext, 255) > 0 then
memo1.lines.add（strpas（@wintext));
hcurwindow := getwindow（hcurwindow, gw_hwndnext);
end;
end;
这是我找的一段代码，但看不懂，好像不是vb.net的代码希望大家指点，或帮忙翻译成vb.net的代码

发表于：2008-01-02 09:47:371楼得分:20

用vb.net取得当前活动窗口的标题
第一步，声明三个api

vb.net code

private declare function getwindowtext lib "user32" alias "getwindowtexta" （byval hwnd as intptr, byval lpstring as string, byval cch as integer) as integer

    private declare function getwindowtextlength lib "user32" alias "getwindowtextlengtha" （byval hwnd as intptr) as integer

    declare function getforegroundwindow lib "user32" （) as integer

第二步：取得窗口标题

vb.net code


    dim hdl as new intptr（getforegroundwindow) '获取活动窗口的句柄

    dim strtitle as string = space（getwindowtextlength（hdl) + 1) '构造窗口标题字符串缓冲区

    getwindowtext（hdl, strtitle, strtitle.length) '获取窗口文字

'至此,strtitle的值即为系统的活动窗口的标题

发表于：2008-01-02 09:52:322楼得分:0

楼上的正解，标题在strtitle中

发表于：2008-01-02 09:57:033楼得分:0

好象这个api可以获取窗体名字：
public declare function findwindow lib "user32.dll" alias "findwindowa" （byval lpclassname as string, byval lpwindowname as string) as int32

发表于：2008-01-02 10:03:314楼得分:0

学习。。。

发表于：2008-01-07 22:38:585楼得分:0

谢谢，太感谢了，结了

下一篇：java到vb2005
上一篇：formapplication中datagridview两行显示的问题

其他资讯