home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / jpcad / ACC / SAMPLES / XDVIEW / MODULE1.BA_ / MODULE1.BA
Encoding:
Text File  |  1998-01-21  |  1.4 KB  |  45 lines
  1. Attribute VB_Name = "Module1"
  2. '
  3. '
  4. '
  5. '    XDVIEW (c) 1996, ANTEK CS
  6. '
  7. 'Description:
  8. '      Sample file for demonstrating the use of ACC (Amoeba Custom Control).
  9. '      Enables viewving, editing and creating X-Data structures
  10. '
  11. '
  12. '      THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
  13. '      WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
  14. '      PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
  15. '
  16. '
  17. '  Program registeres two commands ("XDVIEW", "XDCREATE") for use with JPCAD.
  18. '  Commands:
  19. '       XDVIEW - User is prompted to pick an entity to search for X-Data.
  20. '                If selected entity has more than one X-Data structures
  21. '                user can select desired structure to view.
  22. '                User can also remove displayed structures from the entity
  23. '                After the X-Data structure is selected, user can view its items
  24. '                and modify the values.
  25. '       XDCREATE - Enables creating X-Data structure and save it to an entity.
  26. '
  27. '
  28. '  Communication with JPCAD takes place in BaseFrm Sub Amoeba_Status.
  29. '
  30. '
  31.  
  32. Public pXData As Long
  33. Public pStruct As Long
  34. Public pEntity As Long
  35. Public tValueChanged As Boolean
  36. Public XDataModified As Boolean
  37. Public AddItemCode As Long
  38. Public m_quitting As Boolean
  39.  
  40. Public Sub Prompt(s As String)
  41.  'prompt in JPCAD with newline character
  42.  BaseFrm.Amoeba.Prompt Chr(10) + s
  43. End Sub
  44.  
  45.