[求助]我想要这样搞CAD的标题栏

狮狮

CAD2004里新增一个命令, 好象是Alt+0 或是 Ctrl+0 就能够反复地隐藏和显现CAD界面的标题栏.         我想那一定要用到API, 我在网上找了相关的资料, 但只有如何隐藏,而没有如何显现标题栏. 所以我的问题是: 如何显示被隐藏了的标题栏?         因为我也想在CAD2002里实现这种功能.

狮狮

这是我所能找到的相关内容的地址,请大家参考.

http://www.china-askpro.com/msg26/qa76.shtml

雪山飞狐_lzh

2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
3. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
4. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
5. Const GWL_STYLE = (-16)
6. Const WS_CAPTION = &HC00000
7. Const SWP_FRAMECHANGED = &H20
8. Const SWP_NOMOVE = &H2
9. Const SWP_NOSIZE = &H1
10. Const HWND_TOP = 0
11. Private hasTitleBar As Boolean
12. Public Sub TitleBarChange()
13.        Dim L As Long
14.        L = GetWindowLong(Application.hwnd, GWL_STYLE)
15.        If hasTitleBar Then
16.                L = L Or WS_CAPTION
17.        Else
18.                L = L And Not (WS_CAPTION)
19.        End If
20.        L = SetWindowLong(Application.hwnd, GWL_STYLE, L)
21.        hasTitleBar = Not hasTitleBar
22.        SetWindowPos Application.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE
23. End Sub

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const GWL_STYLE = (-16) Const WS_CAPTION = &HC00000 Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const HWND_TOP = 0 Private hasTitleBar As Boolean Public Sub TitleBarChange()        Dim L As Long        L = GetWindowLong(Application.hwnd, GWL_STYLE)        If hasTitleBar Then                L = L Or WS_CAPTION        Else                L = L And Not (WS_CAPTION)        End If        L = SetWindowLong(Application.hwnd, GWL_STYLE, L)        hasTitleBar = Not hasTitleBar        SetWindowPos Application.hwnd, HWND_TOP, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE End Sub

上述代码放在ThisDrawing内将下列代码加入到AcadDoc200？.lsp文件内(defun c:tbc() (command "-vbarun" "TitleBarChange"))

狮狮

谢谢飞孤版主. 在声明里还再加一句


Private Declare Function GetActiveWindow Lib "user32" () As Long


就能得到当前活动窗体的句柄.         用以替换Application.hwnd就能实现了.


送上一个小软以表示对这个大家庭的谢意.





这个东西解压后是一个可执行文件. 可是个小软而已哟.

狮狮

很容易地就把这项功能加入了我的CAD2002里面来了. 唉, VB里的API真的是难以搞通的啊, 要不是lzh741206来帮忙, 我真的不知道还要加上 SetWindowPos 这个API来做处理呢. 下面是我的反馈, 成功了! 谢谢.