我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：
1 l! S6 F$ p U8 |( {; w, |( \(本例查询应用程序窗口状态并在消息框里显示其状态。)7 o! S9 z9 l7 W+ _& P8 ?" Q- w
Sub Ch3_CurrentWindowState()
9 E. {4 C" v2 L$ c# zDim CurrWindowState As Integer' A" b& U3 |+ t
Dim msg As String
$ n. X" |7 _+ s0 `" }4 eCurrWindowState = ThisDrawing.Application.WindowState4 c& A F8 I# h6 ^
msg = Choose(CurrWindowState, "正常", "最小化", "最大化")! F/ S* }5 x! W. r$ r+ z% e
MsgBox "应用程序窗口为" + msg; p! w4 c& @4 V% H4 E$ \5 w# S' w: l
End Sub- W" @* U$ b* d+ {7 ^ n! R
程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。
; S2 C2 q& ^' p( T' `( W0 P0 s: C s 此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！ |
发表于 2009-12-19 16:07