Article	41023256
Type	HowTo
Product	Engine
Version	4.0.4.1023
Date Added	9/25/2003
Submitted by	Duvenbeck Christof
Keywords

Subject

Saving/Retriving SelectionSets and vdFigures in memory (BLOB)

Summary

Saving/Retriving SelectionSets and vdFigures in memory (BLOB)

Solution

This can be easily done using another VectorDraw component. See the Visual Basic code below (a form with 2 VectorDraw controls and 3 buttons) :

Private Sub Command1_Click()
Dim selset As vdSelection
Dim sp As Variant
Dim ep As Variant
    VDPro.ActiveDocument.Open ""
    Set selset = VDPro.ActiveDocument.Selections.Add("MATT")
    sp = VDPro.Utility.GetPoint
    ep = VDPro.Utility.GetCorner(sp)
    selset.Select "C", sp, ep
    selset.HighLight = VdHightLightDot
    selset.Invalidate
End Sub

Private Sub Command2_Click()
Dim selset As vdSelection
    Set selset = VDPro.ActiveDocument.Selections.FindName("MATT")
    VDPro.CommandAction.CmdWriteBlock selset, Array(0, 0, 0), App.Path + "\temp.vdi"
    VDutil.ActiveDocument.Open App.Path + "\temp.vdi"
    VDutil.CommandAction.Zoom "E", 0, 0
End Sub

Private Sub Command3_Click()
Dim Document As Variant
Dim Bytes As Long
  
    Bytes = VDutil.ActiveDocument.SaveToMemory(Document)
    VDutil.ActiveDocument.CreateFromMemory Document, Bytes
    VDutil.CommandAction.RegenAll
    VDutil.CommandAction.Zoom "E", "USER", "USER"
End Sub