home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Borland / Dbase50w / SAMPLES1.PAK / SWITCH.WFM < prev    next >
Text File  |  1994-08-02  |  2KB  |  72 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Switch.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      6/94
  9. *
  10. *  REVISION:     $Revision:   1.26  $
  11. *
  12. *  VERSION:      dBASE FOR WINDOWS 5.0
  13. *
  14. *  DESCRIPTION:  This is a very simple program illustrating the use of VBX
  15. *                controls with dBASE for Windows.  The Forms Designer helps
  16. *                you work with VBX controls by allowing you to visually
  17. *                manipulate and change the VBX control properties just like
  18. *                you can with the regular dBASE for Windows built in controls
  19. *
  20. *  PARAMETERS:   None
  21. *
  22. *  CALLS:        Switch.vbx  (VBX control)
  23. *
  24. *  USAGE:        DO Switch.wfm
  25. *
  26. *******************************************************************************
  27. create session
  28. set talk off
  29. set ldCheck off
  30.  
  31. ** END HEADER -- do not remove this line*
  32. * Generated on 07/13/94
  33. *
  34. LOCAL f
  35. f = NEW SWITCHFORM()
  36. f.Open()
  37.  
  38. CLASS SWITCHFORM OF FORM
  39.    this.HelpId = ""
  40.    this.HelpFile = ""
  41.    this.Text = "Switch"
  42.    this.Height =          6.78
  43.    this.Left =         24.90
  44.    this.Top =          5.23
  45.    this.Width =         25.73
  46.  
  47.    load dll switch.vbx
  48.    DEFINE BISWITCH BISWITCH1 OF THIS;
  49.        PROPERTY;
  50.          OnOpen CLASS::BISWITCH1_ONOFF,;
  51.          Height          3.03,;
  52.          Left         8.30,;
  53.          Top          2.02,;
  54.          VBStream "SWITCH.BFM 56",;
  55.          Width         9.96,;
  56.          OnOn CLASS::BISWITCH1_ONON,;
  57.          OnOff CLASS::BISWITCH1_ONOFF
  58.  
  59.    Procedure BISWITCH1_OnOn
  60.    this.caption = "ON"
  61.    form.colorNormal = "N/R+"
  62.  
  63.    Procedure BISWITCH1_OnOff
  64.    this.caption = "OFF"
  65.    form.colorNormal = "N/W"
  66.  
  67. ENDCLASS
  68.  
  69.  
  70.  
  71.  
  72.