马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 扫雷窗口句柄, 整数型
.局部变量 信息, RECT
扫雷窗口句柄 = API_寻找顶级窗口 (“扫雷”, “扫雷”)
编辑框1.内容 = 到文本 (扫雷窗口句柄)
取窗口矩形 (扫雷窗口句柄, 信息)
编辑框2.内容 = 到文本(信息.左边)
编辑框3.内容 = 到文本(信息.顶边)
编辑框4.内容 = 到文本(信息.右边)
编辑框5.内容 = 到文本(信息.底边)
.DLL命令 取窗口矩形, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形,窗口的边框、标题栏、滚动条及菜单等都在这个矩形内 非零表示成功,零表示失败。会设置GetLastError
.参数 窗口句柄, 整数型, , 想获得范围矩形的那个窗口的句柄
.参数 矩形区域, RECT, , RECT,屏幕坐标中随同窗口装载的矩形;
.DLL命令 API_寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄;该类是所有运行中vb执行程序的一部分。获得句柄后,可用api函数GetWindowText取得这个窗口的名称;该名也是应用程序的标题) 找到窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError
.参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止(C语言)字串的指针;或设为零,表示接收任何类
.参数 窗口文本, 文本型, , 指向包含了窗口文本(或标签)的空中止(C语言)字串的指针;或设为零,表示接收任何窗口标题 示例Dim hw&, cnt&Dim rttitle As * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left$(rttitle, cnt), 0, "RTMain title";
|