[Vlisp函数]Show Logo

eachy · 发表于 2005-12-23 21:43:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[PHP]
(defun xdl-showlogo (/ ieobj wsh)
  (setq
ieobj (vlax-get-or-create-object "internetexplorer.application")
  )
  (vlax-put ieobj 'fullscreen 1)
  (vlax-put ieobj 'width 300)
  (vlax-put ieobj 'height 150)
  (vlax-invoke ieobj 'navigate "about:blank")
  (vlax-put
ieobj
'left
(fix
   (/
(-
   (vlax-get
      (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
      'screen
      )
      'availwidth
   )
   300
)
2
   )
)
  )
  (vlax-put
ieobj
'top
(fix
   (/
(-
   (vlax-get
      (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
      'screen
      )
      'availheight
   )
   300
)
2
   )
)
  )
  (vlax-invoke
(vlax-get ieobj 'document)
'write
"<body bgcolor =skyblue scroll=no><br><br> <h2 align=center>WWW.XDCAD.NET<br><h2 align=center>eachy@xdcad.net</h2></body>"
  )
  (vlax-put ieobj 'visible 1)
  (setq wsh (vlax-get-or-create-object "WScript.Shell"))
  (command ".delay" 3000)
  (vlax-invoke ieobj 'quit)
  (princ)
)
[/PHP]
1 可以将显示文字写成标准html 文件调用
2 可以改成显示一个图片[U]

fools · 发表于 2005-12-24 21:11:35

[原创]
另一种显示logo的方法，可生成不断移动的logo
1 可以将显示文字写成标准html 文件调用
2 可以改成显示一个图片
3.可根据需要改变logo移动的轨迹
4.除用于显示logo以外，html文件还用popup生成包含超链接的弹出菜单
这是msdn的例子http://msdn.microsoft.com/worksh ... l/popup/default.htm

更多有关popup的运用，可到msdn处查找
http://msdn.microsoft.com/librar ... ference/objects.asp

(defun xdl-popuplogo (/ ieobj pop body bodystyle tmp)
(setq
ieobj (vlax-get-or-create-object "Internetexplorer.application")
)
(vlax-invoke ieobj 'navigate "about:blank") ;"about"":blank"间无空格
(setq pop (vlax-invoke
(vlax-get (vlax-get ieobj 'document) 'parentwindow)
'createpopup
)
)
(setq body (vlax-get (vlax-get pop 'document) 'body))
(setq bodystyle (vlax-get body 'style))
(vlax-put-property bodystyle 'backgroundColor "skyblue")
(vlax-put-property bodystyle 'border "solid black 1px")
(vlax-put-property
body
'innerhtml
"<h2 align=center>[url]WWW.XDCAD.NET[/url]<br><h2 align=center>eachy@xdcad.net</h2>" ;Display some HTML here.
)
(setq tmp -1)
(repeat 1000
(vlax-invoke pop 'show (setq tmp (1+ tmp)) "200" "300" "100" body)
)
(vlax-invoke pop 'hide)
(vlax-release-object ieobj)
(vlax-release-object pop)
(vlax-release-object body)
(vlax-release-object bodystyle)
)

<br />
(defun xdl-popuplogo (/ ieobj pop body bodystyle tmp)<br />
  (setq<br />
    ieobj (vlax-get-or-create-object "Internetexplorer.application")<br />
  )<br />
  (vlax-invoke ieobj 'navigate "about:blank")  ;"about"":blank"间无空格<br />
  (setq        pop (vlax-invoke<br />
              (vlax-get (vlax-get ieobj 'document) 'parentwindow)<br />
              'createpopup<br />
            )<br />
  )<br />
  (setq body (vlax-get (vlax-get pop 'document) 'body))<br />
  (setq bodystyle (vlax-get body 'style))<br />
  (vlax-put-property bodystyle 'backgroundColor "skyblue")<br />
  (vlax-put-property bodystyle 'border "solid black 1px")<br />
  (vlax-put-property<br />
    body<br />
    'innerhtml<br />
    "<h2 align=center>[url]WWW.XDCAD.NET[/url]<br><h2 align=center>eachy@xdcad.net</h2>" ;Display some HTML here.<br />
  )<br />
  (setq tmp -1)<br />
  (repeat 1000<br />
    (vlax-invoke pop 'show (setq tmp (1+ tmp)) "200" "300" "100" body)<br />
  )<br />
  (vlax-invoke pop 'hide)<br />
  (vlax-release-object ieobj)<br />
  (vlax-release-object pop)<br />
  (vlax-release-object body)<br />
  (vlax-release-object bodystyle)<br />
)<br />

它山之石 · 发表于 2005-12-28 10:05:31

能做出这种效果来吗？

eachy · 发表于 2005-12-28 11:00:03

可以，只要在 Html 中增加一个图片即可

wujimmy · 发表于 2005-12-28 21:54:14

这个程序很好,
(vlax-dump-object ieobj t)
奇怪的是从上面dump出来的函数里没有(vlax-put ieobj 'visible 1)这个属性,为什么也能用呢?

#<VLA-OBJECT IWebBrowser2 001dd774>
_$

; IWebBrowser2: Web Browser Interface for IE4.
;特性值:
; AddressBar = ...不显示带索引的内容...
; Offline = ...不显示带索引的内容...
; ReadyState (RO) = ...不显示带索引的内容...
; RegisterAsBrowser = ...不显示带索引的内容...
; RegisterAsDropTarget = ...不显示带索引的内容...
; Resizable = ...不显示带索引的内容...
; Silent = ...不显示带索引的内容...
; TheaterMode = ...不显示带索引的内容...
;支持的方法:
; ExecWB (4)
; Navigate2 (5)
; QueryStatusWB (2)
; ShowBrowserBar (3)

T

fools · 发表于 2005-12-30 00:37:23

(vlax-dump-object ieobj t)的功能很有限，比如你能得到相关的方法和所需的参数个数，但你并不知道它们的含义和如何去用，又比如很多属性你仅从字面含义是无法了解它的作用的。所以要学会用msdn，那里有所有你需要的资料
有关InternetExplorer Object
http://msdn.microsoft.com/librar ... nternetexplorer.asp

北纬91 · 发表于 2006-3-1 11:19:06

一二楼代码第一次运行正常，第二次运行提示“出现意外”

fools · 发表于 2006-3-1 22:15:35

(vlax-invoke ieobj 'navigate "about:blank")
注意："about"":blank"间无空格

wangyue · 发表于 2006-3-17 09:10:12

thanks!

ajing_sky · 发表于 2008-12-28 01:01:14

强列支持，大开眼界

yjch · 发表于 2013-6-12 13:34:36

可以制作自己的图标了

账号		自动登录	找回密码
密码			立即注册

[Vlisp函数]Show Logo

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子