Imports Gizmox.WebGUI.Forms

Public Class WithImage

    Sub New()

        ' This call is required by the Windows Form Designer.

        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

        DefineControls()

    End Sub

    Friend WithEvents TreeView1 As Gizmox.WebGUI.Forms.TreeView

    Friend WithEvents btnTarget As Gizmox.WebGUI.Forms.Button

    Private Sub DefineControls()

        Me.TreeView1 = New Gizmox.WebGUI.Forms.TreeView

        Me.btnTarget = New Gizmox.WebGUI.Forms.Button

        '

        'TreeView1

        '

        Me.TreeView1.DragTargets = New Gizmox.WebGUI.Forms.Component() {CType(Me.btnTarget, Gizmox.WebGUI.Forms.Component)}

        Me.TreeView1.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)

        Me.TreeView1.Location = New System.Drawing.Point(12, 12)

        Me.TreeView1.Name = "TreeView1"

        Me.TreeView1.Size = New System.Drawing.Size(242, 215)

        Me.TreeView1.TabIndex = 0

        Me.TreeView1.Nodes.Add("Node 1")

        Me.TreeView1.Nodes.Add("Node 2")

        Me.TreeView1.Nodes.Add("Node 3")

        Me.TreeView1.Nodes.Add("Node 4")

        Me.TreeView1.Nodes.Add("Node 5")

        '

        'btnTarget

        '

        Me.btnTarget.AllowDrop = True

        Me.btnTarget.Location = New System.Drawing.Point(261, 13)

        Me.btnTarget.Name = "btnTarget"

        Me.btnTarget.Size = New System.Drawing.Size(75, 23)

        Me.btnTarget.TabIndex = 0

        Me.btnTarget.Text = "Drop Target"

        Me.Controls.Add(Me.btnTarget)

        Me.Controls.Add(Me.TreeView1)

    End Sub

    Private Sub Button1_DragDrop(ByVal sender As System.Object, ByVal e As Gizmox.WebGUI.Forms.DragEventArgs) Handles btnTarget.DragDrop

        If e.GetType Is GetType(DragDropEventArgs) Then

            Dim dd As DragDropEventArgs = e

            If dd.Source IsNot Nothing _

                AndAlso dd.SourceMember IsNot Nothing _

                AndAlso dd.Source.GetType() Is GetType(TreeView) _

                AndAlso dd.SourceMember.GetType() Is GetType(TreeNode) Then

                Dim tn As TreeNode = dd.SourceMember

                MessageBox.Show("You dropped: " + tn.Text)

            End If

        End If

    End Sub

End Class