VB.NET

VB.NET RSS

Treeview + Small Probs

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Apr 2009

Posts: 33

Reputation: ritu verma is an unknown quantity at this point

Solved Threads: 1

ritu verma ritu verma is offline

Offline

Light Poster

Treeview + Small Probs

Jun 13th, 2009

I have a treeview with two nodes..I m showing the contextmenu when the user clicks on any portion of treeview ....

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
 
            Dim N As New TreeNode()
            Me.TreeViewCategories.Nodes.Clear()
            With Me.TreeViewCategories.Nodes
                N = .Add("", "Main", 0)
                N.Nodes.Add("", "First Child", 0)
                N.Nodes.Add("", "Second Child", 0)
            End With
            TreeViewCategories.ExpandAll()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
 
    Private Sub TreeViewCategories_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeViewCategories.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y)
        End If
    End Sub
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            Dim N As New TreeNode()
            Me.TreeViewCategories.Nodes.Clear()
            With Me.TreeViewCategories.Nodes
                N = .Add("", "Main", 0)
                N.Nodes.Add("", "First Child", 0)
                N.Nodes.Add("", "Second Child", 0)
            End With
            TreeViewCategories.ExpandAll()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub TreeViewCategories_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeViewCategories.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y)
        End If
    End Sub

Mine probs is that when i right click on Second Child,Contextmenu is showing....But aotomatically root is selected....Y....?Plz copy this code,U will get to know what i want to ask!!!!!!!!!!!

•

Join Date: Oct 2008

Posts: 2,581

Reputation: adatapost has much to be proud of

Solved Threads: 457

adatapost

Online

Posting Maven

Re: Treeview + Small Probs

Jun 14th, 2009

•

Originally Posted by ritu verma

I have a treeview with two nodes..I m showing the contextmenu when the user clicks on any portion of treeview ....
Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
 
            Dim N As New TreeNode()
            Me.TreeViewCategories.Nodes.Clear()
            With Me.TreeViewCategories.Nodes
                N = .Add("", "Main", 0)
                N.Nodes.Add("", "First Child", 0)
                N.Nodes.Add("", "Second Child", 0)
            End With
            TreeViewCategories.ExpandAll()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
 
    Private Sub TreeViewCategories_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeViewCategories.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y)
        End If
    End Sub
Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Dim N As New TreeNode() Me.TreeViewCategories.Nodes.Clear() With Me.TreeViewCategories.Nodes N = .Add("", "Main", 0) N.Nodes.Add("", "First Child", 0) N.Nodes.Add("", "Second Child", 0) End With TreeViewCategories.ExpandAll() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub TreeViewCategories_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeViewCategories.MouseDown If e.Button = Windows.Forms.MouseButtons.Right Then ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y) End If End Sub
Mine probs is that when i right click on Second Child,Contextmenu is showing....But aotomatically root is selected....Y....?Plz copy this code,U will get to know what i want to ask!!!!!!!!!!!

Add Following code

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
        TreeView1.Nodes.Add("Root")
        TreeView1.Nodes(0).Nodes.Add("Work")
        TreeView1.Nodes(0).Nodes.Add("Play")
 
        TreeView1.Nodes(0).Nodes(0).ContextMenuStrip = ContextMenuStrip1
        TreeView1.Nodes.Add("Root")
        TreeView1.Nodes(0).Nodes.Add("Work")
        TreeView1.Nodes(0).Nodes.Add("Play")

        TreeView1.Nodes(0).Nodes(0).ContextMenuStrip = ContextMenuStrip1

Failure is not fatal, but failure to change might be. - John Wooden

•

Join Date: Apr 2009

Posts: 33

Reputation: ritu verma is an unknown quantity at this point

Solved Threads: 1

ritu verma ritu verma is offline

Offline

Light Poster

Re: Treeview + Small Probs

Jun 14th, 2009

No no actually sir i didnt want dat, i m able to solve it.....Can u tell me how to attach here the screenshots..so dat it will be helpfull for others..cz i m newbie to this site..

•

Join Date: Jun 2009

Posts: 234

Reputation: GeekByChoiCe is on a distinguished road

Solved Threads: 42

GeekByChoiCe GeekByChoiCe is online now

Online

Posting Whiz in Training

Re: Treeview + Small Probs

Jun 14th, 2009

If i understood your problem right then this would be the solution

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
    Private Sub TreeViewCategories_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeViewCategories.NodeMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            TreeViewCategories.SelectedNode = e.Node
            ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y)
        End If
    End Sub
    Private Sub TreeViewCategories_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeViewCategories.NodeMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            TreeViewCategories.SelectedNode = e.Node
            ContextMnuTreeview.Show(TreeViewCategories, e.X, e.Y)
        End If
    End Sub

You might raise the TreeViewCategories.NodeMouseClick event to get the current node.

Last edited by GeekByChoiCe; Jun 14th, 2009 at 3:42 am.

•

Join Date: Apr 2009

Posts: 33

Reputation: ritu verma is an unknown quantity at this point

Solved Threads: 1

ritu verma ritu verma is offline

Offline

Light Poster

Re: Treeview + Small Probs

Jun 14th, 2009

Suppose i Add a new node,now want that the new node added automatically comes in EDIT MODE...How to do dat can somebody tell me???

•

Join Date: Apr 2009

Posts: 33

Reputation: ritu verma is an unknown quantity at this point

Solved Threads: 1

ritu verma ritu verma is offline

Offline

Light Poster

Re: Treeview + Small Probs

Jun 14th, 2009

i m able to solved it-

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 Private Sub ContextMnuAddColl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMnuAddColl.Click
        Try
            Dim tnNew As New TreeNode
            Dim tnSelected As TreeNode
            tnSelected = TreeViewCategories.SelectedNode
            If Not tnSelected Is Nothing Then
                tnNew = tnSelected.Nodes.Add("New Collection")
                tnNew.EnsureVisible()
                tnNew.BeginEdit()
            End If
            TreeViewCategories.ExpandAll()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 Private Sub ContextMnuAddColl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMnuAddColl.Click
        Try
            Dim tnNew As New TreeNode
            Dim tnSelected As TreeNode
            tnSelected = TreeViewCategories.SelectedNode
            If Not tnSelected Is Nothing Then
                tnNew = tnSelected.Nodes.Add("New Collection")
                tnNew.EnsureVisible()
                tnNew.BeginEdit()
            End If
            TreeViewCategories.ExpandAll()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub