gjxz.prg

来自「固定资产管理系统源码..用于企业资产管理,用VFP编码」· PRG 代码 · 共 9 行

PUBLIC oToolBar
IF VARTYPE(oToolbar)="O"
    RELEASE oToolbar
ELSE
    oToolbar=NEWOBJECT("Main_gj","Libs.vcx")                 &&建立工具栏对象
    oToolbar.Show()                                           &&显示对象
    oToolbar.Dock(0)                                          &&在VFP主窗口上方停放
ENDIF
SET MARK OF BAR 1 OF POPView TO VARTYPE(oToolbar)="O"