set oVM = Application.Desktop.ActiveLayout
set views = oVM.Views
flg  = 0
barname = "usertoolbar"
for each view in views
   if view.Name = barname  then flg = 1 
next
if flg = 0 then 
	set oView = oVM.CreateView(barname ,barname )
	oView.Move "80", "60"
	oView.Resize "850", "1100"
else
	set oView = oVM.Views( barname)
	oView.State = siClosed
end if



oView.Move "80", "60"

oView.Resize "850", "1100"


  • -- Land-Y編集 Script​/ツールバーやウインドウをキーで開閉

#comment


       
Counter: 8949, today: 2, yesterday: 0
最終更新: 2009-10-05 (月) 22:23:16 (JST) (3692d) by ゲスト
GoogleWiki
WikiMenu

ホーム ニュース フォーラム UserBlog 道場Wiki
Powered by XOOPS Cube Legacy 2.1.7 2001-2009 XOOPS Cube Project
cvELD.net project [ Softimage & XSI道場 ] since 2004 1/1