如何获取对话框的句柄? 我在vb的程序中调用了word,程序运行时,点击某个按钮弹出字体对话框,语句是:Dialogs(wdDialogFormatFont).Show 我想问的是如何能得到这个字体对话框的句柄???????谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用这个对话框的窗口标题通过FindWindow查找 hWndWordApp = FindWindow(vbNullString, "字体")Dialogs(wdDialogEditFind).ShowCall SetParent(hWndWordApp, me.hwnd)在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢? Dialogs(wdDialogEditFind).ShowhWndWordApp = FindWindow(vbNullString, "字体")Call SetParent(hWndWordApp, me.hwnd)在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢? 因为字体的对话框弹出来的时候,总是先释放程序的主界面,要我再次击活主界面才行.是不是因为我把word的窗体嵌入到vb的窗体中,而字体的对话框又是word自带的,所以用findwindow找不到呢? Dialogs(wdDialogEditFind).ShowhWndWordApp = FindWindow(vbNullString, "字体")do while hWndWordApp=0 doevents hWndWordApp = FindWindow(vbNullString, "字体")loopCall SetParent(hWndWordApp, me.hwnd)在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢? 不行了,因为hwndwordapp总是等于0的,Dialogs(wdDialogEditFind).Show运行后,要关闭这个对话框程序才能继续执行的,所以hwndwordapp才总是0吧! 模式对话框就是必须等对话框关闭后才能执行下面的代码我给你列子form1.showmsgbox "!"form2.show 1msgbox "?"上面的不需要等form1关闭就执行到了msgbox了而下面的必须等form2关闭才能执行到msgbox 计时器有什么用呀,不知道为什么要用它呢,我以为只要用findwindow就能找到了呢?不明白你的意思.如果把word字体的对话框作为不个外部程序呢?那样怎么能获得它的句柄呢?原来以为用setparent就能解决的问题这么麻烦,我想得脑袋都要破了!!! Hookie *****************************************************************************欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html Dialogs(wdDialogFormatFont).Show里的wddialogformatfont在运行时的信息是117,那是不是可以写成 Call SetParent(117, me.hwnd) Dialogs(wdDialogEditFind).Show这样是不是应该能行呢? 我现在用这个怎么有的时候好用,Call SetParent(117, me.hwnd) Dialogs(wdDialogformatfont).Show有的时候就不好用呢,为什么呀???谁能告诉我 我想把我的代码弄成Asc码,好让人看起来乱七八糟的看不懂.一般的字符串可以,但是"方法"字符就不行,要怎么写呢? 参数传递一问 请问这段ADO数据库的代码错误在什么地方 如何用ADO在ACCESS数据库中创建一个结构相同的表?(注:不要用SQL的CREATE语句) access 数据格式怎样转化? 有一套VB写的进销存管理软件放到网上让大家下,共同交流共同进步 关于winsock在局域网里的广播问题。 关于三层架构中上传组件的问题 一个很急的问题! 求购b/s结构办公自动化软件? sql数据的同步 跪求一个算法!!!在线等
通过FindWindow查找
Dialogs(wdDialogEditFind).Show
Call SetParent(hWndWordApp, me.hwnd)
在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢?
Dialogs(wdDialogEditFind).Show
hWndWordApp = FindWindow(vbNullString, "字体")
Call SetParent(hWndWordApp, me.hwnd)
在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢?
hWndWordApp = FindWindow(vbNullString, "字体")
do while hWndWordApp=0
doevents
hWndWordApp = FindWindow(vbNullString, "字体")
loop
Call SetParent(hWndWordApp, me.hwnd)
在那个click事件里我是这么写的,可是不好用呀?帮忙看看有什么问题呢?
我给你列子form1.show
msgbox "!"form2.show 1
msgbox "?"
上面的不需要等form1关闭就执行到了msgbox了
而下面的必须等form2关闭才能执行到msgbox
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
Dialogs(wdDialogEditFind).Show
这样是不是应该能行呢?
Call SetParent(117, me.hwnd)
Dialogs(wdDialogformatfont).Show
有的时候就不好用呢,为什么呀???谁能告诉我