求助：VBA创建的非模态界面与CAD干涉

行空雕 · 发表于 2014-7-14 18:37:37

--------------------前情提要
1、在CAD中用VBA创建输入用户窗体，打算利用此窗体作多种单独计算
2、设置窗体模式为非模态，其行为中 ShowModal 值为 false
--------------------问题
1、运行之后显示窗体，CAD可以操作，但窗体中的文本框无法响应键盘输入
--------------------在此先谢谢大家的关注和帮助

wuyunpeng888 · 发表于 23 小时前

flags = GetWindowLong(FindWindow(vbNullString, Me.Caption), GWL_STYLE)
flags = flags Xor WS_POPUP
SetWindowLong FindWindow(vbNullString, Me.Caption), GWL_STYLE, flags

hector · 发表于 2018-12-30 03:43:03

wuyunpeng888 发表于 2014-10-15 15:21
窗口的Initialze事件里加上一句
SetParent FindWindow(vbNullString, Me.Caption),Application.hwnd
这两 ...

正解，多谢大神。

wuyunpeng888 · 发表于 23 小时前

其实这个并不是正解，最正确的是用API函数把弹出窗口的属性去掉

行空雕 · 发表于 2014-7-15 23:15:48

公司用到CAD比较老，也属无奈。自己先顶一下

行空雕 · 发表于 2014-7-16 08:33:50

我还是没找到问题的解决方法

ivde · 发表于 2014-7-16 12:43:16

光标在别处当前无法响应，焦点放到在文本框

行空雕 · 发表于 2014-7-16 19:11:02

ivde 发表于 2014-7-16 12:43
光标在别处当前无法响应，焦点放到在文本框

非常感谢！试了一下文本框 Setfocus，VB窗口还是无法输入文本，方便的话，能详细点吗？

行空雕 · 发表于 2014-7-17 08:02:57

目前想通过焦点控制来试试

行空雕 · 发表于 2014-7-18 07:54:08

行空雕发表于 2014-7-17 08:02
目前想通过焦点控制来试试

感叹水平有限

wmz · 发表于 2014-7-19 10:04:52

本帖最后由 wmz 于 2014-7-19 10:16 编辑

好像不存在什么问题，只要将鼠标移到该文本框，即可输入，当然，你要设置窗体的showmodal 的值为true.

行空雕 · 发表于 2014-7-19 18:19:17

wmz 发表于 2014-7-19 10:04
好像不存在什么问题，只要将鼠标移到该文本框，即可输入，当然，你要设置窗体的showmodal 的值为true.

非常感谢您的关注与解答！

设置窗体的showmodal 的值为true，之后窗体独占，CAD内无法操作，我想窗口显示之后，CAD也可以操作，我希望通过这个窗口进行多种计算，避免重复打开，再次感谢！

行空雕 · 发表于 2014-7-21 15:56:43

暂时无头绪

账号		自动登录	找回密码
密码			注册

求助：VBA创建的非模态界面与CAD干涉

相关帖子

点评