BitmapNode issues

Question

1) BitmapNode NameI have problem getting the Node. Name when I use BitmapNode.  For Instance, I have the following declarations :Dim img1 As New BitmapNode()Dim img2 As New BitmapNode()img1.Name="Car"img2.Name="Train"On diagram DragDrop event, I try to get the node name with PaletteGrupBar.SelectedNode.GetType()I always get 'BitmapNode'. How can I get Car when img1 is dragged&droped? Train if img2 is dragged&dropped; Car1 if another img1 is dragged & dropped, etc ?2) BitmapNode image file & custom classI have a custom class  that inherits Rectangle for a particular node. How can I make the custom class inherit the BitmapNode that takes image file?

Naganathan Ganesh Babu · Answer

Hi Allen, 




1) BitmapNode Name 
 
I have problem getting the Node. Name when I use BitmapNode.  For Instance, I have the following declarations : 
Dim img1 As New BitmapNode() 
Dim img2 As New BitmapNode() 
 
img1.Name="Car" 
img2.Name="Train" 
 
On diagram DragDrop event, I try to get the node name with PaletteGrupBar.SelectedNode.GetType() 
I always get 'BitmapNode'. How can I get Car when img1 is dragged&droped? Train if img2 is dragged&dropped; Car1 if another img1 is dragged & dropped, etc ? 
 

A System’s “GetType()” method is used to get the type of the current object and its Name property contains name of the type alone. So we suggest you to use just TryCast(paletteGroupBar1.SelectedNode, Node) to get the node and name of the diagram’s node instead of using System’s “GetType()” method. 
 


2) BitmapNode image file & custom class 
I have a custom class  that inherits Rectangle for a particular node.  
How can I make the custom class inherit the BitmapNode that takes image file? 
 

In order to achieve your requirement, we suggest you to inherit the Diagram’s BitmapNode class and use BitmapNode’s Image property to get the image file. please refer to the below code snippet. 
 
Public Class CustomBitmapNode 
                        Inherits BitmapNode 
                        #Region "initialization" 
                        Public Sub New(ByVal srcbitmap As Bitmap) 
                                    MyBase.New(srcbitmap) 
 
                        End Sub 
                        Public Sub New(ByVal src As BitmapNode) 
                                    MyBase.New(src) 
                        End Sub 
                        Public Sub New(ByVal stream As Stream) 
                                    MyBase.New(stream) 
                        End Sub 
                        Public Sub New(ByVal filename As String) 
                                    MyBase.New(filename) 
                        End Sub 
                        Public Sub New(ByVal src As Bitmap, ByVal rcBounds As RectangleF) 
                                    MyBase.New(src, rcBounds) 
                        End Sub 
                        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext) 
                                    MyBase.New(info, context) 
                        End Sub 
                        #End Region  
 
                        Protected Overrides Sub GetObjectData(ByVal info As SerializationInfo, ByVal context As StreamingContext) 
                                    MyBase.GetObjectData(info, context) 
                        End Sub 
 
                        Public Overrides Function Clone() As Object 
                                    Return New CustomBitmapNode(Me) 
                        End Function 
            End Class 
 
Please refer to the sample and video.  
Sample: 
Sample 
Video: 
Video 
Regards, 
Naganathan K G

Allen · Answer

Thank you Naganathan

Naganathan Ganesh Babu · Answer

Hi Allen,Thanks for your update. 
We are happy to hear that your problem is resolved. Please let us know if you need any further assistance.Regards, 
Naganathan K G