我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：. j! ^5 {" v, w6 j$ a
(本例查询应用程序窗口状态并在消息框里显示其状态。)" `/ L) H. g: N& b3 a. e# S+ i
Sub Ch3_CurrentWindowState()
) h; v) G( G" C0 aDim CurrWindowState As Integer
% k& J3 m4 k4 N$ M1 f/ Y0 EDim msg As String
) h# T+ A& Y: u" hCurrWindowState = ThisDrawing.Application.WindowState( A: b+ q. m, _2 q1 G/ C/ P
msg = Choose(CurrWindowState, "正常", "最小化", "最大化")' p7 d0 a/ e% C7 P
MsgBox "应用程序窗口为" + msg. f; j' E. u, J, i
End Sub
F7 v+ X- L* {) P 程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。/ @- v$ k$ C& F( Q/ P% Z! Z/ u, d& i
此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！ |
发表于 2009-12-19 16:07