程序调用自定义类怎么提示mytoolbar未定义?
SET DELETED ONSET EXCLUSIVE OFF
SET EXACT ON
SET ANSI ON
SET CENTURY ON
SET DATE YMD
SET SAFETY OFF
SET HELP OFF
SET TALK OFF
SET ESCAPE OFF
SET STATUS OFF
SET STATUS BAR OFF
SET MULTILOCKS ON
SET NULLDISPLAY TO ''
SET OPTIMIZE ON
PUBLIC GUSERNO , GUSERNM , GADMIN
SET PATH TO Data
GADMIN = .F.
GUSERNO = ''
GUSERNM = ' '
USE data\hy\data\lk exclusive IN 0
DELETE all
pack
USE IN lk
ON SHUTDOWN quitsystem()
DO FORM form\dl.scx
READ EVENTS
DO FORM form\zh.scx WITH 'll.mpr'
READ EVENTS
SET CLASS TO mytoolbar
_screen.AddObject('opentoolbar','mytoolbar')
READ EVENTS