冰a815 发表于 2009-12-19 16:07

CAD_VBA

我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：
(本例查询应用程序窗口状态并在消息框里显示其状态。)
Sub Ch3_CurrentWindowState()
Dim CurrWindowState As Integer
Dim msg As String
CurrWindowState = ThisDrawing.Application.WindowState
msg = Choose(CurrWindowState, "正常", "最小化", "最大化")
MsgBox "应用程序窗口为" + msg
End Sub
   程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。
   此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！

woaishuijia 发表于 2010-1-30 12:02

代码本身没有错误，完全可以正常运行，你的问题出在其它方面。

zlanai 发表于 2010-5-18 09:07

这个厉害了，顶上，
页: [1]
查看完整版本: CAD_VBA