home *** CD-ROM | disk | FTP | other *** search
- Attribute VB_Name = "Module1"
- '
- '
- '
- ' XDVIEW (c) 1996, ANTEK CS
- '
- 'Description:
- ' Sample file for demonstrating the use of ACC (Amoeba Custom Control).
- ' Enables viewving, editing and creating X-Data structures
- '
- '
- ' THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
- ' WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
- ' PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
- '
- '
- ' Program registeres two commands ("XDVIEW", "XDCREATE") for use with JPCAD.
- ' Commands:
- ' XDVIEW - User is prompted to pick an entity to search for X-Data.
- ' If selected entity has more than one X-Data structures
- ' user can select desired structure to view.
- ' User can also remove displayed structures from the entity
- ' After the X-Data structure is selected, user can view its items
- ' and modify the values.
- ' XDCREATE - Enables creating X-Data structure and save it to an entity.
- '
- '
- ' Communication with JPCAD takes place in BaseFrm Sub Amoeba_Status.
- '
- '
-
- Public pXData As Long
- Public pStruct As Long
- Public pEntity As Long
- Public tValueChanged As Boolean
- Public XDataModified As Boolean
- Public AddItemCode As Long
- Public m_quitting As Boolean
-
- Public Sub Prompt(s As String)
- 'prompt in JPCAD with newline character
- BaseFrm.Amoeba.Prompt Chr(10) + s
- End Sub
-
-