Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnAudioObject_DefaultPicture(ByVal container As AnnContainer, ByVal viewer As ImageViewer, ByVal newAudioPicture As String)
   ' first add a new AnnAudioObject with the original picture
   Dim obj As AnnAudioObject = New AnnAudioObject()
   obj.Rect = New Rect(100, 100, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the original picture")
   ' now change the picture to one of our own
   Dim picture As AnnPicture = New AnnPicture(New BitmapImage(New Uri(newAudioPicture)))
   AnnAudioObject.DefaultPicture = picture
   ' at this point, all new AnnAudioObject objects will use this new picture
   ' add another audio object
   obj = New AnnAudioObject()
   obj.Rect = New Rect(100, 210, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the new picture")
   ' set the picture back to the original value
   AnnAudioObject.UseOriginalPicture = True
   ' add another audio object
   obj = New AnnAudioObject()
   obj.Rect = New Rect(100, 320, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the original picture")
End Sub
             
   
     
            using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;
public void AnnAudioObject_DefaultPicture(AnnContainer container, ImageViewer viewer, string newAudioPicture)
{
   // first add a new AnnAudioObject with the original picture
   AnnAudioObject obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 100, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the original picture");
   // now change the picture to one of our own
   AnnPicture picture = new AnnPicture(new BitmapImage(new Uri(newAudioPicture)));
   AnnAudioObject.DefaultPicture = picture;
   // at this point, all new AnnAudioObject objects will use this new picture
   // add another audio object
   obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 210, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the new picture");
   // set the picture back to the original value
   AnnAudioObject.UseOriginalPicture = true;
   // add another audio object
   obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 320, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the original picture");
}
             
   
     
            using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
public void AnnAudioObject_DefaultPicture(AnnContainer container, ImageViewer viewer, string newAudioPicture)
{
   // first add a new AnnAudioObject with the original picture
   AnnAudioObject obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 100, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the original picture");
   // now change the picture to one of our own
   AnnPicture picture = new AnnPicture(new BitmapImage(new Uri(newAudioPicture)));
   AnnAudioObject.DefaultPicture = picture;
   // at this point, all new AnnAudioObject objects will use this new picture
   // add another audio object
   obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 210, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the new picture");
   // set the picture back to the original value
   AnnAudioObject.UseOriginalPicture = true;
   // add another audio object
   obj = new AnnAudioObject();
   obj.Rect = new Rect(100, 320, 100, 100);
   container.Children.Add(obj);
   MessageBox.Show("An audio object with the original picture");
}
             
   
     
            Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Public Sub AnnAudioObject_DefaultPicture(ByVal container As AnnContainer, ByVal viewer As ImageViewer, ByVal newAudioPicture As String)
   ' first add a new AnnAudioObject with the original picture
   Dim obj As AnnAudioObject = New AnnAudioObject()
   obj.Rect = New Rect(100, 100, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the original picture")
   ' now change the picture to one of our own
   Dim picture As AnnPicture = New AnnPicture(New BitmapImage(New Uri(newAudioPicture)))
   AnnAudioObject.DefaultPicture = picture
   ' at this point, all new AnnAudioObject objects will use this new picture
   ' add another audio object
   obj = New AnnAudioObject()
   obj.Rect = New Rect(100, 210, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the new picture")
   ' set the picture back to the original value
   AnnAudioObject.UseOriginalPicture = True
   ' add another audio object
   obj = New AnnAudioObject()
   obj.Rect = New Rect(100, 320, 100, 100)
   container.Children.Add(obj)
   MessageBox.Show("An audio object with the original picture")
End Sub