vb开发cass遇到的窗口控制的问题

feiyyu · 发表于 2010-10-26 14:06:00

如题，我使用vb二次开发cass，运行代码之后在cass里面弹出一个对话框窗体，我想使用api向这个窗体发送消息，但是现在控制权在弹出的窗体上，代码不能继续运行下去，请问我怎么才能使程序正常运行下去获得相应的结果

chmenf087 · 发表于 2010-10-26 18:15:00

如果是msgbox的话下面的办法貌似无效（另你的问题提得不太明白啊是控制哪个窗口啊）
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
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

feiyyu · 发表于 2010-10-27 13:27:00

谢谢楼上的，我控制的对话框是cass的图幅整饰对话框
有一个问题是，图幅整饰对话框弹出后，vb代码就不能继续运行下去了，根本倒不了api代码的地方
相当于那是一个模态窗体

chmenf087 · 发表于 2010-10-27 21:59:00

VB的对话框会将进程挂起，貌似必须先处理，我只晓得CAD的系统变量FILEDIA可以不显示对话框，cass就不怎么知道处理了

vb开发cass遇到的窗口控制的问题

发表回复

精选推荐