showtools.prg

vfp 源码,比较全面

** Show ToolsBar **
PARA cToolsBarName,mToolsBarName
if !(TYPE("&mToolsBarName.")="O" AND !ISNULL(&mToolsBarName.))  && 不存在的话
     mToolsBarName=objectcreate('&cToolsBarName.')
else
     &mToolsBarName..show
endif