checktorun.prg

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

** 协调工具和菜单 **
para cProgram,cFunction
isExistTools=(TYPE("oToolsBar")="O" AND !ISNULL(oToolsBar))  && 如果工具条打开

   do case 
      case left(cFunction,1)="1"  && 选择的全功能按纽操作
         &cProgram
      
      case left(cFunction,1)="2"  && 选择的半功能按纽操作
         if isExistTools
            oToolsBar.setall("Enabled",.f.)         
         endif
         
         &cProgram
      case left(cFunction,1)="3"  && 选择的单功能按纽操作
         if inlist(.t.,lF11,lF12,lF13,lF14,lF15,lF21,lF22,lF23,lF31,lF32,lF33,lF34,lF35)
            messagebox("在运行此程序前，请先退出其它正在运行的程序！",16,"警告")
         else
         if isExistTools
            oToolsBar.setall("Enabled",.f.)         
         endif
         &cProgram
         endif
   
   endcase