DEFINE CLASS Command - PEMName_COMATTRIB Clause

Specifies type library attributes and values for PEMName_COMATTRIB properties or methods. The features described in this section applies only to OLEPUBLIC classes and is used to specify additional information, such as a description or read-only attribute, about the property or method that you want written to the COM type library.

[PEMName_COMATTRIB = nFlags | DIMENSION PEMName_COMATTRIB[numElements]
   [PEMName_COMATTRIB[1] = nFlags
        PEMName_COMATTRIB[2] = cHelpString
        PEMName_COMATTRIB[3] = cPropertyCapitalization
        PEMName_COMATTRIB[4] = cPropertyType
        PEMName_COMATTRIB[5] = nOptionalParams]]

Parameters

• [ PEMName_COMATTRIB = nFlags| DIMENSION PEMName_COMATTRIB[numElements]
  Specifies an nFlags value for a PEMName property or method or uses the DIMENSION command to create a property array that contains type library attributes for the PEMName property. When creating an array, numElements specifies the number of elements in the array up to 5.

  The following table describes the elements in the array.

  COMATTRIB element	Description	Type
  1	Attribute flags.	Number
  2	Help string.	String
  3	Capitalization.	String
  4	Property type.	String
  5	Number of parameters. Note If you specify fewer than the actual number of parameters, the number greater than those declared are optional.	Number

  > [!NOTE]
  > <P>For invalid values or types in the PEMName_COMATTRIB array, Visual FoxPro generates an error. Empty elements use default values.</P>
  

  • nFlags
    Specifies attribute flags for the PEMName property or method as it appears in the type library. The following table describes the valid flags.

    nFlags value	#DEFINE	Description
    0x1 (1)	COMATTRIB_RESTRICTED	The property or method should not be accessible from macro languages. This flag is intended for system-level functions or functions that type browsers should not display. COMATTRIB_RESTRICTED means that macro-oriented programmers should not be allowed to access this member. These members are usually treated as _HIDDEN by tools such as Visual Basic, with the main difference being that code cannot bind to those members.
    0x40 (64)	COMATTRIB_HIDDEN	The property or method should not be displayed to the user, although it exists and is bindable. COMATTRIB_HIDDEN means that the property should never be shown in object browsers, property browsers, and so on. This function is useful for removing items from an object model. Code can bind to the member, but the user will never know that the member exists.
    0x400 (1024)	COMATTRIB_NONBROWSABLE	The property or method appears in an object browser but not in a properties browser. COMATTRIB _NONBROWSABLE means that the property should not be displayed in a properties browser. It is used in circumstances in which an error would occur if the property were shown in a properties browser. Early and late binding impose differing access restrictions. Early-binding clients will not be able to write to a read-only property, nor read from a write-only property because there will not be an entry in the vtable. Late-binding clients can still access a propertyget on a write-only or a propertyput on a read-only PEMName.
    0x100000	COMATTRIB_READONLY	The property is read-only. Applies only to Properties. Equivalent to a PropertyGet. Note Using both COMATTRIB_READONLY and COMATTRIB_WRITEONLY is equivalent to using neither.
    0x200000	COMATTRIB_WRITEONLY	The property is write-only. Applies only to Properties. Equivalent to a PropertyLet. > [!NOTE] > <P>Using both COMATTRIB_READONLY and COMATTRIB_WRITEONLY is equivalent to using neither.</P>

    • PEMName_COMATTRIB[2] = cHelpString
      Specifies a string value to store in the type library for the PEMName property. For methods, use the HELPSTRING cHelpString clause.

    • PEMName_COMATTRIB[3] = cPropertyCapitalization
      Specifies the property name as a string value as it should appear in the type library. All capitalization is preserved. If this setting is omitted, Visual FoxPro writes the property to the type library in all uppercase.

    • PEMName_COMATTRIB[4] = cPropertyType
      Specifies the property data type as a string value as it appears in the type library and functions the same as the ASType clause. Applies to Properties only.

    • PEMName_COMATTRIB[5] = nOptionalParms]]
      Specifies the number of optional parameters in a method. For example, if this value is 2 for a method with 5 parameters, then the last 3 are optional. Applies to Methods only.

      For late-binding clients, default values for optional parameters will still be False (.F.), and the PCOUNT( ) function accurately reflects the true number of passed parameters. For early-bound clients, default values for optional parameters will always be set to an empty string (""), and PCOUNT( ) will always return the total number of parameters for the method, not the number passed in.

    Remarks

    The following code shows a summary of the main clauses of the DEFINE CLASS command:

    DEFINE CLASS Clause
       [Property_Definition_Clause]
       [PEMName_COMATTRIB Clause]
       [ADD OBJECT Clause]
       [IMPLEMENTS Clause]
       [Function_Procedure_Definition_Clause]
    ENDDEFINE
    

    For more information and full syntax, see DEFINE CLASS Command. For more information about a particular clause of the DEFINE CLASS command, see the following topics:

    • DEFINE CLASS Clause

    • Property Definition Clause

    • ADD OBJECT Clause

    • IMPLEMENTS Clause

    • Function or Procedure Definition Clause

    Example

    The following example demonstrates how to define an array of type library attributes using the DIMENSION PEMName_COMATTRIB clause:

    #INCLUDE foxpro.h
    DEFINE CLASS myOLEClass AS Custom OLEPUBLIC
       MyProperty = 5.2
       * Set COM attributes for MyProperty.
       DIMENSION MyProperty_COMATTRIB[4]
       myProperty_COMATTRIB[1] = COMATTRIB_READONLY
       myProperty_COMATTRIB[2] = "Help text displayed in object browser"
       myProperty_COMATTRIB[3] = "MyProperty"  && Proper capitalization.
       myProperty_COMATTRIB[4] = "Float"        && Data type
    ENDDEFINE
    

    However, if you want to set only the nFlags element, you do not need to create an array:

    #INCLUDE foxpro.h
    DEFINE CLASS myOLEClass AS Custom OLEPUBLIC
       MyProperty = "Test"
       * Set the only the nFlags attribute for MyProperty.
       myProperty_COMATTRIB = COMATTRIB_READONLY
    ENDDEFINE
    

    See Also

    Reference

    :: Scope Resolution Operator

    ADD CLASS Command

    CREATE CLASS Command

    CREATE CLASSLIB Command

    DODEFAULT( ) Function

    EVENTHANDLER( ) Function

    GETOBJECT( ) Function

    MODIFY CLASS Command

    RELEASE CLASSLIB Command

    Other Resources

    Commands (Visual FoxPro)