AnnSaveMemory example for Visual Basic

Note: This topic is for Document/Medical only.

This example lets you save the current annotations to a file in memory, and lets you load the annotations that were saved.

1.	Start with the project that you created in Creating and Using Annotations.
2.	Add the following to the declarations procedure of the general object in your main form:

Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Dim hMemGlobal As Long
Dim iSizeGlobal As Long
Private WithEvents RasterAnn As LEADRasterAnnotation

3.	Add the following code to the main form's Load procedure
	Set RasterAnn = CreateObject("LEADAnnotation.LEADAnnotation. ")
4.	$image\btncmd.gif$ At the top of your main form, add two command buttons and name them as follows:
	Name	Caption
	AnnSaveMem	Save In Memory
	AnnLoadMem	Load From Memory
5.	Code the AnnSaveMem button's Click procedure as follows:

If RasterAnn.AnnSaveMemory(hMemGlobal, ANN_FMT_NATIVE, False, iSizeGlobal, SAVE_OVERWRITE, 0) <> 0 Then
MsgBox ("Error calling AnnSaveMemory")
End If

6.	Code the AnnLoadMem button's Click procedure as follows:

'Load the annotations from the memory-resident file.
If RasterAnn.AnnLoadMemory(hMemGlobal, iSizeGlobal, 1) <> 0 Then
MsgBox ("Error calling AnnLoadMemory")
Else
MsgBox ("AnnLoadMemory succeeded")
End If
GlobalFree (hMemGlobal)

7.	Run your program to test it.