【求助】 关于制作自己的全屏工具<隐藏标题、菜单栏>

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

沉的太快了！！！ 我顶

注册

我来帮你顶，

200853006

顶啊。。。。

print1985

其实我有个好方法
买个27的显示器，就不用全屏了
帮你顶

wowan1314

print1985 发表于 2013-4-9 09:34
其实我有个好方法
买个27的显示器，就不用全屏了
帮你顶

其实每次我都是手动设置全屏！只是想用程序会省事很多！

848818376

好想法，楼主厉害88

ww5w

帮你顶一下，弱弱问一下，ET带的全屏命令是那个?

l18c19

期待高人出现！我也想拥有这样的工具！

004

主题要求写的非常细致，帮顶。