如何用Excel的VBA切换到CAD程序?模拟ALT+TAB功能.

ningyong58 2009-08-04 12:14:31
在网上找了一下,要实现这个目的.
先用HANDLE hWnd = FindWindow(....)找到该程序的窗口,然后使用SendMessage(hwnd, WM_ACTIVEAPP,....)
或是SetForgroudWindow(hWnd, ....)就可以了,相激活自己也一样
请问各位大侠的问题是不是按hWnd = FindWindow(....)查找相关资料进行学习,才能实现目标需求.谢谢.

excel调用cad程序如下
Function ConnectCad() As AcadApplication
Dim App As AcadApplication
On Error Resume Next
Set App = GetObject(, "AutoCad.Application")
If Err Then
Err.Clear
Set App = CreateObject("AutoCad.Application")
End If
App.Visible = True
Set ConnectCad = App
End Function
excel调用CAD的关键语句,GetObject(, "AutoCad.Application")和CreateObject("AutoCad.Application")
用此模块程序的结果是,在excel中运行CAD只能看到EXCEL程序,要切换到CAD,须点击CAD图标,或alt+tab切换,才能实现目标需求.
...全文
297 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ning84 2009-12-05
SetForgroudWindow(hWnd, ....)用起来比较麻烦.
回复
aohan 2009-12-05
简单的方法



Private Sub Command1_Click()
SendKeys "%{TAB}"
End Sub

回复
ningyong58 2009-08-04
又找到两个相关帖子,有时间慢慢学习
SendMessage函数巧应用(API)---- http://dev.csdn.net/develop/article/58/58832.shtm
SendMessags谁能给几个例子-------- http://topic.csdn.net/t/20050121/15/3744082.html#
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7518

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2009-08-04 12:14
社区公告
暂无公告