ICreateTypeInfo Interface

IID_ICreateTypeInfo

{00020405-0000-0000-C000-000000000046}

This interface provides the tools for creating and administering the type information defined through the type description.

Methods in VTable order

IUnknown Methods

Description

QueryInterface

Returns pointers to supported interfaces.

AddRef

Increments reference count.

Release

Decrements reference count.

ICreateTypeInfo Methods

Description

SetGuid

Sets the globally unique identifier (GUID) for the type library.

SetTypeFlags

Sets type flags of the type description that is being created.

SetDocString

Sets the documentation string displayed by type browsers.

SetHelpContext

Sets the Help context ID of the type description.

SetVersion

Sets version numbers for the type description.

AddRefTypeInfo

Adds a type description to those referenced by the type description being created.

AddFuncDesc

Adds a function description as a type description.

AddImplType

Specifies an inherited interface.

SetImplTypeFlags

Sets the attributes for an implemented or inherited interface of a type.

SetAlignment

Specifies data alignment for types of TKIND_RECORD.

SetSchema

Undocumented.

AddVarDesc

Adds a data member description as a type description.

SetFuncAndParamNames

Sets the function name and names of its parameters.

SetVarName

Sets the name of a variable.

SetTypeDescAlias

Sets the type description for which this type description is an alias, if TYPEKIND=TKIND_ALIAS.

DefineFuncAsDllEntry

Associates a dynamic link library (DLL) entry point with a function that has a specified index.

SetFuncDocString

Sets the documentation string for a function.

SetVarDocString

Sets the documentation string for a variable.

SetFuncHelpContext

Sets the Help context identifier (ID) for a function.

SetVarHelpContext

Sets the Help context ID for a variable.

SetMops

Sets the opcode string for a type description.

SetTypeIdldesc

Undocumented.

LayOut

Assigns virtual function table (VTBL) offsets for virtual functions and instance offsets for per-instance data members.

ELEMDESC Structure

UNION ELEMDESCUNION
   uidldesc AS IDLDESC
   uparamdesc AS PARAMDESC
END UNION

TYPE ELEMDESC
   tdesc AS TYPEDESC
   ELEMDESCUNION
END TYPE
 

FUNCDESC Structure

TYPE FUNCDESC
   memid AS LONG
   lprgscode AS LONG PTR
   lprgelemdescParam AS ELEMDESC PTR
   funckind AS DWORD
   invkind AS DWORD
   callconv AS DWORD
   cParams AS INTEGER
   cParamsOpt AS INTEGER
   oVft AS INTEGER
   cScodes AS INTEGER
   elemdescFunc AS ELEMDESC
   wFuncFlags AS WORD
END TYPE

IDLDESC Structure

TYPE IDLDESC DWORD   ' // Must be DWORD aligned
   dwReserved AS DWORD

   wIDLFlags AS WORD

END TYPE

PARAMDESCEX Structure

TYPE PARAMDESCEX
   cBytes AS DWORD

   filler AS DWORD
   varDefaultValue AS VARIANTAPI
END TYPE

PARAMDESC Structure

TYPE PARAMDESC DWORD   ' // Must be DWORD aligned
   pparamdescex AS PARAMDESCEX PTR
   wParamFlags AS WORD
END TYPE

TYPEDESC Structure

UNION TYPEDESCDATA
   lptdesc AS DWORD
   lpadesc AS DWORD
   hreftype AS DWORD
END UNION

TYPE TYPEDESC DWORD   ' // Must be DWORD aligned
   tdd AS TYPEDESCDATA
   vt AS WORD

END TYPE

VARDESC Structure

UNION VARDESCDATA

   oInst AS DWORD
   lpvarValue AS VARIANTAPI PTR
END UNION

TYPE VARDESC DWORD   ' // Must be DWORD aligned
   memid AS LONG
   lpstrSchema AS DWORD
   vdd AS VARDESCDATA
   elemdescVar AS ELEMDESC
   wVarFlags AS WORD
   varkind AS DWORD
END TYPE

SetGuid

FUNCTION ICreateTypeInfo_SetGuid ( _

  BYVAL pthis AS DWORD PTR _

, BYREF rguid AS GUID _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[3] USING ICreateTypeInfo_SetGuid (pthis, rguid) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetTypeFlags

FUNCTION ICreateTypeInfo_SetTypeFlags ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL uTypeFlags AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[4] USING ICreateTypeInfo_SetTypeFlags (pthis, uTypeFlags) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetDocString

FUNCTION ICreateTypeInfo_SetDocString ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL strDoc AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strDoc = UCODE$(strDoc & $NUL)
  CALL DWORD @@pthis[5] USING ICreateTypeInfo_SetDocString (pthis, strDoc) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetHelpContext

FUNCTION ICreateTypeInfo_SetHelpContext ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL dwHelpContext AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[6] USING ICreateTypeInfo_SetHelpContext (pthis, dwHelpContext) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetVersion

FUNCTION ICreateTypeInfo_SetVersion ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL wMajorVerNum AS WORD _

, BYVAL wMinorVerNum AS WORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[7] USING ICreateTypeInfo_SetVersion (pthis, wMajorVerNum, wMinorVerNum) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

AddRefTypeInfo

FUNCTION ICreateTypeInfo_AddRefTypeInfo ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL pTInfo AS DWORD _

, BYREF phRefType AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[8] USING ICreateTypeInfo_AddRefTypeInfo (pthis, pTInfo, phRefType) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

AddFuncDesc

FUNCTION ICreateTypeInfo_AddFuncDesc ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYREF pFuncDesc AS FUNCDESC _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[9] USING ICreateTypeInfo_AddFuncDesc (pthis, index, pFuncDesc) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

AddImplType

FUNCTION ICreateTypeInfo_AddImplType ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL hRefType AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[10] USING ICreateTypeInfo_AddImplType (pthis, index, hRefType) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetImplTypeFlags

FUNCTION ICreateTypeInfo_SetImplTypeFlags ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL implTypeFlags AS LONG _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[11] USING ICreateTypeInfo_SetImplTypeFlags (pthis, index, implTypeFlags) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetAlignment

FUNCTION ICreateTypeInfo_SetAlignment ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL cbAlignment AS WORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[12] USING ICreateTypeInfo_SetAlignment (pthis, cbAlignment) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetSchema

FUNCTION ICreateTypeInfo_SetSchema ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL strSchema AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strSchema = UCODE$(strSchema & $NUL)
  CALL DWORD @@pthis[13] USING ICreateTypeInfo_SetSchema (pthis, strSchema) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

AddVarDesc

FUNCTION ICreateTypeInfo_AddVarDesc ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYREF pVarDesc AS VARDESC _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[14] USING ICreateTypeInfo_AddVarDesc (pthis, index, pVarDesc) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetFuncAndParamNames

FUNCTION ICreateTypeInfo_SetFuncAndParamNames ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYREF rgszNames AS STRING _

, BYVAL cNames AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[15] USING ICreateTypeInfo_SetFuncAndParamNames (pthis, index, rgszNames, cNames) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetVarName

FUNCTION ICreateTypeInfo_SetVarName ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL strName AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strName = UCODE$(strName & $NUL)
  CALL DWORD @@pthis[16] USING ICreateTypeInfo_SetVarName (pthis, index, strName) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetTypeDescAlias

FUNCTION ICreateTypeInfo_SetTypeDescAlias ( _

  BYVAL pthis AS DWORD PTR _

, BYREF pTDescAlias AS TYPEDESC _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[17] USING ICreateTypeInfo_SetTypeDescAlias (pthis, pTDescAlias) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

DefineFuncAsDllEntry

FUNCTION ICreateTypeInfo_DefineFuncAsDllEntry ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL strDllName AS STRING _

, BYVAL strProcName AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strDllName = UCODE$(strDllName & $NUL)
  strProcName = UCODE$(strProcName & $NUL)
  CALL DWORD @@pthis[18] USING ICreateTypeInfo_DefineFuncAsDllEntry (pthis, index, strDllName, strProcName) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetFuncDocString

FUNCTION ICreateTypeInfo_SetFuncDocString ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL strDocString AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strDocString = UCODE$(strDocSTring & $NUL)
  CALL DWORD @@pthis[19] USING ICreateTypeInfo_SetFuncDocString (pthis, index, strDocString) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetVarDocString

FUNCTION ICreateTypeInfo_SetVarDocString ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL strDocString AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strDocString = UCODE$(strDocString & $NUL)
  CALL DWORD @@pthis[20] USING ICreateTypeInfo_SetVarDocString (pthis, index, strDocString) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetFuncHelpContext

FUNCTION ICreateTypeInfo_SetFuncHelpContext ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL dwHelpContext AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[21] USING ICreateTypeInfo_SetFuncHelpContext (pthis, index, dwHelpContext) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetVarHelpContxt

FUNCTION ICreateTypeInfo_SetVarHelpContext ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL dwHelpContext AS DWORD _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[22] USING ICreateTypeInfo_SetVarHelpContext (pthis, index, dwHelpContext) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetMops

FUNCTION ICreateTypeInfo_SetMops ( _

  BYVAL pthis AS DWORD PTR _

, BYVAL index AS DWORD _

, BYVAL strMops AS STRING _

  ) AS LONG

  LOCAL HRESULT AS LONG
  strMops = UCODE$(strMops & $NUL)
  CALL DWORD @@pthis[23] USING ICreateTypeInfo_SetMops (pthis, index, strMops) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

SetTypeIdldesc

FUNCTION ICreateTypeInfo_SetTypeIdldesc ( _

  BYVAL pthis AS DWORD PTR _

, BYREF pIdlDesc AS IDLDESC _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[24] USING ICreateTypeInfo_SetTypeIdldesc (pthis, pIdlDesc) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

LayOut

FUNCTION ICreateTypeInfo_LayOut ( _

  BYVAL pthis AS DWORD PTR _

  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[25] USING ICreateTypeInfo_LayOut (pthis) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION