showtools.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 8 行

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