Prod.: Engine, ver.: 6022, ID: 60001709, Wish : How can I use OsnapCrossPointsAddvalue and OsnapCrossPointsAddenum under VB6

Wish : How can I use OsnapCrossPointsAddvalue and OsnapCrossPointsAddenum under VB6

Article60001709
TypeWish
ProductEngine
Version6022
Date Added5/17/2012
FixedYes [5/17/2012]
Submitted byFrancois Peens
Keywords

Subject

How can I use OsnapCrossPointsAddvalue and OsnapCrossPointsAddenum under VB6

Summary

How can I use OsnapCrossPointsAddvalue and OsnapCrossPointsAddenum under VB6 ?

Solution

A new property is exported in the vdDocument object, named OsnapCrossPointsAddvalue which controls if the the helping crosses of object snaps (OSnaps) are going to be added or not.

In VB6 you can use this like :

Private Sub Form_Load()
  Dim doc As VectorDraw_Professional.vdDocument

    VDraw1.DisplayFrames = ShowAll
    VDraw1.EnableAutoGripOn = True
    Set doc = VDraw1.ActiveDocument.WrapperObject
    doc.OsnapCrossPointsAddvalue = OsnapCrossPointsAddenum_NONE
               '^ help crosses will not be dispayed
End Sub
Added in 6023