如何用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切换,才能实现目标需求.
...全文
592 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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#

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧