Serialize Microsoft Word and Microsoft Excel Objects with vb.net

Good Morning. Well as some of you know my daughter returned home and once again she has reverted to her old ways. Her mother and I have both agreed as of her birthday in February (she will be 18) she will be out. We are in full agreement on this because we need to take control of our home back. And that’s the way it has to be.

Today’s topic is how to serialize Microsoft Word or Microsoft Excel objects. Make it a great day!

So now, to use it in the future, all I have to do is import the Module (modConfig) and the Class (clsConfig)
into my Project and I can save the settings of any form by using the Save and Restore procedures in
the Load and Closing events of the Form… like so.

       Save("Config.dat", txtTest, chkTest, lvwFTP, lstFTP)’here we can add more controls
       Restore("Config.dat", txtTest, chkTest, lvwFTP, lstFTP)’here we can add more controls

*********This is the class that will store the property values and get serialized****************
<Serializable()> Public Class clsConfig
   Public arrStr(20)
   Public arrBln(20)
   Public arrInt(20)
   Public arrLst(20) As ArrayList
End Class
*****This is the module that will tie each property to a variable in the Class, then serialize the Class****************
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Module modConfig
   Sub Save(ByVal strFile As String, ByVal ParamArray objArr As Object())
       Dim Config As New clsConfig
       Dim str, bln, int, arr As Integer
       Dim arrTmp As ArrayList
       Dim objTmp, colTmp As Object
‘ Check for the type of object.
       For Each objTmp In objArr
           If TypeOf objTmp Is TextBox Then
‘ Set a variable in the Class to equal the desired property.
               Config.arrStr(str) = objTmp.Text
               str += 1
           ElseIf TypeOf objTmp Is CheckBox Then
               Config.arrBln(bln) = objTmp.Checked
               bln += 1
           ElseIf TypeOf objTmp Is ListBox Then
‘ Create Temp Array… add each element of the "Items" collection to it.
               arrTmp = New ArrayList
               For Each colTmp In objTmp.Items
                   arrTmp.Add(colTmp)
               Next
‘ Set a variable in the Class to equal the Temp Array.
               Config.arrLst(arr) = arrTmp
               arr += 1
           ElseIf TypeOf objTmp Is ListView Then
               arrTmp = New ArrayList
               For Each colTmp In objTmp.Items
                   arrTmp.Add(colTmp)
               Next
               Config.arrLst(arr) = arrTmp
               arr += 1
           End If
       Next
‘ Serialize the Class.
       Dim stmSav As Stream = File.Create(Application.StartupPath + "\" + strFile)
       Dim serBin As New BinaryFormatter
       serBin.Serialize(stmSav, Config)
       stmSav.Close()
   End Sub
   Sub Restore(ByVal strFile As String, ByVal ParamArray objArr As Object())
       Dim Config As New clsConfig
       Dim str, bln, int, arr As Integer
       Dim objTmp, colTmp As Object
‘ Deserialize
       If File.Exists(Application.StartupPath + "\" + strFile) Then
           Dim stmRst As Stream = File.OpenRead(Application.StartupPath + "\" + strFile)
           Dim serBin As New BinaryFormatter
           Config = CType(serBin.Deserialize(stmRst), clsConfig)
           stmRst.Close()
       End If
‘ Basically the oposite of the first sub…
‘ Instead of tying the existing Property to the Class variable, it takes the Property from the deserialized Class
‘ and sets it to the Property.
       For Each objTmp In objArr
           If TypeOf objTmp Is TextBox Then
               objTmp.Text = Config.arrStr(str)
               str += 1
           ElseIf TypeOf objTmp Is CheckBox Then
               objTmp.Checked = Config.arrBln(bln)
               bln += 1
           ElseIf TypeOf objTmp Is ListBox Then
               For Each colTmp In Config.arrLst(arr)
                   objTmp.Items.Add(colTmp)
               Next
               arr += 1
           ElseIf TypeOf objTmp Is ListView Then
               For Each colTmp In Config.arrLst(arr)
                   objTmp.Items.Add(colTmp)
               Next
               arr += 1
           End If
       Next
   End Sub
End Module

Technorati Tags: ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

Advertisements
  1. Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: