Software Developer's Kit - ChemDraw

Send comments on this topic
TopBorder Property
See Also 


Member of ChemDraw Control.Cell.

Returns the top border of this cell.

Property type

Read-only property


Visual Basic
Public Property TopBorder() As Border

Return Type


'Declares variables
 Dim myTable As ChemDrawControl11Ctl.Table
 Set myCell = ctlChemDraw.Selection.Objects.Cell

 Private Sub cmdCommand_Click()
    'Checks that there is a Table loaded in the variable
     If  Selection.Tables.Count < 1 Then
         Exit Sub
     End If
     Set myCell = myTable.Cells.Item(1) 
    'returns the collection of objects in this cell
     cmdCommand.Caption = myCell.AltGroups.Count
    'Sets and returns the border color
     Text1.text = MyCell.TopBorder.Color
    'Sets and returns whether the border is dashed
     Text2.text = MyCell.TopBorder.IsDashed 
    'Sets the color 
     myCells.Item(1).TopBorder.Color = VBRed
    'Returns the width of the border 
     Text3.text = MyCell.TopBorder.Width
 End Sub

See Also