社区
VB基础类
帖子详情
hwnd的问题,以前曾经问过,但没有解决.
cqnucsmoon
2004-02-15 02:48:05
我在使用水晶报表打印的时候,用下面一句话调出打印设置对话窗体
MReport.PrinterSetup Me.hwnd
现在我想知道用户是点击的"确定"还是"取消",有没有办法呢?
...全文
42
16
打赏
收藏
hwnd的问题,以前曾经问过,但没有解决.
我在使用水晶报表打印的时候,用下面一句话调出打印设置对话窗体 MReport.PrinterSetup Me.hwnd 现在我想知道用户是点击的"确定"还是"取消",有没有办法呢?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
16 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Windows窗口自动化操作类forVB6_V2.0 clsWindow源码
功能描述 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月份深圳培训资料).pdf
Halcon编程方法(大恒2012年6月份深圳培训资料)
MFC中ASSERT(IsWindow(pTemp->m_
hWnd
));报错
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 2008 R2 “无法读取此系统上
以前
注册的服务器的列表”异常
问题
解决
方法
问题
现象 打开Microsoft SQL Server Management Studio提示以下错误: 其错误详细信息如下: 有关调用实时(JIT)调试而不是此对话框的详细信息, 请参见此消息的结尾。 ************** 异常文本 ************** Microsoft.SqlServer.Management.RegisteredServers.RegisteredServerException: 无法读取此系统上
以前
注册的服务器的列表。请在“已注册的服务器”窗口中重新注册您的服
WinForms错误:缓冲操作当前正在进行中,无法释放BufferedGraphicsContext 的可能原因和
解决
方法
http://www.genshuixue.com/i-cxy/p/8047746 WinForms错误:缓冲操作当前正在进行中,无法释放BufferedGraphicsContext 的可能原因和
解决
方法 来源:博客园2010-01-22 上一篇文章(对WebMatrix 进行现代化改造, 使其完美支持中文)里, 我谈了如何修改WebMatrix使其支持中文. 文章末尾
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章