ISCDOFormDesign.FormKind

Example

Display some information about the CDO form template, including the kind of the CDO form design.

Dim aLoadListFormTemplates
Dim aTemplate
Dim aMessage
Dim i
Dim aDesign                                              

set aLoadListFormTemplates = Profile.CDOFormUtils.LoadListFormTemplates 'ISCDOFormTemplates 

aMessage = "List Form Templates Count = " & aLoadListFormTemplates.Count & vbNewLine 

for i = 0 to aLoadListFormTemplates.Count - 1
  set aTemplate = aLoadListFormTemplates.Item(i) 
  aMessage = aMessage & (i + 1) & ". " &_
    "Name: " & aTemplate.Name & vbNewLine &_
    "    ID: " & aTemplate.ID & vbNewLine &_
    "    HRC CID: " & aTemplate.HRC.TypeID & vbNewLine &_    
    "    DesignDataID: " & aTemplate.DesignDataID & vbNewLine    
  set aDesign = aTemplate.Design
  if not aDesign is nothing then
    aMessage = aMessage &_
    "    Design ID: " & aDesign.ID & vbNewLine &_
    "    Design Form Kind: " & aDesign.FormKind & vbNewLine
  end if
next   

Profile.MsgBox(aMessage)