starter.prg

来自「写卡器的串口测试程序, 有delphi的,vb的... 涉用到好几有语言, 」· PRG 代码 · 共 33 行

    *******************************************************************
   ** Starter.prg  Extreme minimum sample Code to start the application
   *******************************************************************
   *
   DO FORM form1.scx
   READ EVENTS

   PROCEDURE back2vfp
   ** The application's form was activated from the desktop level as a
   ** desktop level form. The event handler is at the desktop level, and
   ** is equivalent to a property of the _SCREEN object, so it must be
   ** terminated by a method of the _SCREEN object. As no _SCREEN
   ** object members are visible (no command buttons, text boxes, etc.),
   ** a Timer event is used to clear events. The timer object is not
   ** visible, and doesn't need to be in order to be activated.
   ** To activate the Timer: Add it to the _SCREEN
   *
   _SCREEN.AddObject('oTime','MyTimer')  && MyTimer is the
   **                                       current instance
   ** End of procedure Back2vfp
   **
   ** Class definition. The TIMER event is triggered after two seconds
   DEFINE CLASS MyTimer AS Timer
      Interval= 200
      PROCEDURE Timer
         CLEAR EVENTS
         _SCREEN.RemoveObject('oTime')
      ENDPROC
   ENDDEFINE
   **
   ** End of extreme minimum sample Starter.prg*******************
   ***************************************************************