SUB ShowCommand( ByRef oCommand )
logmessage "--------------------------------"
logmessage "Name: " & oCommand.Name
logmessage "FileName: " & oCommand.FileName
logmessage "Handler: " & oCommand.Handler
logmessage "Language: " & oCommand.language
logmessage "Type: " & oCommand.type
END SUB
set oAllCommands = Application.Commands
' Get all custom commands
set oCustomCommands = oAllCommands.Filter("Custom")
' Display all custom commands
FOR EACH oCommand IN oCustomCommands
ShowCommand oCommand
NEXT


       
Counter: 6611, today: 11, yesterday: 5
最終更新: 2011-03-10 (木) 23:27:25 (JST) (3113d) by Land-Y
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