hwnd的问题,以前曾经问过,但没有解决.

cqnucsmoon 2004-02-15 02:48:05

我在使用水晶报表打印的时候,用下面一句话调出打印设置对话窗体
MReport.PrinterSetup Me.hwnd

现在我想知道用户是点击的"确定"还是"取消",有没有办法呢?

...全文

42 16 打赏收藏转发到动态举报

写回复

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

功能描述 clsWindow是VB6环境下使用的一个操作外部程序窗口的类，比如得到窗口句柄，得到窗口里某个文本框的内容。非常方便，使用它可以让您脱身于一堆api函数，功能强大使用简单！这个类楼主很早就开始封装了，原本打算做成类似DOM对象那样，通过一堆getElmentByXXX等方法实现对桌面程序下各个窗口以及里面各个控件对象的自由访问，但是具体要做的工作太多，目前只实现了一部分，期待大家一起加入更新维护。目前该类封装了绝大部分对windows窗口的常用操作，例如：获取窗口句柄，设置窗口为活动窗口，设置窗口内文本框内容，点击窗口内的某些按钮等。这个类现在还在一直不断地扩充，功能已经很强大很广泛，使用它可以轻而易举地设置窗口标题栏文字，移动窗体等等。以前要实现这些操作常常需要一大堆api函数，现在只需要一点点代码就可以了，完全让您脱身于api函数的海洋。当然您需要研究每个方法实现原理的话可以看一看源代码。使用范例（请在v1.9以上测试）： 1）关闭腾讯新闻窗口“腾讯网迷你版”。 Dim window As New clsWindow If window.GetWindowByTitle("腾讯网迷你版").hWnd > 0 Then window.CloseWindow '关闭窗口 End If 以上是不是很简洁呢？ 20150715更新追加：最新1.9版本更简洁，一句话解决： w.GetWindowByTitle("腾讯网迷你版").CloseWindow 小伙伴，是不是简洁爆了呢？:) 为了防止程序找不到窗口而一直等待可以改成： w.GetWindowByTitle("腾讯网迷你版",1).CloseWindow （意思为超时等待1秒。默认会耐心等60秒，除非你确定窗口一定有，然后就用上面的。） 2）获取某个打开的记事本里面的内容。假设记事本标题为“测试要求.txt - 记事本”，通过SPY等工具查看得知记事本的文本框类名为：Edit，那么我们编写程序如下： Dim window As New clsWindow If window.GetWindowByTitle("测试要求.txt - 记事本").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If 这个看起来也很简单，方法自由还可以使用正则匹配，可以写成下面这样： Dim window As New clsWindow If window.GetWindowByTitleEx("工作任务\.txt.*?", , , True).hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edi", , True) '第三个参数表示是否使用正则，默认为false End If 获取标题那边如果觉得要把标题写完整太麻烦，可以将GetWindowByTitle该车GetWindowByTitleEx然后后面只要写关键字就行啦。看招： Dim window As New clsWindow If window.GetWindowByTitleEx("工作任务").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If clsWindow类最新版下载请关注博客： http://blog.csdn.net/sysdzw/article/details/9083313 '============================================================================================== '名称：windows窗体控制类v2.0 '描述：一个操作windows窗口的类，可对窗口进行很多常用的操作(类名为clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowByTitle "计算器" ' window.closeWindow '编程：sysdzw 原创开发，如果有需要对模块扩充或更新的话请邮箱发我一份，共同维护 '发布日期：2013/06/01 '博客：http://blog.163.com/sysdzw ' http://blog.csdn.net/sysdzw 'Email ：sysdzw@163.com 'QQ ：171977759 '版

Halcon编程方法（大恒2012年6月份深圳培训资料）

vc6.0写好的mfc程序，在vc6.0下能运行通过，直接从别人那拷贝到vs2010中出现了以下错误 Debug Assertion Failed f:/sp/vctools/vc7libs/ship/atlmfc/src/mfc/occcont.cpp(925) 925行代码是：ASSERT(IsWindow(pTemp->m_hWnd)); 对话框也打不开，显示没有安装这个Act

问题现象打开Microsoft SQL Server Management Studio提示以下错误：其错误详细信息如下：有关调用实时(JIT)调试而不是此对话框的详细信息，请参见此消息的结尾。 ************** 异常文本 ************** Microsoft.SqlServer.Management.RegisteredServers.RegisteredServerException: 无法读取此系统上以前注册的服务器的列表。请在“已注册的服务器”窗口中重新注册您的服

http://www.genshuixue.com/i-cxy/p/8047746 WinForms错误:缓冲操作当前正在进行中，无法释放BufferedGraphicsContext 的可能原因和解决方法来源：博客园2010-01-22 上一篇文章(对WebMatrix 进行现代化改造, 使其完美支持中文)里, 我谈了如何修改WebMatrix使其支持中文. 文章末尾

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章