An easy way to implement a Recent menu in your application is to use the My.Settings namespace and store the recently opened items in a StringCollection setting.
1. Create a setting called RecentDocuments of type System.Collections.Specialized.StringCollection.
2. Add the following methods to your form class:
Private Function GetRecentDocuments() As StringCollection
'StringCollection can be stored in XML - it's easier than maintaining five
'separate strings in the settings collection, because the StringCollection
'can be manipulated all at once
If My.Settings.RecentDocuments Is Nothing Then
My.Settings.RecentDocuments = New StringCollection()
End If
Return My.Settings.RecentDocuments
End Function
Private Sub AddRecentDocument(ByVal strPath As String)
GetRecentDocuments()
If My.Settings.RecentDocuments.Contains(strPath) Then
'If this document was already in the recent list, move it to the top and
'slide everything else down
My.Settings.RecentDocuments.Remove(strPath)
ElseIf My.Settings.RecentDocuments.Count = 5 Then
'If the recent document list is full, drop the last one
My.Settings.RecentDocuments.RemoveAt(4)
End If
My.Settings.RecentDocuments.Insert(0, strPath)
End Sub
3. Add a Recent menu somewhere on your form (I usually make this a submenu under File).
4. In the Form.Load event, call GetRecentDocuments() and iterate through the strings, creating submenu items for the Recent menu.
Dim intI As Integer = 1
For Each strPath As String In GetRecentDocuments()
Dim tmi As New ToolStripMenuItem("&" + CStr(intI) + " - " + strPath)
RecentToolStripMenuItem.DropDownItems.Add(tmi)
intI += 1
Next
5. When an item is opened, pass the appropriate string to AddRecentDocument() and rebuild the Recent menu based on the new StringCollection.
Tuesday, July 31, 2007
MDI Application Quick Start
Here's what needs to happen to get an MDI application up and running:
1. Set the form's IsMdiContainer property to True.
2. Create a menu strip for the form.
3. Create a Window menu in the menu strip.
4. Set the menu strip's MdiWindowListItem property to the name of the Window menu.
Always refer to the topmost window with a reference to the main form's ActiveMdiChild property.
When a new child window is created, set its MdiParent property to the main form.
1. Set the form's IsMdiContainer property to True.
2. Create a menu strip for the form.
3. Create a Window menu in the menu strip.
4. Set the menu strip's MdiWindowListItem property to the name of the Window menu.
Always refer to the topmost window with a reference to the main form's ActiveMdiChild property.
When a new child window is created, set its MdiParent property to the main form.
Friday, July 13, 2007
Error inserting images into Word document
On calls to Range.InlineShapes.Add("C:\blah.jpg") and Range.Shapes.Add("C:\blah.jpg") I kept getting a very helpful, precise error:
The server threw an exception.
(Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
Thanks for that!
After playing around with the code for awhile, I found that my particular problem was being caused by how I instantiated the Word.Document object. My code read:
Dim mobjWordApp As New Word.Application()
mobjWordApp.Visible = False
Dim objDocSet As Word.Documents = mobjWordApp.Documents
Dim objDoc As Word.Document = objDocSet.Add(Visible:=MsoTriState.msoFalse)
Removing the Visible parameter from the Documents.Add() call fixed the error. It was unnecessary anyway, since I had already set Application.Visible to False.
The server threw an exception.
(Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
Thanks for that!
After playing around with the code for awhile, I found that my particular problem was being caused by how I instantiated the Word.Document object. My code read:
Dim mobjWordApp As New Word.Application()
mobjWordApp.Visible = False
Dim objDocSet As Word.Documents = mobjWordApp.Documents
Dim objDoc As Word.Document = objDocSet.Add(Visible:=MsoTriState.msoFalse)
Removing the Visible parameter from the Documents.Add() call fixed the error. It was unnecessary anyway, since I had already set Application.Visible to False.
Labels:
0x80010105,
AddPicture,
InlineShapes,
RPC_E_SERVERFAULT,
Shapes,
VB,
Word automation
Subscribe to:
Posts (Atom)