我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：
" O6 k/ t& k+ a8 w n(本例查询应用程序窗口状态并在消息框里显示其状态。)
3 A& f3 ^! @' \7 A9 X( u) GSub Ch3_CurrentWindowState()+ W6 x# ]/ g( `/ Q7 C
Dim CurrWindowState As Integer
# r$ _, o$ S- W( L" jDim msg As String E3 c. D* D- p) @0 \
CurrWindowState = ThisDrawing.Application.WindowState5 E% L8 k) f! ]* d: A
msg = Choose(CurrWindowState, "正常", "最小化", "最大化"): Q2 g n: M& N X) {( J
MsgBox "应用程序窗口为" + msg: d' `) l4 r1 Y" _2 L
End Sub
0 Q2 J' d9 [; e! H 程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。
# V" h! D" Z: ]" B j1 P 此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！ |
发表于 2009-12-19 16:07