|
@@ -77,8 +77,6 @@ Module AnnotationTest
|
|
|
})
|
|
|
|
|
|
ink.SetInkPath(points)
|
|
|
- ink.SetInkRect(New CRect(10, 200, 200, 10))
|
|
|
-
|
|
|
ink.UpdateAp()
|
|
|
End Sub
|
|
|
|
|
@@ -128,11 +126,13 @@ Module AnnotationTest
|
|
|
textAnnotation.SetRect(New CRect(300, 650, 350, 600))
|
|
|
textAnnotation.UpdateAp()
|
|
|
End Sub
|
|
|
+
|
|
|
Private Sub CreateSoundAnnotation(document As CPDFDocument)
|
|
|
Dim page As CPDFPage = document.PageAtIndex(0)
|
|
|
Dim sound As CPDFSoundAnnotation = TryCast(page.CreateAnnot(C_ANNOTATION_TYPE.C_ANNOTATION_SOUND), CPDFSoundAnnotation)
|
|
|
sound.SetRect(New CRect(400, 750, 450, 700))
|
|
|
- sound.SetSoundPath("","Bird.wav")
|
|
|
+ Dim bitmap As New Bitmap("SoundAnnot.png")
|
|
|
+ sound.SetSoundPath(BitmapToByteArray(bitmap), bitmap.Width, bitmap.Height, "Bird.wav")
|
|
|
sound.UpdateAp()
|
|
|
End Sub
|
|
|
|