【求助】 关于制作自己的全屏工具

wowan1314

喜欢全屏CAD作图。但已知的全屏工具均不太满意，所以有此想法.  想要的全屏：无标题栏，无菜单栏，有工具栏，有状态栏，有系统任务栏。

已知的全屏工具缺点。
1.CAD自带的，仅无标题栏，但工具栏没了，系统任务栏没了
2.ET带的全屏，有工具栏，有系统任务栏，无标题，无菜单。但也没状态栏了！
3.有个外挂的全屏软件，什么都没了。


通过加载高飞鸟分享的那个VLX...可调用API函数。令我看到了希望。


但缺存在一点BUG.   故发帖求达人帮忙完善。
1、打开多个图纸的情况下。  在图纸间切换一下，菜单栏就又出现了。
2、从CAD界面切换到其他文件夹，再切换回来时候，系统的任务栏也被遮挡了。。

;;; 隐藏CAD菜单栏和标题栏                                               
;;; ====================================================================
(defun C:Ccc (/ DWX app hwnd menu)
  ;; Create a DynamicWrapperX instance and register win32 API functions.
  (setq DWX (vlax-create-object "DynamicWrapperX"))
  (and (null DWX) (exit))
  (vlax-invoke DWX 'Register "USER32" "SetWindowLong" "i=lll" "r=l") ;注册SetWindowLong函数
  (vlax-invoke DWX 'Register "USER32" "GetWindowLong" "i=ll" "r=l") ;注册GetWindowLong函数
  (vlax-invoke DWX 'Register "USER32" "SetMenu" "i=ll" "r=l")  ;设置菜单
  (vlax-invoke DWX 'Register "USER32" "GetMenu" "i=l" "r=l")  ;取得当前菜单句柄
  ;;Hide the title and menubar
  (setq app (vlax-get-acad-object))     ;当前CAD程序
  (setq hwnd (vla-get-hwnd app))     ;CAD窗口句柄
  (ShowTitle DWX hwnd nil)      ;隐藏标题栏
  (setq menu (vlax-invoke DWX 'GetMenu hwnd))                           ;获得程序的菜单句柄
  (and (/= menu 0) (setq hMenu menu))     ;此处应把hMenu设置为全局变量
  (vlax-invoke DWX 'SetMenu hwnd 0)     ;(vlax-invoke DWX 'SetMenu hwnd hMenu) 恢复菜单栏
  ;; Release object
  (vlax-release-object app)
  (vlax-release-object DWX)
  (princ)
)
(defun ShowTitle (DWX hwnd Show / oldStyle)    ;如果show 为t 那么显示，否则不显示
  (setq oldStyle  (vlax-invoke Dwx 'GetWindowLong hwnd -16))   ;GWL_STYLE -16
  (if Show
    (if (zerop (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000
      (vlax-invoke DWX 'SetWindowLong hwnd -16 (+ oldstyle 12582912))
    )
    (if (/= 0  (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000
      (vlax-invoke DWX 'SetWindowLong hwnd -16 (- oldstyle 12582912))
    )
  )
)

wowan1314

方案1、会api的朋友帮忙改改上面的代码。

方案2、窗口正常化。然后隐藏标题栏，通过vla-put-WindowTop改变窗口位置。
          比如据顶边-6.这样就到达隐藏菜单栏的作用。但是这个函数只能接受正整数，-6不接受。
           但是手动移动是可以移动成--负值的。  

方案3、也是按照2的思路。CAD的界面在手动设置好后。以后打开都是默认的。
          那么是否说CAD窗口界面数据是保存在注册表中呢！
          找到窗口界面数据在注册表中的位置，看看能不能直接把它改成需要的数值。？

方案1已经不抱希望了，方案二 估计这个函数就是不接受负值，也没希望。

就剩下方案3了。   有谁知道的  还请指导，指导。 感谢

注册

wowan1314 发表于 2013-6-8 10:17
方案1、会api的朋友帮忙改改上面的代码。

方案2、窗口正常化。然后隐藏标题栏，通过vla-put-WindowTop改 ...

你不是不倒腾lsp了吗，你这个我也需要啊，fullscreen不是太理想

GamIng

wowan1314 发表于 2013-6-8 10:17
方案1、会api的朋友帮忙改改上面的代码。

方案2、窗口正常化。然后隐藏标题栏，通过vla-put-WindowTop改 ...

居然还有大师不会！这么久了大师折腾出来了么？

xman00

不知道大师有进展没，其实我个人比较关心系统任务栏的隐藏。

alexmai

换个高分辨显示器，估计就不需要这个了:D

happy336

谢谢分享，支持