?
Solved

add MRU List o Contextmenustrip in vb.net

Posted on 2010-08-18
10
Medium Priority
?
989 Views
Last Modified: 2013-11-27
Hi Experts,
My Windows desktop application has menu to open database files. I want to display 5 most recently used files as a contextmenustrip items. I have code to add it as a File Menu Item. But i am not using any menus. It is all graphical with big buttons and the button has contextmenustrip attached to it. How do I read these MRU files names and assign them dynamically to contextmenustrip? I am using Visual Studio 2008.
I will appreciat your help.
Thank you
0
Comment
Question by:RekhaShah
  • 6
  • 4
10 Comments
 
LVL 17

Expert Comment

by:nepaluz
ID: 33469127
where are you storing the file paths? In an array, list of string ....?
0
 

Author Comment

by:RekhaShah
ID: 33469284
I am storing my list in a public array. But how do i trigger the event to open the file?
0
 

Author Comment

by:RekhaShah
ID: 33469358
in the form load even, I call LoadMRUList. Then I add those list items to my contextMenustrip

For i = 1 To 5
            If MRUListArray(i) <> "" Then
                Me.MRUContextMenuStrip.Items.Add(MRUListArray(i))
            End If
Next
So i can add 1 file. But next time I open a different file, I need to add this to mru list. If kind of replaces the first one and I always have only one entry.
If you have a sample code, will be great. Thanks

Private Sub LoadMruList()
        Dim file_name As String
        For i As Integer = 1 To m_NumEntries
            ' Get the next file name and title.
            file_name = GetSetting(m_ApplicationName, _
                "MruList", "FileName" & i, "")

            ' See if we got anything.
            If file_name.Length > 0 Then
                ' Save this file name.
               MRUListArray(i) = file_name
            End If
        Next i
    End Sub

Open in new window

0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
LVL 17

Expert Comment

by:nepaluz
ID: 33469397
Click on the context menu and then double click on the menu item, you should get this:

   Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

    End Sub

and trigger your routine inside here, or you could add a handler everytime you add a menu (ie file path) to the menu

0
 
LVL 17

Expert Comment

by:nepaluz
ID: 33469431
the handler you can make for that islike:

AddHandler ToolStripMenuItem1.Click, AddressOf sButton

and sButton will be just like above

   Private Sub sButton(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
0
 

Author Comment

by:RekhaShah
ID: 33469688
let me get back to you tomorrow on it after trying out your suggestion. Thanks
0
 

Author Comment

by:RekhaShah
ID: 33470002
I have 3 buttons. 1. Open New File:  
2. Open Existing File:I show OpenFileDialog
3. 3rd button would have Recently used database list(as a contextmenustrip). So when I click on this third button, it would display MRU, and upon clicking on one of the files, it would open this existing file.  
it seems preety straightforward, but I can't seem to get it to work the way I want. If I had it as a menu item it would be very simple. i will appreciate if you have sample code(comlete code) to handle the click even on mru button.
0
 
LVL 17

Accepted Solution

by:
nepaluz earned 1500 total points
ID: 33470165

Dim MRUListArray As Array = Nothing
'populate your array here then
Dim MRUContextMenuStrip As New ContextMenuStrip
For i = 1 To 5
If MRUListArray(i) <> "" Then
MRUContextMenuStrip.Items.Add(MRUListArray(i))
End If
Next
AddHandler MRUContextMenuStrip.ItemClicked, AddressOf sButton1
 

Private Sub sButton1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim sItem = DirectCast(sender, ContextMenuStrip)
'now you can get the value of the item clicked by
File.Open(sItem.Text, FileMode.Open)
'or
File.Open(sItem.Name, FileMode.Open)
'depending on where you saved the full path
End Sub
0
 

Author Closing Comment

by:RekhaShah
ID: 33476566
Hi,
I got it to work. Your solution was partially correct, instead of adding handler to button, I was suppose to add handler to ToolStripItem.  Attaching the code for reference. This works. Thak you for guiding to the correct direction.

Here is the correct code that works.
Hi,
I got it to work. Your solution was partially correct, instead of adding handler to button, I was suppose to add handler to ToolStripItem.  Attaching the code for reference. This works. Thak you for guiding to the correct direction.
0
 

Author Comment

by:RekhaShah
ID: 33476580
Here is the correct solution that works.

Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tsi As ToolStripItem
        m_MruList = New MruList(APP_NAME)
        For i As Integer = 1 To 5
            If MRUListArray(i) <> "" Then
                tsi = MRUContextMenuStrip.Items.Add(MRUListArray(i))
                tsi.Name = "P" & i.ToString("00000")
                AddHandler tsi.Click, AddressOf tsi_Click
            End If
        Next i
        btnMRU.ContextMenuStrip = MRUContextMenuStrip
    End Sub

    Private Sub tsi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tsi As ToolStripItem = CType(sender, ToolStripItem)
        Debug.Print(tsi.Name & ", " & tsi.Text)
        MsgBox(tsi.Text)
    End Sub

Open in new window

0

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
For those of you who don't follow the news, or just happen to live under rocks, Microsoft Research released a beta SDK (http://www.microsoft.com/en-us/download/details.aspx?id=27876) for the Xbox 360 Kinect. If you don't know what a Kinect is (http:…
Kernel Data Recovery is a renowned Data Recovery solution provider which offers wide range of softwares for both enterprise and home users with its cost-effective solutions. Let's have a quick overview of the journey and data recovery tools range he…
There may be issues when you are trying to access Outlook or send & receive emails or due to Outlook crash which leads to corrupt or damaged PST file. To eliminate the corruption from your PST file, you need to repair the corrupt Outlook PST file. U…

589 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question