Help reading control.locatio n value back form text file

[Marc]

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
TW = System.IO.File. CreateText("C:\ MyTextFile.txt" )
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is Button Then
TW.WriteLine(C. Text)
TW.WriteLine(C. Location)
End If
Next
TW.Close()
End Sub


Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Dim TextFileStream As System.IO.TextR eader
TextFileStream = System.IO.File. OpenText("C:\My TextFile.txt")
Dim MyFileContents As String
Do
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
Me.Controls.Add (test)
test.Text = MyFileContents

test.Location = ??????????????? ??????????????? ??

AddHandler test.MouseDown, AddressOf Me.Thebutton_Mo useDown
AddHandler test.MouseMove, AddressOf Me.Thebutton_Mo useMove
AddHandler test.MouseUp, AddressOf Me.Thebutton_Mo useUp
Me.Controls.Add (test)
MsgBox(MyFileCo ntents)
Loop Until MyFileContents = ""
TextFileStream. Close()
End Sub

[Tom Shelton]

Marc wrote:

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
TW = System.IO.File. CreateText("C:\ MyTextFile.txt" )
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is Button Then
TW.WriteLine(C. Text)
TW.WriteLine(C. Location)
End If
Next
TW.Close()
End Sub


Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Dim TextFileStream As System.IO.TextR eader
TextFileStream = System.IO.File. OpenText("C:\My TextFile.txt")
Dim MyFileContents As String
Do
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
Me.Controls.Add (test)
test.Text = MyFileContents

test.Location = ??????????????? ??????????????? ??

AddHandler test.MouseDown, AddressOf Me.Thebutton_Mo useDown
AddHandler test.MouseMove, AddressOf Me.Thebutton_Mo useMove
AddHandler test.MouseUp, AddressOf Me.Thebutton_Mo useUp
Me.Controls.Add (test)
MsgBox(MyFileCo ntents)
Loop Until MyFileContents = ""
TextFileStream. Close()
End Sub

Marc,

I think a better approach to this would be serialization. Not of the
buttons it self, but of a container that controls the attributes...
something like (assuming 2005 here):

Option Strict On
Option Explicit On

<Serializable() _
Friend Class AttributeContai ner
Public Location As Point
Public Size As Size
Public Text As String

Public Sub New(ByVal Location As Point, ByVal Size As Size, ByVal
Text As String)
Me.Location = Location
Me.Size = Size
Me.Text = Text
End Sub
End Class

this class would hold the button values you wish to persist. Then, to
save the attributes:

' a container
Dim btnList As List(Of AttributeContai ner) = New List(Of
AttributeContai ner)

' grab the attributes
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Button Then
btnList.Add(New AttributeContai ner(ctrl.Locati on,
ctrl.Size, ctrl.Text))
End If
Next

' write the list in one chunk
Dim bf As New BinaryFormatter ()
Using writter As FileStream = File.OpenWrite( "myfile.dat ")
bf.Serialize(wr itter, btnList)
End Using

to retrieve would look something like:

Using reader As FileStream = File.OpenRead(" myfile.dat")
Dim bf As New BinaryFormatter
Dim btnAttrs As List(Of AttributeContai ner) =
DirectCast(bf.D eserialize(read er), List(Of AttributeContai ner))

For Each attr As AttributeContai ner In btnAttrs
Dim btn As New Button
With btn
.Location = attr.Location
.Size = attr.Size
.Text = attr.Text
End With
Me.Controls.Add (btn)
Next
End Using

HTH

--
Tom Shelton

[Cor Ligthert [MVP]]

Marc,

First set Option Strict On in your program, than have a look at the property
"location".

http://msdn2.microsoft.com/en-gb/lib....location.aspx

You see it are points, so to put it back you need first to set what is
written to points,
probably the top and left property are easier to start with,

Cor
"Marc" <ma*********@ho tmail.comschree f in bericht
news:11******** *************@l 39g2000cwd.goog legroups.com...

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
TW = System.IO.File. CreateText("C:\ MyTextFile.txt" )
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is Button Then
TW.WriteLine(C. Text)
TW.WriteLine(C. Location)
End If
Next
TW.Close()
End Sub


Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Dim TextFileStream As System.IO.TextR eader
TextFileStream = System.IO.File. OpenText("C:\My TextFile.txt")
Dim MyFileContents As String
Do
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
Me.Controls.Add (test)
test.Text = MyFileContents

test.Location = ??????????????? ??????????????? ??

AddHandler test.MouseDown, AddressOf Me.Thebutton_Mo useDown
AddHandler test.MouseMove, AddressOf Me.Thebutton_Mo useMove
AddHandler test.MouseUp, AddressOf Me.Thebutton_Mo useUp
Me.Controls.Add (test)
MsgBox(MyFileCo ntents)
Loop Until MyFileContents = ""
TextFileStream. Close()
End Sub

[Marc]

Thanks guys!

I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.

So now I have....

MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?

i.e test.location = myfilecontents

Cor Ligthert [MVP] wrote:

Marc,

First set Option Strict On in your program, than have a look at the property
"location".

http://msdn2.microsoft.com/en-gb/lib....location.aspx

You see it are points, so to put it back you need first to set what is
written to points,
probably the top and left property are easier to start with,

Cor
"Marc" <ma*********@ho tmail.comschree f in bericht
news:11******** *************@l 39g2000cwd.goog legroups.com...

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
TW = System.IO.File. CreateText("C:\ MyTextFile.txt" )
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is Button Then
TW.WriteLine(C. Text)
TW.WriteLine(C. Location)
End If
Next
TW.Close()
End Sub


Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Dim TextFileStream As System.IO.TextR eader
TextFileStream = System.IO.File. OpenText("C:\My TextFile.txt")
Dim MyFileContents As String
Do
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
Me.Controls.Add (test)
test.Text = MyFileContents

test.Location = ??????????????? ??????????????? ??

AddHandler test.MouseDown, AddressOf Me.Thebutton_Mo useDown
AddHandler test.MouseMove, AddressOf Me.Thebutton_Mo useMove
AddHandler test.MouseUp, AddressOf Me.Thebutton_Mo useUp
Me.Controls.Add (test)
MsgBox(MyFileCo ntents)
Loop Until MyFileContents = ""
TextFileStream. Close()
End Sub

[Tom Shelton]

Marc wrote:

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

By the way, I'm going to second Cor's advice. If you aren't using
turning on Option Strict and Option Explicit, then do so. It will make
your code easier to debug, since many errors will be caught at compile
time, and in many cases make your code run faster.

I will note that there is at least one exception to the Option Strict
On. And that's doing late binding. But, that should be a in a
specific file so and a concious decision.

--
Tom Shelton

[Tom Shelton]

Marc wrote:

Thanks guys!

I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.

So now I have....

MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?

i.e test.location = myfilecontents

Well, if you don't want to do seralize (which I can send you a simple
working project if you want), then you will need to parse the contents
of the line to get the values for the x and y. when you write out the
point like this, it will write out something like:

{x=100,y=2}

So, you might want to look into the strings Split method and then
Integer.Parse.

--
Tom Shelton

[Marc]

OK,

Can u send me that serialization code then Tom?

what are the advantage sof serialization? I am planning to allow the
user to save and reload the contents of the txtfile at any time

Tom Shelton wrote:

Marc wrote:

Thanks guys!

I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.

So now I have....

MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?

i.e test.location = myfilecontents

Well, if you don't want to do seralize (which I can send you a simple
working project if you want), then you will need to parse the contents
of the line to get the values for the x and y. when you write out the
point like this, it will write out something like:

{x=100,y=2}

So, you might want to look into the strings Split method and then
Integer.Parse.

--
Tom Shelton

[Marc]

Tom,

I tried to insert your serialization code...

It has a few errors..one is that the type list is not defined (see ???
below) and the other is that file is not declared?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
' a container
Dim btnList As ???List??? (Of AttributeContai ner) = New List(Of
AttributeContai ner)
' grab the attributes
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Button Then
btnList.Add(New AttributeContai ner(ctrl.Locati on,
ctrl.Size, ctrl.Text))
End If
Next
' write the list in one chunk
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter()
Using writter As IO.FileStream =
???File???.Open Write("C:myfile .dat")
bf.Serialize(wr itter, btnList)
End Using

End Sub

Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Using reader As IO.FileStream = File.OpenRead(" C:myfile.dat")
Dim bf As New
Runtime.Seriali zation.Formatte rs.Binary.Binar yFormatter
Dim btnAttrs As List(Of AttributeContai ner) =
DirectCast(bf.D eserialize(read er), List(Of
AttributeContai ner))

For Each attr As AttributeContai ner In btnAttr
Dim btn As New Button
With btn
.Location = attr.Location
.Size = attr.Size
.Text = attr.Text
End With
Me.Controls.Add (btn)
Next
End Using
Marc wrote:

OK,

Can u send me that serialization code then Tom?

what are the advantage sof serialization? I am planning to allow the
user to save and reload the contents of the txtfile at any time

Tom Shelton wrote:

Marc wrote:

Thanks guys!
>
I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.
>
So now I have....
>
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
>
>
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?
>
i.e test.location = myfilecontents
>

Well, if you don't want to do seralize (which I can send you a simple
working project if you want), then you will need to parse the contents
of the line to get the values for the x and y. when you write out the
point like this, it will write out something like:

{x=100,y=2}

So, you might want to look into the strings Split method and then
Integer.Parse.

--
Tom Shelton

[Cor Ligthert [MVP]]

Marc,

That serialization code is on our webside in the URL I gave you, I
simplified it from a longer one from Tom. Instead of an Arraylist you can
take any object as long as it is serializable.

Cor

"Marc" <ma*********@ho tmail.comschree f in bericht
news:11******** **************@ 14g2000cws.goog legroups.com...

OK,

Can u send me that serialization code then Tom?

what are the advantage sof serialization? I am planning to allow the
user to save and reload the contents of the txtfile at any time

Tom Shelton wrote:

>Marc wrote:

Thanks guys!

I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.

So now I have....

MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?

i.e test.location = myfilecontents

Well, if you don't want to do seralize (which I can send you a simple
working project if you want), then you will need to parse the contents
of the line to get the values for the x and y. when you write out the
point like this, it will write out something like:

{x=100,y=2}

So, you might want to look into the strings Split method and then
Integer.Pars e.

--
Tom Shelton

[Cor Ligthert [MVP]]

I see now that I have given that link somewhere else where you have stated
this question.

Cor

"Marc" <ma*********@ho tmail.comschree f in bericht
news:11******** *************@l 12g2000cwl.goog legroups.com...

Thanks guys!

I think I might stick to the way Ive done it as serialization looks a
bit hardcore for me.

So now I have....

MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
test.Text = MyFileContents
MyFileContents = TextFileStream. ReadLine
test.Location = New Point(1, 2)
Me.Controls.Add (test)
Which works fine. However I need a way for the test.location line to
read the string in form my text file? how can I do this?

i.e test.location = myfilecontents

Cor Ligthert [MVP] wrote:

>Marc,

First set Option Strict On in your program, than have a look at the
property
"location".

http://msdn2.microsoft.com/en-gb/lib....location.aspx

You see it are points, so to put it back you need first to set what is
written to points,
probably the top and left property are easier to start with,

Cor
"Marc" <ma*********@ho tmail.comschree f in bericht
news:11******* **************@ l39g2000cwd.goo glegroups.com.. .

The first part of the below writes the name and location of all
buttons on a from to a text file. The second part reads that
information back in and recreates the buttons. My problem is reading
the location value back in where I marked ??????????????? ??????. As it
wont accept a string value?

Private Sub Save_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Save.Click
TW = System.IO.File. CreateText("C:\ MyTextFile.txt" )
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is Button Then
TW.WriteLine(C. Text)
TW.WriteLine(C. Location)
End If
Next
TW.Close()
End Sub


Private Sub Load_Click(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles Load.Click
Dim TextFileStream As System.IO.TextR eader
TextFileStream = System.IO.File. OpenText("C:\My TextFile.txt")
Dim MyFileContents As String
Do
MyFileContents = TextFileStream. ReadLine
Dim test As New Button()
Me.Controls.Add (test)
test.Text = MyFileContents

test.Location = ??????????????? ??????????????? ??

AddHandler test.MouseDown, AddressOf Me.Thebutton_Mo useDown
AddHandler test.MouseMove, AddressOf Me.Thebutton_Mo useMove
AddHandler test.MouseUp, AddressOf Me.Thebutton_Mo useUp
Me.Controls.Add (test)
MsgBox(MyFileCo ntents)
Loop Until MyFileContents = ""
TextFileStream. Close()
End Sub