我在CAD_VBA时，发现以下程序不能够运行，其代码程序如下：
1 ~. X1 |; F4 |(本例查询应用程序窗口状态并在消息框里显示其状态。)+ f% f- I4 @/ b! m( t
Sub Ch3_CurrentWindowState()
# o- W* w: K. `; X2 I4 @& d: sDim CurrWindowState As Integer& Z b9 o% C5 u
Dim msg As String
" R C2 o9 `9 a5 Z$ n& hCurrWindowState = ThisDrawing.Application.WindowState4 @( I" y' b/ ]: V. U
msg = Choose(CurrWindowState, "正常", "最小化", "最大化")8 P8 i! e* F. X2 D; i* @
MsgBox "应用程序窗口为" + msg! N$ g# V2 Z5 J4 ]0 U6 ?
End Sub
" V0 H, `7 o% c, x: H6 l( O 程序不能够运行，本人怀疑是 Currwindowstate的数据类型定义错误，可是又无法查证，希望有经验的人能够提供正确的程序。 h R0 R5 h, ]% K3 ?" I( T
此外，我想问下谁有关于 AUTO- CAD ACTIVEX 的内容，希望有人能够提供下！十分感谢！ |
发表于 2009-12-19 16:07