Software Developer's Kit - ChemDraw

Send comments on this topic
Application Property
See Also 

Description

Member of ChemDraw Control.Groups

Returns the application associated with the groups collection.

Property type

Read-only property

Syntax

Visual Basic
Public Property Application() As Object

Return Type

Example

'Groups.Application 
 Dim MyGroup  As ChemDrawControl10Ctl.Group 
 Dim MyGroups As ChemDrawControl10Ctl.Groups  
 Set myGroups = ctlChemDraw.Selection.Objects.Groups

 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
     If  ctlChemDraw.Objects.Groups.Count = 1 Then 'checks if one Group has been drawn
         Set MyGroup = ctlChemDraw.Objects.Groups.Item(1)
     End If 
 End Sub

 Private Sub Command1_Click()
     vMessage = MsgBox("The application is: " & MyGroups.Application, _
                vbInformation + vbOKOnly, "Info")
 End Sub


See Also