CAD_VBA

冰a815

我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：
(本例查询应用程序窗口状态并在消息框里显示其状态。)
Sub Ch3_CurrentWindowState()
5 o, m, a2 k8 c' ~Dim CurrWindowState As Integer
Dim msg As String
CurrWindowState = ThisDrawing.Application.WindowState
- @! U4 @( u) H* A  qmsg = Choose(CurrWindowState, "正常", "最小化", "最大化")
( @$ N! b5 E7 Z' t) j4 k9 HMsgBox "应用程序窗口为" + msg
End Sub
: r% \, R4 ^1 _* f; l) |+ x   程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。
9 W; _. d  g" s" S" O/ |" d* ?  \6 u$ w   此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！

woaishuijia

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

zlanai

这个厉害了，顶上，