Build your own Visual Studio: An Application Framework for Editing Objects at Run Time

Introduction: 

This article describes a generic application framework that may be of some use in projects that would need an interface similar to Visual Studio.  The application demonstrates approaches to providing a toolbox, a workspace, an object treeview, and an object editor. 

The application framework will allow the user to create objects in the workspace by dragging items out of the toolbox and onto the work surface, the user may drag the objects around within the workspace to reposition them, and the user may select objects in the workspace and use the property editor to change the object's properties.  Changes made in the property editor will immediately be reflected in the appearance of the object and in the treeview.  The treeview shows all of the workspace objects as well as child objects.  The user may also select objects from the treeview to push them into the property editor or to delete them from the project.  The user may save the workspace as a custom file type and use the application's file open command to restore the custom file back into the workspace for subsequent views and edits.

The application is not of any value in and of itself, it is just intended to demonstrate an approach to building a useful application that needs to incorporate these types of features.  The application is intended to serve only as a demonstration of one approach  to building this sort interface; it is not the only way to do it but it is a representative of a simple way to build a fairly powerful interface that will be familiar to many users through the use of similar products. 

The application is not complete in as much as a lot of typical functions are not described and mechanized in the project; for example, I have not addressed things like printing or object alignment and distribution.  It is intended to serve as the basis for a more complex application but it is not itself a complete or complex application.  You can alter the approach as I have described in any number of different ways and still achieve the same sort of resulting interface.  For example, I will demonstrate using buttons as the objects in the toolbox but in reality any object that works with drag and drop can be used in place of the buttons.

This application and article will attempt to demonstrate the following concepts:

  • Drag and Drop to support an application toolbox interface
  • Panel drag and drop to support moving existing objects at run time
  • Treeview control used to provide a map to all existing parent and child objects 
  • Treeview control used to allow object selection
  • Treeview control used to delete project objects and child objects through simple recursion
  • The property grid control used to edit object properties
  • Serialization used to store files containing all of the necessary data needed to reconstruct the file between uses (collective object persistence through a custom file type)
  • Deserialization used to recover stored, serialized objects to support a file open function and subsequently used to restore a stored workspace to the active application
  • Processing command line arguments to open a file immediately upon initialization
  • Creation of a custom file type through the setup and deployment package

Getting Started:

In order to get started, unzip the attachment and load the solution into Visual Studio 2005.  Examine the solution explorer and note the files contained in the project:

Desktop-App-Framework1-in-VB.NET.gif

Figure 1:  The Solution Explorer Showing the Project Files

Beneath the solution title node, observe that there are two added folders, one containing graphics, and one containing classes.  The classes folder contains four classes; three are user controls and one is a standard class file.  These classes are used for demonstration purposes only and form the basis for the objects and object data used within the application.  The three user controls are:  Animal.vb, Person.vb, and Place.vb.  The remaining class (ObjectNote.vb) is the standard class.

The graphics folder contains a collection of icons and images used within the application.

In the solution root, note that there are two files:  FileSerialize.vb which is a module used to handle serialization and deserialization within the application.  The remaining class is the frmMain.vb; this class is the main application and it contains most of the code used to drive the application.

The main form (frmMain.vb) of the application has a layout consisting of a left side panel containing a tabbed panel; the tabbed panel has two tabs:  Toolbox and Properties.  The toolbox panel contains three user controls represented by buttons; these buttons can be dragged onto the form and whenever a control is dragged onto the form a control of the associated type is added to the workspace panel controls control collection as well as to a sorted list containing references to those objects added to the panel.  The properties tab is used to expose a treeview control and a property grid control.  The treeview control shows all objects contained within the current project; the property grid shows the properties for any object selected from either the workspace (panel control) or the treeview control.  The user may edit any property exposed but the application is only configured to persist the custom properties defined in the class; this could be modified to support persisting any or all of the values associated with the object but in an effort to keep the code small and readable, I opted only to support a few properties in serialization and deserialization.

Take a look at figures 2 and 3 to see an example of the demonstration application running; figure 2 shows the application with the toolbox tab selected; the objects in the toolbox panel may be dragged and dropped onto the panel in the right; in this example you can see several objects that have been dropped onto the panel.  Figure 3 shows the property tab selected in the application, the treeview at the top shows all of the objects currently in the workspace.  The property grid control is set to allow edits to be made to the last selected object.  Each time a new object is selected from the treeview or the panel, the property grid will update to show the properties for that selected object.

Desktop-App-Framework2-in-VB.NET.gif

Figure 2:  Application Running with Toolbox Tab Selected

Desktop-App-Framework3-in-VB.NET.gif

Figure 3: Application Running with Properties Tab Selected

The Code:  User Controls.

There are three user controls contained in the class folder in the solution.  They all are basically constructed the same way so I will only describe one of them and you can examine the others if you so desire; the user controls are arbitrary to this discussion; the application framework can be used to edit the properties of any object; the controls I have included are only useful for this demonstration.

Open up the Animal.vb class file.  This is user control; user controls can't be easily serialized so there is a little extra work involved to persist them and to bring them back to life between uses. 

Each of the user controls starts out with a few imports; these imports are used to add design support for the controls when in use.  The class starts with the following code:

Imports System.ComponentModel

Imports System.ComponentModel.EditorAttribute

Imports System.ComponentModel.Design.DesignerCollection

 

Public Class Animal

After the class declaration, a region called declarations is defined and populated with private member variables and enumerations.  I have included the enumerations to demonstrate how the property grid displays options based upon an enumeration (they are exposed in a combo box within the property editor); the declaration region content is as follows:

#Region "Declarations"

 

    Private mUniqueID As Guid

    Private mDisplayName As String

    Private mSpecies As String

    Private mType As AnimalType

    Private mHabitat As HabitatType

    Private mColor As System.Drawing.Color

    Private mLocation As Point

 

 

    Public Enum AnimalType

        Mammal

        Amphibeon

        Fish

        Bird

        Reptile

    End Enum

 

    Public Enum HabitatType

        Water

        Desert

        Forest

        Arid

        Mountain

        Plain

        Coastal

    End Enum

 

#End Region

Following the declarations region, the "New" subroutine is overloaded; one version of the subroutine is used to create new instances of the control whilst the other is used to recreate the controls following deserialization:

' Default Constructor

Public Sub New()

 

    InitializeComponent()

 

    Dim newGuid As Guid = Guid.NewGuid

    Me.mUniqueID = newGuid

    Habitat = HabitatType.Arid

    Type = AnimalType.Mammal

    DisplayName = "myAnimal"

End Sub

This is the default constructor used to create new instances of the control; it sets a unique ID for the control which is used in managing relationships within the treeview and it sets a few default properties for the control.  Next is the alternate constructor:

' Alternate constructor

Public Sub New(ByVal theId As Guid, _

                ByVal theDisplayName As String, _

                ByVal theSpecies As String, _

                ByVal theType As String, _

                ByVal theHabitat As String, _

                ByVal theColor As System.Drawing.Color, _

                ByVal theLocation As Point)

 

    InitializeComponent()

 

    ' when restoring from data after deserialization, set the UID to

    ' the stored value and the recovered properties for the control

    ' including its location are stored into a new instance of the

    ' user control

    mUniqueID = theId

    DisplayName = theDisplayName

    Species = theSpecies

    Type = theType

    Habitat = theHabitat

    MajorColor = theColor

    Me.Location = theLocation

 

End Sub

This is the alternate constructor used to restore a control following deserialization; the values supplied to the constructor will be supplied by a structure populated from the original control's properties at serialization.  Additional properties could easily be added however in effort to keep things simple I opted to only support a few of the available properties and only one from the user control class (location).  If you wanted to add in other properties such as a border style or background color, you could capture those values at serialization and post them back to the control whenever it is reconstructed through this alternate constructor.

The rest of the Animal class contains the properties used by the control.   When looking at the properties, examine each of the attributes assigned to the properties that may be edited within the property editor control.  That region is as follows:

#Region "Properties"

 

    Public ReadOnly Property ID() As Guid

        Get

            Return mUniqueID

        End Get

    End Property 

 

    Public Property MyLocation() As Point

        Get

            Return mLocation

        End Get

        Set(ByVal value As Point)

            mLocation = value

        End Set

    End Property 

 

    <CategoryAttribute("Animal Information"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The display name of this animal object.")>_

    Public Property DisplayName() As String

        Get

            Return mDisplayName

        End Get

        Set(ByVal value As String)

            mDisplayName = value

            txtTitle.Text = "ANIMAL: " & mDisplayName

        End Set

    End Property 

 

    <CategoryAttribute("Animal Information"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The species of this animal object.")>_

    Public Property Species() As String

        Get

            Return mSpecies

        End Get

        Set(ByVal value As String)

            mSpecies = value

            lblSpecies.Text = "Species: " & mSpecies

        End Set

    End Property 

 

    <CategoryAttribute("Animal Information"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The type of this animal object.")>_

    Public Property Type() As AnimalType

        Get

            Return mType

        End Get

        Set(ByVal value As AnimalType)

            mType = value

            lblType.Text = "Type: " & mType.ToString()

        End Set

    End Property 

 

    <CategoryAttribute("Animal Information"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The habitat used by this animal object.")>_

    Public Property Habitat() As HabitatType

        Get

            Return mHabitat

        End Get

        Set(ByVal value As HabitatType)

            mHabitat = value

            lblHabitat.Text = "Habitat: " & mHabitat.ToString()

        End Set

    End Property 

 

    <CategoryAttribute("Animal Information"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The primary color of this animal object.")>_

    Public Property MajorColor() As System.Drawing.Color

        Get

            Return mColor

        End Get

        Set(ByVal value As System.Drawing.Color)

            mColor = value

            lblColor.Text = "Color: " & mColor.ToString()

        End Set

    End Property

 

#End Region

As far as the attributes go, the Category Attribute is used to group properties within the property editor.  If three properties have a common Category Attribute, they will appear grouped together during edit.  The Browsable attribute determines whether or not the property will appear in the property editor.  The Description Attribute provides the text string that appears at the bottom of the editor; this is generally used to provide instructions to the user or to describe the property.  

Desktop-App-Framework4-in-VB.NET.gif

Figure 4:  Property Grid in Use

That pretty much wraps up the content of the user controls; again all three are basically built the same and therefore I have described only one of the three user controls.

The Code:  Serializable Class.

The class folder contains one other class; it is called ObjectNote.vb and it is a simple, serializable class.  It is included in the demonstration for two reasons.  The first is that everything in a serializable class can be serialized (you probably guessed that was coming) and therefore you will not need to do anything extra to serialize, deserialize, or to reconstruct objects between uses.  The other reason I have included it in the demonstration is because I use it to show adding and removing child nodes from the treeview control.

The class is very simple and it only contains three properties worthy of note:  Its unique ID, its parent's unique ID, and string used to hold the note itself.  At runtime, if the user right clicks on an object in the treeview or in the panel, the application will reveal a context menu and one of the two menu options is to add a note to the object.  This is the container class that holds that note.

The code starts with a few imports and a class declaration.  Note that the class is marked serializable:

Imports System.ComponentModel

Imports System.ComponentModel.EditorAttribute

Imports System.ComponentModel.Design.DesignerCollection

Imports System.Runtime.Serialization 

 

<Serializable()>_

Public Class ObjectNote

Following the imports and class declaration, a default constructor is defined as follows:

    ' Default Constructor

    Public Sub New(ByVal parent As Guid)

 

        ' In order to keep track of who this note belongs to when displayed

        ' in the treeview control, we need to know the identity of the parent      

          object (node)

        ' Here we give the new object a new guid and set its parent property

          to the value passed to the constructor.

        Dim newGuid As Guid = Guid.NewGuid

        Me.mUniqueID = newGuid

        Me.mParentID = parent 

    End Sub

As per the comments in the code, the constructor is passed in its parents unique ID (a guid) and its unique ID and parent ID properties are set.  The parent ID is used to do two things:  Maintain the relationship between objects stored in the treeview, and to allow child objects to be found and deleted if the primary node is deleted by the user.

Following the constructor, a few declarations are made within a region;  that section is as follows:

#Region "Declarations"

 

    Private mUniqueID As Guid

    Private mParentID As Guid

    Private mDisplayName As String

    Private mNote As String 

#End Region

These private member variables are set either when the control is created or by the properties which are added next:

#Region "Properties"

 

    Public ReadOnly Property ID() As Guid

        Get

            Return mUniqueID

        End Get

    End Property 

 

    Public Property MyParent() As Guid

        Get

            Return mParentID

        End Get

        Set(ByVal value As Guid)

            mParentID = value

        End Set

    End Property 

 

    <CategoryAttribute("Object Note"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("Enter text to describe the associated object.")>_

    Public Property Note() As String

        Get

            Return mNote

        End Get

        Set(ByVal value As String)

            mNote = value

        End Set

    End Property 

 

    <CategoryAttribute("Object Note"), _

    Browsable(True), _

    BindableAttribute(False), _

    DescriptionAttribute("The display name of this note object.")>_

    Public Property DisplayName() As String

        Get

            Return mDisplayName

        End Get

        Set(ByVal value As String)

            mDisplayName = value

        End Set

    End Property 

#End Region

Of the properties shown, the unique and parent IDs have already been mentioned.  The display name is the name of the note as it is displayed at run time and the Note property is the note assigned to the parent node.

That wraps up the controls used by the application.  Again, these classes were only defined to allow the demonstration of the approach defined within this demonstration; aside from the demonstration they don't serve any useful purpose (well, unless you have some unusual requirements and just so happen to need controls to monitor people, animals, and places).

The Code:  Main Form.

Main Form Layout.

The main form contains a menu at the top of the form, a tabbed control is docked to the left and has two panels, one is used as a toolbox and the other to show the treeview and properties.  The tabbed panel has a vertical splitter on its right side; within the property tab, that panel is split horizontally with the treeview docked to the top, the horizontal splitter under the treeview, and the property grid control set to dock full under the horizontal splitter.  On the right side of the splitter, a toolbar is docked to the top and a panel is set to dock full beneath the toolbar.  The panel is set to have a background color of white and it is used as the container for the objects.

Given the panel control is going to be the target for objects dragged from the toolbar, the Allow Drop property of the panel has to be set to true.

Each of the three user controls is represented by a button placed into the toolbox.  Each button has an image and a text label describing it.

The toolbar has two buttons added to it; one is called select and one is called drag or move.  If the user is in select mode, the clicking on an item in the panel will select it and make the control active for edit in the property grid; if the user is in drag mode, the mouse may be used to drag the objects around on the panel to reposition them.

In addition to the visual elements, the form also contains a file open dialog, a save file dialog, a context menu containing two options:  Delete Selected Element and Add Note To Selected Element.  There is also a tooltip and the main menu strip.

The main menu has a file menu with options to create a new file, open an existing file, save a file, and to exit the application.

The Main Form Code.

The main form's code is divided into several regions; these regions are as follows:  Declarations, Drag and Drop - Mouse Down Handlers, Drag and Drop - Drop Handlers, and Methods.

The declarations region contains a few member variables used within the application, that section is as follows:

#Region "Declarations"

 

    ' Private member variable declarations

    Private mCurrentObjectName As String

    Private mCurrentObject As Object

    Private mObjectCollection As New SortedList

    Private mObjectNotes As New SortedList

    Private mObjectFileBundle As New SortedList

    Private mSelect As Boolean = False 

 

    ' Data Containers for Serialization --

    ' This example uses three user controls for the basis of the

    ' objects needed to demonstrate the concept; these are not

    ' serializable and in order to persist them, you need to capture

    ' the user control's properties into a serializable construct and

    ' store that instead of the control itself.  The following

    ' three structs are used to contain the user control data.

    ' if you wish to persist other data from the control such as the

    ' background color, font, etc., you would need to add additional

    ' items to these data container structs and populate and recover

    ' those values at runtime during the save and open file operations

    <Serializable()> _

    Private Structure AnimalData

        Public theId As Guid

        Public theDisplayName As String

        Public theSpecies As String

        Public theType As String

        Public theHabitat As String

        Public theColor As System.Drawing.Color

        Public theLocation As Point

    End Structure 

 

    <Serializable()> _

    Private Structure PersonData

        Public theId As Guid

        Public theDisplayName As String

        Public thePersonName As String

        Public theBirthPlace As String

        Public theDateOfBirth As Date

        Public theOccupation As String

        Public theLocation As Point

    End Structure 

 

    <Serializable()> _

    Private Structure PlaceData

        Public theId As Guid

        Public theDisplayName As String

        Public thePlaceName As String

        Public theCity As String

        Public theState As String

        Public theCountry As String

        Public theLocation As Point

    End Structure 

#End Region

The private member variables are used to keep track of the currently selected object and the name of that object, there are two other collections (sorted lists) used to contain all of the user controls and all of the notes, an additional sorted list is used to pack up all of the object data and notes for serialization into a single file with a custom extension.

After the member variables have been declared, three serializable structures are defined: one for each of the three user controls.  Since we are not going to try to serialize everything in the user control, we are just adding in a few key properties.  As was mentioned earlier, it would be easy to add additional properties from the user control and to serialize and deserialize those properties between uses.

In the Drag and Drop - Mouse Down region, each of the three buttons is set up to support the drag and drop operation.  A handler was written for each button but since they are all basically the same, I will only show one here:

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As

    System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

     ' When the user clicks down on the button, we assume we are going to

      drag one to the panel so we instance an animal, set its default

      properties and make the DoDragDrop call.  The control is not yet

      added to the panel's control collection

      ' and is not yet included in any data that will be serialized; the

      user has to complete the drop onto the panel for this transaction

      to complete.

      Dim myAnimal As New Animal

      mCurrentObjectName = "Animal"

      mCurrentObject = myAnimal

      myAnimal.DisplayName = "myAnimal"

      Button1.DoDragDrop(myAnimal, DragDropEffects.All)

 

End Sub

The mouse down event is used to instance the associated class, set a couple of properties on the object, and evoke the button's Do Drag Drop method whilst passing it the new object and setting the Drag Drop Effect to all.  That sets up the drag side of the house, now we need to handle the drop side.  Looking at the drop handlers region, you will see two subroutines defined to prepare the panel control to receive the dropped items:  Panel1_DragDrop, and Panel1_DragEnter; they are written as follows:

Private Sub Panel1_DragDrop1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragDrop

 

        ' Get the current mouse position and define a point, then

        ' convert the point to work on the panel control (within its

          coordinates)

        Dim dropX As Single = e.X

        Dim dropY As Single = e.Y

        Dim dropLocation = New Point(dropX, dropY)

        Dim dropPoint As New Point()

        dropPoint = Panel1.PointToClient(dropLocation)

 

        ' Create new objects based upon what has been dropped onto the panel

        ' and set the user control's handlers to work with the dropped

          object.

        Select Case mCurrentObjectName.ToString()

 

            Case "Animal"

                Dim myAnimal As New Animal

                myAnimal = CType(Me.mCurrentObject, Animal)

                Panel1.Controls.Add(myAnimal)

                myAnimal.Location = dropPoint

                myAnimal.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(myAnimal.ID, myAnimal)

                AddHandler myAnimal.MouseClick, AddressOf Object_MouseClick

                AddHandler myAnimal.MouseDown, AddressOf Object_MouseDown

            Case "Person"

                Dim myPerson As New Person

                myPerson = CType(Me.mCurrentObject, Person)

                Panel1.Controls.Add(myPerson)

                myPerson.Location = dropPoint

                myPerson.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(myPerson.ID, myPerson)

                AddHandler myPerson.MouseClick, AddressOf Object_MouseClick

                AddHandler myPerson.MouseDown, AddressOf Object_MouseDown

            Case "Place"

                Dim myPlace As New Place

                myPlace = CType(Me.mCurrentObject, Place)

                Panel1.Controls.Add(myPlace)

                myPlace.Location = dropPoint

                myPlace.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(myPlace.ID, myPlace)

                AddHandler myPlace.MouseClick, AddressOf Object_MouseClick

                AddHandler myPlace.MouseDown, AddressOf Object_MouseDown

            Case Else

                mCurrentObject.Location = dropPoint

        End Select

 

        ' With a new item dropped into the panel, update the treeview to

        ' reflect the latest addition to the node collection

        UpdateTreeview() 

    End Sub

The first part of this handler gets the current mouse position at the time of the drop and converts it into a value usable by the panel control.  This will make sure that the dropped item's upper left hand corner will be located at the exact position indicated by the mouse when the drop was made.  Following the location conversion, the subroutine evaluates the current object's name (set when the button received its mouse down command) within a select case statement; depending upon the current object, the subroutine then creates an instance of the appropriate object type sets it to be the current object, adds the control to the panel, sets its location to be at the drop point, and then adds a context menu and mouse click and mouse down event handlers to the control .

Once the object has been placed and added to the panel, the treeview control is updated to show the newly added object.  The Drag Enter event handler is set up to handle whether or not the drag drop will be used to move a control or add a new one.

Private Sub Panel1_DragEnter1(ByVal sender As Object, ByVal e As

    System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter

 

    ' Setup to either copy or move the dragged control.

    If (e.Data.GetDataPresent(DataFormats.Text)) Then

        e.Effect = DragDropEffects.Copy

    Else

        e.Effect = DragDropEffects.Move

    End If

 

End Sub

The last section of code to describe is contained in the Methods region; within this region, fifteen separate subroutines are defined.  Some of these subroutines are very simple and are barely worth mentioning, others will require some explanation.

The first two subroutines in the methods region are two generic handlers:  a mouse down handler, and an mouse click handler.

Private Sub Object_MouseClick(ByVal sender As Object, ByVal e As

    System.Windows.Forms.MouseEventArgs)

 

    ' A generic mouse click handler used for dynamically added user

     control objects.  This sets the current object, current object

     name, and object associated with the property grid in response to a

     click

    Try

        Me.mCurrentObject = sender

        Me.mCurrentObjectName = sender.DisplayName.ToString()

        Me.PropertyGrid1.SelectedObject = sender

 

    Catch ex As Exception

 

    End Try

 

End Sub

Private Sub Object_MouseDown(ByVal sender As Object, ByVal e As

    System.Windows.Forms.MouseEventArgs)

 

    ' A generic mouse down handler used for dynamically added user

     control objects.

    ' This works such that if the user to swap between selecting a

     control to load

    ' it into the property grid control, or to allow the user to drag a

    control to a new location on the form panel.

    Try

        If mSelect = True Then

            mCurrentObject = sender

            mCurrentObjectName = sender.DisplayName.ToString()

            mCurrentObject.DoDragDrop(mCurrentObject,

            DragDropEffects.All)

            Me.PropertyGrid1.SelectedObject = sender

        End If

 

    Catch ex As Exception

 

    End Try

 

End Sub

The comments provided within each of these two subroutines defines the purpose of the handler.  In general, these handlers are added to new instances of any controls added to the panel control at run time.

The next two subroutines are used to set a Boolean value used to allow the application to determine whether or not it is in select or drag mode.  This code is the click event handler for the two toolbar controls.  That code is as follows:

Private Sub tbnSelect_Click_1(ByVal sender As System.Object, ByVal e As

    System.EventArgs) Handles tbnSelect.Click

 

    ' Select mode is used allow the user to click on an object without

    dragging

    mSelect = False

 

End Sub

 

Private Sub tbnDrag_Click_1(ByVal sender As System.Object, ByVal e As

    System.EventArgs) Handles tbnDrag.Click

 

    ' With select mode disabled the user can drag objects around to move

    them

    mSelect = True

 

End Sub

Moving right along, the next thing up is the call that updates the treeview.  This call is made whenever a property grid item is edited or an item is added or deleted from the current workspace.  That code looks like this:

Private Sub UpdateTreeview()

 

    ' Clears and reloads all of the nodes in the treeview

    ' based upon object data stored in the objects sorted list

    ' This first loads the objects, and then checks for and loads

    ' any notes associated with the current object.

    TreeView1.Nodes.Clear()

 

    Dim de As DictionaryEntry

    For Each de In mObjectCollection

        Dim nd As New TreeNode

        nd.Name = de.Value.displayname.ToString()

        nd.Text = de.Value.displayname.ToString()

        nd.Tag = de.Value.ID.ToString()

        Me.TreeView1.Nodes.Add(nd)

        ' add any notes

        Dim de2 As DictionaryEntry

        For Each de2 In mObjectNotes

            If de2.Value.MyParent.ToString() = nd.Tag.ToString() Then

                Dim newNoteNode As New TreeNode

                newNoteNode.Text = "Note"

                newNoteNode.Tag = de2.Value.ID.ToString()

                nd.Nodes.Add(newNoteNode)

            End If

        Next

    Next

 

    ' The treeview will normally collapse all nodes in response to a

    change, this call forces all nodes to open.

    TreeView1.ExpandAll()

 

End Sub

This code is pretty simple; it clears all of the items out of the current treeview and then loops through the object collection to restore the treeview.  As items are added and removed from the object collection, the treeview will reflect only the current status of the workspace.

Equally simple is the handler for the property grid's property event changed handler which just calls for the treeview to update:

Private Sub PropertyGrid1_PropertyValueChanged(ByVal s As Object, ByVal e

    As System.Windows.Forms.PropertyValueChangedEventArgs) Handles

    PropertyGrid1.PropertyValueChanged

 

    ' Whenever the user updates a property in the property editor, the

    object will update

    ' automatically but the treeview will not; this call will update the

    treeview in response

    ' to dynamic edits to the property grid control.

    UpdateTreeview()

 

End Sub

Whenever the user selects an item from the treeview control, the property grid control needs to be updated to display the selected item's associated object for edit; this code accomplishes that:

Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As  

    System.Windows.Forms.

    TreeViewEventArgs) Handles TreeView1.AfterSelect

 

    ' Whenever the user clicks on a treeview node, this subroutine will

    ' select the object associated with the treeview node into the

    property

    ' grid and make it available for edits.

 

    ' The first check is for user control objects

    Dim de As DictionaryEntry

    For Each de In mObjectCollection

        If de.Key.ToString = e.Node.Tag.ToString() Then

            Me.mCurrentObject = de.Value

            Me.mCurrentObjectName = de.Value.DisplayName.ToString()

            PropertyGrid1.SelectedObject = de.Value

        End If

 

    Next

 

    ' The second check is for notes

    Dim de2 As DictionaryEntry

    For Each de2 In mObjectNotes

        If de2.Key.ToString = e.Node.Tag.ToString() Then

            Me.mCurrentObject = de2.Value

            Me.mCurrentObjectName = de2.Value.DisplayName.ToString()

            PropertyGrid1.SelectedObject = de2.Value

        End If

 

    Next

 

End Sub

As you can see, after the user selects an item from the treeview control, the application will loop through the collection of objects and the collection of notes looking for a match.  When the match is made, the control is updated to show the selected object's properties.

The call to delete a selected item works in a similar manner:

Private Sub DelectCurrentObjectToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DelectCurrentObjectToolStripMenuItem.Click

 

        ' This function will delete the selected object and treeview node

        ' in response to a user request to delete the object.  The option to

          delete an object is presented in the context menu.

        Dim de As DictionaryEntry

        For Each de In mObjectCollection

            If de.Value.ID.ToString = mCurrentObject.ID.ToString() Then

                mObjectCollection.Remove(de.Key)

                DeleteOrphanNotes(de.Key)

                Exit For

            End If

        Next

 

        UpdateTreeview()

        Me.Panel1.Controls.Remove(mCurrentObject)

 

End Sub

In this code, when the user selects the Delete Current Object from the context menu (after right clicking on either the treeview or one of the panel control's objects), the object collection is looped through searching for a match to the selected (current) object.  When a match is found, two things happen, first the collection is updated to remove the current object, and second, the unique ID for the object just deleted is passed to function called DeleteOrphanNotes.  Delete orphan notes is used to track down any and all notes assigned to the deleted object and remove them from the object note collection.  After the change is made, the treeview control is updated and the panel's control collection is updated to remove the current object from that collection as well.

The next bit of code to examine is used to add a new note the current selected object.  When this code is executed, a new note object will be created and its parent ID will be set to the current object's unique ID.  After the note is added, the treeview is updated to show the new child node appended to its parent node.  That code is as follows:

Private Sub AddNoteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNoteToolStripMenuItem.Click

 

        ' The option to add a note to a selected object (either from the

          treeview or panel)

        ' is supported here; the control option appears in the context menu.

        Dim newNote As New ObjectNote(mCurrentObject.ID)

        newNote.DisplayName = "Note"

        Me.mObjectNotes.Add(newNote.ID, newNote)

        UpdateTreeview()

End Sub

Next up is the Delete Orphan Notes subroutine, this function will continue to search for child notes until no more are found.  In response to finding a node, the function will again call itself to look for notes with a parent ID that matches the argument passed to the function.  The process will continue to operate recursively until the search term is not found.  That code looks like this:

Public Sub DeleteOrphanNotes(ByVal parentID As Guid)

 

    ' Recursively deletes all child note objects associated with

    ' a parent that has been deleted.  The code continues to look

    ' for notes with a matching parent ID until no more are found; at

    ' that point the search will cease.

    Dim blnFound As Boolean = False

 

    Dim de As DictionaryEntry

    For Each de In Me.mObjectNotes

        If de.Value.MyParent = parentID Then

            mObjectNotes.Remove(de.Key)

            blnFound = True

            Exit For

        End If

    Next

 

    If blnFound = False Then

        Exit Sub

    Else

        DeleteOrphanNotes(parentID)

    End If

 

End Sub

Next up is a main menu item click event handler.  This code is used to handle a request for a new project and all it does is call another subroutine called Clear All.  That code and the code for Clear All are as follows:

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object,

    ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

 

    ' Reset all collections and controls to a default

    ' empty state

    ClearAll()

 

End Sub

 

Private Sub ClearAll()

 

    ' This just clears and empties everything out of the project

    mCurrentObjectName = ""

    mCurrentObject = New Object()

    mObjectCollection.Clear()

    mObjectNotes.Clear()

    mObjectFileBundle.Clear()

    mSelect = False

    Panel1.Controls.Clear()

    TreeView1.Nodes.Clear()

    PropertyGrid1.SelectedObject = Nothing

 

End Sub

If you take a look at the Clear All subroutine, you will note that it empties all of the object collections, object selections, and the panel control's control collection. It also empties the treeview control and sets the property grid control's selected object to nothing.  This code was placed in a separate subroutine since it is called both in response the "New" menu option select as well as when  file is opened from the file system.

Moving on the next menu option, "Open", this bit of code is used to open a file from the file system and load its content into the application.  The Open menu item select's code looks like this:

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object,

    ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

 

    ' Configure the appearance and file association used by the

    ' openfiledialog box; limit the files that may be opened to the

    ' custom file type extension.  BXS is arbitrary, you can make up

    ' any file extension (well, don't use something like .doc, .txt, or

      .bmp)

    OpenFileDialog1.Title = "Open BXS Document"

    OpenFileDialog1.Filter = "BXS Documents (*.bxs)|*.bxs"

 

    ' if the user cancels, close out the dialog and return to the form

    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel

    Then

        Exit Sub

    End If

 

    ' Exit if no BXS document is selected

    Dim sFilePath As String

    sFilePath = OpenFileDialog1.FileName

    If sFilePath = "" Then Exit Sub

 

    ' Verify that the requested file is in place and

    ' exit the subroutine if the file does not exist.

    If System.IO.File.Exists(sFilePath) = False Then

        Exit Sub

    End If

 

    ' Since we have a valid source file, clear all is called

    ' to empty the applications sorted lists and to clear the

    ' panel of controls

    ClearAll()

 

    mObjectFileBundle = New SortedList

    mObjectFileBundle = FileSerializer.Deserialize(sFilePath)

 

    Dim ObjectData As New SortedList

 

    ' Recover the object collections to populate the local

    ' sortedlists used to hold the objects.

    Dim de As DictionaryEntry

    For Each de In mObjectFileBundle

        If de.Key.ToString() = "TheObjects" Then

            ObjectData = de.Value

        ElseIf de.Key.ToString() = "TheNotes" Then

            mObjectNotes.Clear()

            mObjectNotes = de.Value

        End If

 

    Next

 

    ' Add the objects back into the panel by recovering the stored

    ' object data and creating a new set of controls with the properties

    ' set to the object data gathered from the original object during

    ' file save and serialization

    Dim de2 As DictionaryEntry

    For Each de2 In ObjectData

        Select Case de2.Value.GetType.ToString()

            Case "ObjectManager.frmMain+AnimalData"

                Dim ast As New AnimalData

                ast = de2.Value

                Dim animl As New Animal(ast.theId, _

                                        ast.theDisplayName, _

                                        ast.theSpecies, _

                                        ast.theType, _

                                        ast.theHabitat, _

                                        ast.theColor, _

                                        ast.theLocation)

                animl.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(animl.ID, animl)

                AddHandler animl.MouseClick, AddressOf Object_MouseClick

                AddHandler animl.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(animl)

            Case "ObjectManager.frmMain+PersonData"

                Dim pst As New PersonData

                pst = de2.Value

                Dim pers As New Person(pst.theId, _

                                       pst.theDisplayName, _

                                       pst.thePersonName, _

                                       pst.theBirthPlace, _

                                       pst.theDateOfBirth, _

                                       pst.theOccupation, _

                                       pst.theLocation)

                pers.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(pers.ID, pers)

                AddHandler pers.MouseClick, AddressOf Object_MouseClick

                AddHandler pers.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(pers)

            Case "ObjectManager.frmMain+PlaceData"

                Dim pls As New PlaceData

                pls = de2.Value

                Dim plc As New Place(pls.theId, _

                                     pls.theDisplayName, _

                                     pls.thePlaceName, _

                                     pls.theCity, _

                                     pls.theState, _

                                     pls.theCountry, _

                                     pls.theLocation)

                plc.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(plc.ID, plc)

                AddHandler plc.MouseClick, AddressOf Object_MouseClick

                AddHandler plc.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(plc)

            Case Else

                ' do nothing

        End Select

    Next

 

    ' update the treeview to show the objects loaded from a file

    UpdateTreeview()

 

End Sub

This code is annotated well enough to follow but in general, the option is used to open an Open File Dialog; the dialog is configured to show files that match the custom file extension we are using (.bxs).  When the user selects a valid file, the path the that file is captured as a string and passed to the deserialization handler code; this code recovers the local file bundle object  from the serialized bundle (the bundle is a sorted list that contains two other sorted lists, one for the control object data, and one for the note objects. 

The bundled sorted list is examined and the serialized object sorted list and the object note sorted list are used to populate the local object list and object note list.  The objects contained in the control object sorted list are evaluated and new controls are instanced, their properties are set to match the stored property values, and the appropriate event handlers are associated with the new control.  Once all of the new controls have been defined and added to the panel control, the treeview is updated.  Note that the object notes sorted list did not require any processing other than to write it over directly to the current object notes sorted list.  This is because the entire class and all of its properties was directly serializable.

The next bit of code accomplishes the save function called form the main menu:

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object,

    ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click

 

    Try

        ' Open a file dialog for saving BXS documents

        SaveFileDialog1.Title = "Save BXS Document"

        SaveFileDialog1.Filter = "BXS Documents (*.bxs)|*.bxs"

 

        If SaveFileDialog1.ShowDialog() =

        Windows.Forms.DialogResult.Cancel Then

            Exit Sub

        End If

 

    Catch ex As Exception

 

        Exit Sub

 

    End Try

 

    ' Exit if no BXS document is selected

    Dim sFilePath As String

    sFilePath = SaveFileDialog1.FileName

    If sFilePath = "" Then Exit Sub

 

    ' Create a new sorted list to hold the data contain in the

    ' user controls for subsequent serialization

    Dim ObjectData As New SortedList

 

    ' Move the notes and object collections into the file bundle

    ' for subsequetn serialization

    Dim de As DictionaryEntry

    For Each de In mObjectCollection

        Select Case de.Value.GetType.ToString()

            Case "ObjectManager.Animal"

                Dim ad As New AnimalData

                ad.theId = de.Key

                ad.theColor = de.Value.MajorColor

                ad.theDisplayName = de.Value.DisplayName

                ad.theHabitat = de.Value.Habitat

                ad.theSpecies = de.Value.Species

                ad.theLocation = de.Value.Location

                ObjectData.Add(ad.theId, ad)

            Case "ObjectManager.Person"

                Dim ps As New PersonData

                ps.theId = de.Key

                ps.theBirthPlace = de.Value.BirthPlace

                ps.theDateOfBirth = de.Value.DateOfBirth

                ps.theDisplayName = de.Value.DisplayName

                ps.theLocation = de.Value.Location

                ps.theOccupation = de.Value.Occupation

                ps.thePersonName = de.Value.PersonName

                ObjectData.Add(ps.theId, ps)

            Case "ObjectManager.Place"

                Dim pls As New PlaceData

                pls.theId = de.Key

                pls.theDisplayName = de.Value.DisplayName

                pls.thePlaceName = de.Value.PlaceName

                pls.theCity = de.Value.City

                pls.theState = de.Value.State

                pls.theCountry = de.Value.Country

                pls.theLocation = de.Value.Location

                ObjectData.Add(pls.theId, pls)

            Case Else

                'do nothing

        End Select

    Next

 

    ' Place the object data and notes into a sorted list

    ' for subsequent serialization to a file location

    mObjectFileBundle = New SortedList

    mObjectFileBundle.Add("TheObjects", ObjectData)

    mObjectFileBundle.Add("TheNotes", mObjectNotes)

 

    ' Once the values have been set, serialize the content into the

    ' file path established using the save file dialog

    FileSerializer.Serialize(sFilePath, mObjectFileBundle)

 

End Sub

 

This code works in a manner similar to the Open File menu option, although it is operating in reverse.  Here, the user is presented with a File Save dialog box; the dialog box is used to collect a valid path to be used to store the serialized application data as a custom (.bxs) file.  Once a valid path is selected or created, the subroutine collects the control object data from the control object collection and moves it into a separate, serializable collection.  The structures defined for each control type are used to contain individual copies of each control objects properties; not all of the properties but those that we have decided to keep.


Once the control data has been gathered into the object data collection, both the object note and object data sorted lists are added to the Object File Bundle sorted list (so that all data is now stored in a single sorted list).  The object file bundle is then serialized to the file path specified.

The next two sections of code are used to handle opening the application by double clicking on an associated file of the custom file type from an explorer window.  The first subroutine configures form load to look for file path strings passed to the application on load, and if any are passed in, it passes the path to the second subroutine which loads it into the application on start up. 

That code looks like this:

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As

    System.EventArgs) Handles Me.Load

 

    'check each parameter to get the file name (there is only one though)

    For Each param As String In My.Application.CommandLineArgs

 

        Try

            ' pass the file path if it exists

            OpenFromPath(param)

        Catch

            'do nothing, just open the application with no file

        End Try

 

    Next param

 

End Sub

 

Private Sub OpenFromPath(ByVal sFilePath As String)

 

    mObjectFileBundle = New SortedList

    mObjectFileBundle = FileSerializer.Deserialize(sFilePath)

 

    Dim ObjectData As New SortedList

 

    ' Recover the object collections to populate the local

    ' sortedlists used to hold the objects.

    Dim de As DictionaryEntry

    For Each de In mObjectFileBundle

        If de.Key.ToString() = "TheObjects" Then

            ObjectData = de.Value

        ElseIf de.Key.ToString() = "TheNotes" Then

            mObjectNotes.Clear()

            mObjectNotes = de.Value

        End If

 

    Next

 

    ' Add the objects back into the panel by recovering the stored

    ' object data and creating a new set of controls with the properties

    ' set to the object data gathered from the original object during

    ' file save and serialization

    Dim de2 As DictionaryEntry

    For Each de2 In ObjectData

        Select Case de2.Value.GetType.ToString()

            Case "ObjectManager.frmMain+AnimalData"

                Dim ast As New AnimalData

                ast = de2.Value

                Dim animl As New Animal(ast.theId, _

                                        ast.theDisplayName, _

                                        ast.theSpecies, _

                                        ast.theType, _

                                        ast.theHabitat, _

                                        ast.theColor, _

                                        ast.theLocation)

                animl.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(animl.ID, animl)

                AddHandler animl.MouseClick, AddressOf Object_MouseClick

                AddHandler animl.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(animl)

            Case "ObjectManager.frmMain+PersonData"

                Dim pst As New PersonData

                pst = de2.Value

                Dim pers As New Person(pst.theId, _

                                       pst.theDisplayName, _

                                       pst.thePersonName, _

                                       pst.theBirthPlace, _

                                       pst.theDateOfBirth, _

                                       pst.theOccupation, _

                                       pst.theLocation)

                pers.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(pers.ID, pers)

                AddHandler pers.MouseClick, AddressOf Object_MouseClick

                AddHandler pers.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(pers)

            Case "ObjectManager.frmMain+PlaceData"

                Dim pls As New PlaceData

                pls = de2.Value

                Dim plc As New Place(pls.theId, _

                                     pls.theDisplayName, _

                                     pls.thePlaceName, _

                                     pls.theCity, _

                                     pls.theState, _

                                     pls.theCountry, _

                                     pls.theLocation)

                plc.ContextMenuStrip = ContextMenuStrip1

                mObjectCollection.Add(plc.ID, plc)

                AddHandler plc.MouseClick, AddressOf Object_MouseClick

                AddHandler plc.MouseDown, AddressOf Object_MouseDown

                Panel1.Controls.Add(plc)

            Case Else

                ' do nothing

        End Select

    Next

 

    ' update the treeview to show the objects loaded from a file

    UpdateTreeview()

 

End Sub

The code for the Open From File subroutine is identical to a portion of the code used in the File Open menu click event handler except for the fact that is works with a file path passed into the function directly rather than through a value collected from an open file dialog.  This function could be called directly from the File Open menu event handler with no impact on the application.

The last subroutine in the application is merely used to close the application in response to the user's selection of the exit function from the main menu:

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

 

        Application.Exit()

 

End Sub

That concludes the description of the code contained within the main form's code and for all of the application code in general.

The Code:  File Serializer Module

The code module contains two methods; one to serialize data and one to deserialize data.  Both methods use a binary formatter to handle the serialization and deserialization process.  Take a look at the module and note how each was construction.

The Serializer subroutine appears as follows:

Sub Serialize(ByVal strPath As String, ByVal myFile As SortedList)

 

        ' Create a filestream to allow saving the file after it has

        ' been serialized in this method

        Dim fs As New FileStream(strPath, FileMode.OpenOrCreate)

 

        ' Create a new instance of the binary formatter

        Dim formatter As New BinaryFormatter

        'Dim formatter As New SoapFormatter

 

        Try

 

            ' save the serialized data to the file path specified

            formatter.Serialize(fs, myFile)

            fs.Close()

 

        Catch ex As SerializationException

 

            MessageBox.Show(ex.Message & ": " & ex.StackTrace, "Error",

            MessageBoxButtons.OK, MessageBoxIcon.Error)

 

        End Try 

End Sub

The subroutine is quite simple; it opens a file stream pointed to the file path string passed in the argument list; the file mode is set to open or create.  Following the creation of the file stream, a new instance of the BinaryFormatter is created.  The try catch block is then set up; the try section is used to evoke the formatters serialize method; this method accepts two arguments:  One to identify the file stream to write to, and one to accept the file which in this case is the sorted list containing references to both the application objects and the note objects.  Once the serializer  completes writing to the file stream, the file stream is closed.

The other method in the File Serializer class is used to deserialize the contents of the stored file back into the application's file bundle sorted list.  Once reconstructed from a file, the sorted list is used to recreate the work space objects.  That code looks like this:

Public Function Deserialize(ByVal strPath As String) As SortedList

 

    ' Create filestream allowing the user to open an existing file

    Dim fs As New FileStream(strPath, FileMode.Open)

 

    ' Create a new instance of the Personal Data class

    Dim myFile As SortedList

    myfile = New SortedList

 

    Try

 

        ' Create a binary formatter

        Dim formatter As New BinaryFormatter

        'Dim formatter As New SoapFormatter

 

        ' Deserialize the data stored in the specified file and

        ' use that data to populate the new instance of the personal data

          class.

        myfile = formatter.Deserialize(fs)

        fs.Close()

 

        ' Return the deserialized data back to the calling application

        Return myFile

 

    Catch ex As SerializationException

 

        MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK,

        MessageBoxIcon.Error)

        Return myFile

 

    End Try

 

End Function

This code works much like the serializer subroutine in that it opens a file stream and returns the contents of the file (the file bundle sorted list) which is passed to a new sorted list call "myFile".  The deserializer function returns the reconstructed sorted list to the calling method.  The calling method in this case is the file open command in the main form; the file open command then reconstructs the objects and notes sorted lists from the file bundle sorted list.

Custom File Association.

If you want to create a custom file association such that when a user double clicks on a file of the custom type's extension in a windows explorer window, the application will open it up directly, you will need to set that association up in the setup and deployment package, and you will need to modify the main entry point of the application to allow it to process a file passed to it immediately upon initialization.

The process of creating a file type association through the use of the Visual Studio 2005 setup and deployment project is far easier to manage than it once was; you can manually code the necessary information into the application, and depending upon the installation package you are using, you may need to do that.  If you are interested in that approach, take a look at this link, http://www.vbcity.com/forums/faq.asp?fid=15&cat=Registry#TID72502, [see File Associations the hard way].

First off, in the main form of the application, you will need to modify the form load event handler to respond to the receipt of a command line argument (the file name), this is now a trivial bit of code and it should look something like this:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

 

    'check each parameter to get the file name (there is only one though)

    For Each param As String In My.Application.CommandLineArgs

 

        Try

            ' pass the file path if it exists

            OpenFromPath(param)

        Catch

            'do nothing, just open the application with no file

        End Try

 

    Next param

 

End Sub

In this example, when the form loads, it will examine the contents of My.Application.CommandLineArgs to see if it contains a file name; since that is all we are going pass in, it will either be empty or will contain a file path.   If a file path is present, it will passed to a subroutine called, "OpenFromPath" which captures the data from the file and then reconstructs the file's objects.

In order to pass the file path to the command line arguments, you need to set up a couple of things in the Setup and Deployment project.  To begin, add a setup and deployment project to the existing solution and configure it to suit your requirements.  Once the project has been added, click on the setup project's name in the solution explorer, click on the "View" and then click on the "File Types" option.  This will bring up a File Types Designer in the main window of Visual Studio.

Once the file type designer has been displayed, right click on "File Types on Target Machine" and the click on the "Add File Type" option.  This will add an empty file type to the tree view, select the new file type's node and look in the property editor:

Desktop-App-Framework5-in-VB.NET.gif

Figure 5:  File Type Property Editor

In the property editor, set the name to match the name of the custom type, set the command to point to the application (as the Primary output from the application), key in a description, set the extension to the custom file type's extension, and set an icon for the file type.  Having set those values, click on the Open node.

Desktop-App-Framework6-in-VB.NET.gif

Figure 6:  The Open node under the custom file type

Once you have clicked on the open node, the property editor will show these properties:

Desktop-App-Framework7-in-VB.NET.gif

Figure 7:  Property Editor Set to the Open Node

These default properties are correct in that the default process is set to "open" and the "%1" is set to pass the file name of a selected file to the application's command line arguments on startup.  After a user installs the application, when they double click on a file of the custom file type, it will pass the file path to the application and open it.  Also, if the user right clicks on the custom file type icon, they will be able to select the "open with" option and be presented with a link to your application as indicated in the following figure:

Desktop-App-Framework8-in-VB.NET.gif

Figure 8: Open With option in Windows Explorer context menu

Summary.

The purpose of this article has been to demonstrate an easy approach to providing a complete framework for an application that is centered upon creating and editing objects at run time.  In order to achieve that goal, the application demonstrates the following key elements:

  • Drag and Drop to support an application toolbox interface.
  • Panel drag and drop to support moving existing objects at run time.
  • Treeview control used to provide a map to all existing parent and child objects.
  • Treeview control used to allow object selection.
  • Treeview control used to delete project objects and child objects through simple recursion.
  • The property grid control used to edit object properties.
  • Serialization used to store files containing all of the necessary data needed to reconstruct the file between uses (collective object persistence through a custom file type).
  • Deserialization used to recover stored, serialized objects to support a file open function and subsequently used to restore a stored workspace to the active application.
  • Processing command line arguments to open a file immediately upon initialization.
  • Creation of a custom file type through the setup and deployment package.


Similar Articles