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