vb开发cass遇到的窗口控制的问题
如题,我使用vb二次开发cass,运行代码之后在cass里面弹出一个对话框窗体,我想使用api向这个窗体发送消息,但是现在控制权在弹出的窗体上,代码不能继续运行下去,请问我怎么才能使程序正常运行下去获得相应的结果 <p><font face="Verdana">如果是msgbox的话下面的办法貌似无效(另你的问题提得不太明白啊是控制哪个窗口啊)</font></p><p><font face="Verdana">Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long</font></p>
<p><font face="Verdana">Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long</font></p>
<p><font face="Verdana">Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long</font></p> <p>谢谢楼上的,我控制的对话框是cass的图幅整饰对话框</p>
<p>有一个问题是,图幅整饰对话框弹出后,vb代码就不能继续运行下去了,根本倒不了api代码的地方</p>
<p>相当于那是一个模态窗体</p> VB的对话框会将进程挂起,貌似必须先处理,我只晓得CAD的系统变量FILEDIA可以不显示对话框,cass就不怎么知道处理了
页:
[1]