SoapFormatter Help

[GrandpaB]

I have an error that I have not been able to find. Any
insight you can offer would be most appreciated. I
believe that the problem is associated with the
SoapFormatter.

The application allows the user to document a collection
of art objects. Each object is stored in an arrayList as
an objArt. To simplify finding my problem, I have
eliminated all the code except the code for six buttons,
the Title and Description textboxes and the Photograph
picturebox. The buttons allow the user to display the
first (|<),previous (<),next (>) and last (>|) objects in
the arrayList. The two additional buttons add (+) a new
object and delete (X) the current object. The buttons
are working fine. As the user navigates to a different
record any changes to the textboxes is saved to the
arrayList. When the application is closed the arrayList
is serialized with the SoapFormatter and written to a
file. I have included an open file dialog which is
accessed by double clicking on the picturebox. The JEPG
filename is displayed in the Description textbox and the
image is sized and displayed in the picturebox.

My problem is: If I use the open file dialog to change
the Description textbox the changes to the arrayList are
NOT saved when the application closes. If I manually
edit the Description textbox the changes are saved to the
file when the application closes. I have stepped through
the code when the application closes and I have observed
that in either case the changes have been made to the
arrayList and the SaveFile routine is called.

Here is the code with the nonessential routines minimized:

Imports System.IO
Imports System.Collecti ons
Imports System.Runtime. Serialization.F ormatters.Soap
'************** *************** *************** *************
Public Class Form1
'************** *************** *************** ************
Inherits System.Windows. Forms.Form
Public SGWArt As New classArt

#Region " Windows Form Designer generated code "

+ Private Sub Form1_Load(ByVa l sender As System.Object,
_
ByVal e As System.EventArg s) Handles MyBase.Load .

Private Sub Form1_Closing(B yVal sender As Object, _
ByVal e As
System.Componen tModel.CancelEv entArgs) _
Handles MyBase.Closing
SGWArt.SaveArt( Form2Art)
SGWArt.displayA rtList() 'added to assist debug!
SGWArt.SaveFile ()
SGWArt = Nothing
Beep()
End Sub

Private Sub BtnAdd_Click(By Val sender As Object, _
ByVal e As System.EventArg s) Handles
BtnAdd.Click
SGWArt.AddArt()
SGWArt.SetIndx( SGWArt.ArtCount - 1)
Art2Form(SGWArt .GetArt())
StatusUpdate()
End Sub

+ Private Sub BtnDel_Click(By Val sender As
System.Object, _
ByVal e As System.EventArg s) Handles
BtnDel.Click.

+ Sub StatusUpdate().

Sub Art2Form(ByVal MyArt As objArt)
With MyArt
tbTitle.Text = .Title
tbDesc.Text = .Des
pbPict.Text = .Pic
End With
DisplayJPG()
End Sub

Function Form2Art() As objArt
Dim MyArt As New objArt
With MyArt
.Title = tbTitle.Text
.Des = tbDesc.Text
.Pic = pbPict.Text
End With
Form2Art = MyArt
MyArt = Nothing
End Function

+ Private Sub BtnFirst_Click( ByVal sender As Object, _
ByVal e As System.EventArg s) Handles
BtnFirst.Click.

+ Private Sub BtnLast_Click(B yVal sender As Object, _
ByVal e As System.EventArg s) Handles
BtnLast.Click.

+ Private Sub BtnPrevious_Cli ck(ByVal sender As Object,
_
ByVal e As System.EventArg s) Handles
BtnPrevious.Cli ck.

Private Sub BtnNext_Click(B yVal sender As Object, _
ByVal e As System.EventArg s) Handles
BtnNext.Click
SGWArt.SaveArt( Form2Art)
If SGWArt.GetIndx < SGWArt.ArtCount - 1 Then
SGWArt.SetIndx( SGWArt.GetIndx + 1)
Art2Form(SGWArt .GetArt)
StatusUpdate()
End If
End Sub

Sub DisplayJPG()
Dim MyImage As Image
Dim MyWidth As Integer
Dim MyHeight As Integer
Dim pbArtSize As Integer
If System.IO.File. Exists(tbDesc.T ext) Then
MyImage = Image.FromFile( tbDesc.Text)
pbArtSize = pbPict.Width 'Note pbArt must be
square
MyWidth = MyImage.Width
MyHeight = MyImage.Height
'Set the width & height of the thumbnail
If MyWidth > MyHeight Then
MyHeight = pbArtSize * MyHeight / MyWidth
MyWidth = pbArtSize
Else
MyWidth = pbArtSize * MyWidth / MyHeight
MyHeight = pbArtSize
End If
MyImage = MyImage.GetThum bnailImage(MyWi dth,
MyHeight, _
Nothing, New IntPtr)
pbPict.Image = MyImage
Else
pbPict.Image = Nothing
End If
End Sub

Private Sub pbPict_DoubleCl ick(ByVal sender As
Object, _
ByVal e As System.EventArg s) Handles
pbPict.DoubleCl ick
If jpgDialog.ShowD ialog = DialogResult.OK Then
'pbPict.Text = jpgDialog.FileN ame
tbDesc.Text = jpgDialog.FileN ame
DisplayJPG()
End If
End Sub

+ Sub MyToolTips().

End Class

'************** *************** *************** *************
***
<[Serializable]()> Public Class
objArt '******
'************** *************** *************** *********
***
Public Title As String
Public Des As String
Public Pic As String
End Class

'************** *************** *************** *************
***
Public Class
classArt '******
'************** *************** *************** *********
***
Private Shared ArtList As New ArrayList 'shared added
1/5/05
Private ArtIndex As Integer
Private ArtFileName As String = "art.xml"

Public Sub SaveFile() 'save ArtList to ArtFile
Dim Msg1 As String = "ArtFile was not saved!
Reason: "
Dim Msg2 As String = "Art"
Dim sf As New SoapFormatter
Dim fs As New FileStream(ArtF ileName,
FileMode.Create )
Try
sf.Serialize(fs , ArtList)
Catch ex As Exception
MsgBox(Msg1 & ex.Message,
MsgBoxStyle.Cri tical, Msg2)
Finally
fs.Close()
End Try
End Sub

Public Sub GetFile() 'get ArtList from ArtFile
Dim Msg1 As String = "Failed to open ArtList!
Reason: "
Dim Msg2 As String = "Art"
If System.IO.File. Exists(ArtFileN ame) Then
Dim fs As New FileStream(ArtF ileName,
FileMode.Open)
Dim sf As New SoapFormatter
Try
ArtList = CType(sf.Deseri alize(fs),
ArrayList)
'ArtList = DirectCast(sf.D eserialize(fs),
ArrayList)
Catch ex As Exception
MsgBox(Msg1 & ex.Message,
MsgBoxStyle.Cri tical, Msg2)
Finally
fs.Close()
sf = Nothing
fs = Nothing
End Try
Else
AddArt()
End If
End Sub

Public Function GetArt() As objArt
'return Art object from ArtList at current index
GetArt = ArtList.Item(Ar tIndex)
End Function

Public Sub SaveArt(ByVal MyArt As objArt)
'put MyArt into ArtList at current index
ArtList.Item(Ar tIndex) = MyArt
End Sub

+ Public Sub AddArt().

+ Public Function ArtCount() As Integer.

+ Public Sub DelArt().

+ Public Function SetIndx(ByVal Indx As Integer) As
Integer.

+ Public Function GetIndx() As Integer.

Public Function prtArtList()
Dim output As String
For Each myArt As objArt In ArtList
With myArt
output = .Title & " " & .Des
End With
Next
End Function

End Class