Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Sub AnnVideoObject_DefaultPicture(ByVal container As AnnContainer, ByVal viewer As RasterImageViewer, ByVal newVideoPicture As String)
' first add a new AnnVideoObject with the original picture
Dim obj As New AnnVideoObject()
obj.Bounds = New AnnRectangle(100, 100, 100, 100)
container.Objects.Add(obj)
viewer.Invalidate()
MessageBox.Show("A video object with the original picture")
' now change the picture to one of our own
Dim img As Image = Image.FromFile(newVideoPicture)
Dim picture As New AnnPicture(img)
AnnVideoObject.DefaultPicture = picture
' at this point, all new AnnVideoObject objects will use this new picture
' add another video object
obj = New AnnVideoObject()
obj.Bounds = New AnnRectangle(100, 210, 100, 100)
container.Objects.Add(obj)
viewer.Invalidate()
MessageBox.Show("A video object with the new picture")
' set the picture back to the original value
AnnVideoObject.UseOriginalPicture = True
' add another video object
obj = New AnnVideoObject()
obj.Bounds = New AnnRectangle(100, 320, 100, 100)
container.Objects.Add(obj)
viewer.Invalidate()
MessageBox.Show("A video object with the original picture")
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
public void AnnVideoObject_DefaultPicture(AnnContainer container, RasterImageViewer viewer, string newVideoPicture)
{
// first add a new AnnVideoObject with the original picture
AnnVideoObject obj = new AnnVideoObject();
obj.Bounds = new AnnRectangle(100, 100, 100, 100);
container.Objects.Add(obj);
viewer.Invalidate();
MessageBox.Show("A video object with the original picture");
// now change the picture to one of our own
Image img = Image.FromFile(newVideoPicture);
AnnPicture picture = new AnnPicture(img);
AnnVideoObject.DefaultPicture = picture;
// at this point, all new AnnVideoObject objects will use this new picture
// add another video object
obj = new AnnVideoObject();
obj.Bounds = new AnnRectangle(100, 210, 100, 100);
container.Objects.Add(obj);
viewer.Invalidate();
MessageBox.Show("A video object with the new picture");
// set the picture back to the original value
AnnVideoObject.UseOriginalPicture = true;
// add another video object
obj = new AnnVideoObject();
obj.Bounds = new AnnRectangle(100, 320, 100, 100);
container.Objects.Add(obj);
viewer.Invalidate();
MessageBox.Show("A video object with the original picture");
}