XML Writing and Reading

[jcrouse]

I am using the following code to write to an XML file

myXmlTextWriter .Formatting = System.Xml.Form atting.Indente
myXmlTextWriter .WriteStartElem ent("CPViewer"
myXmlTextWriter .WriteElementSt ring("Height", InputBoxHeight
myXmlTextWriter .WriteElementSt ring("Width", InputBoxWidth
'myXmlTextWrite r.WriteElementS tring("Backgrou nd", (OpenFileDialog 1.FileName)
myXmlTextWriter .WriteElementSt ring("label1.To p", label1.Top
myXmlTextWriter .WriteElementSt ring("label1.Le ft", label1.Left
myXmlTextWriter .WriteElementSt ring("label1.He ight", label1.Height
myXmlTextWriter .WriteElementSt ring("label1.Wi dth", label1.Width
myXmlTextWriter .WriteEndElemen t(
myXmlTextWriter .Flush(
myXmlTextWriter .Close(

Here is the XML output

<CPViewer><Heig ht>600</Height><Width>8 00</Width><label1.T op>200</label1.Top><lab el1.Left>152</label1.Left><la bel1.Height>23</label1.Height>< label1.Width>10 0</label1.Width></CPViewer

Here is the code from the reader

DataSet1.ReadXm l("C:\CPViewer\ LD.xml"
Me.DataBindings .Add(New Binding("Height ", DataSet1, "CPViewer.Heigh t")
Me.DataBindings .Add(New Binding("Width" , DataSet1, "CPViewer.Width ")
Me.DataBindings .Add(New Binding("label1 .Top", DataSet1, "CPViewer.label 1_Top")
'Me.DataBinding s.Add(New Binding("Backgr oundImage", DataSet1, "CPViewer.Backg roundImage")
Me.BackgroundIm age = (Image.FromFile ("C:\CPViewer\B ackgroundImage. jpg")
Me.CenterToScre en(

When I try to read it in will will read the "Height" and "Width" lines and position the form properly but when it reads the "Label1.top " line I get the following error

An unhandled exception of type 'Syste,.Argumen tException' occurred i
system.windows. forms.dl

Additional Information: Cannot bind to property 'label1.Top' on target control

What am I missing here

Thank you
John

[Cor Ligthert]

Hi JCrouse,

I thought I adviced you to use the ds.xmlWrite and ds.xmlRead with that.

I used that method you are now using as well, however that is a lot more
work.

What is the reason you do not want to use that dataset method?

Cor

[Ken Tucker [MVP]]

Hi,

Two things. First Your databinding code was wrong. Second Label1.Top
isn't a valid name use Label1_Top instead.

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

Dim ds As New DataSet

SaveData()
ds.ReadXml("C:\ LD.xml")

Me.DataBindings .Add("Width", ds.Tables(0), "Width")
Me.DataBindings .Add("Height", ds.Tables(0), "Height")
Label1.DataBind ings.Add("Top", ds.Tables(0), "Label1_Top ")
Label1.DataBind ings.Add("Left" , ds.Tables(0), "Label1_Lef t")
Label1.DataBind ings.Add("Width ", ds.Tables(0), "Label1_Wid th")
Label1.DataBind ings.Add("Heigh t", ds.Tables(0), "Label1_Height" )

End Sub

Private Sub SaveData()

Dim myXmlTextWriter As New Xml.XmlTextWrit er("C:\LD.xml" ,
System.Text.Enc oding.Unicode)

myXmlTextWriter .Formatting = System.Xml.Form atting.Indented
myXmlTextWriter .WriteStartElem ent("CPViewer")
myXmlTextWriter .WriteElementSt ring("Height", "600")
myXmlTextWriter .WriteElementSt ring("Width", "800")
'myXmlTextWrite r.WriteElementS tring("Backgrou nd",
(OpenFileDialog 1.FileName))
myXmlTextWriter .WriteElementSt ring("label1_To p", "200")
myXmlTextWriter .WriteElementSt ring("label1_Le ft", "152")
myXmlTextWriter .WriteElementSt ring("label1_He ight", "23")
myXmlTextWriter .WriteElementSt ring("label1_Wi dth", "100")
myXmlTextWriter .WriteEndElemen t()
myXmlTextWriter .Flush()
myXmlTextWriter .Close()
End Sub

Ken
--------------

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.0.0 - Release Date: 6/2/2004

[Cor Ligthert]

Hi John,

Thanks to the message from Ken, I am seeing now what you are doing.
(I did not look that far when I saw the XMLwriter.)

You try to write it using the XMLwriter and read it using the dataset.read
XML
(This part only is for the writing of the dataset, see for the reading Kens
message)

Try this
Dim ds as new dataset("CPView er")
dim dt as new datatable("tabl e1")
ds.tables.add(d t)
dt.columns.add( "Height")
etc.
than you can do
dim dr as new datarow = dt.newrow

dr("Height") = InputBoxHeight. text
etc.

dt.add(dr)
ds.writeXML(pat h)

Maybe it looks more difficult, my expirience is that it is very easy to use.

Cor

[jcrouse]

Cor....I have no idea what your talking about. You must have me or my post confused with someone else

John

[Cor Ligthert]

Hi John,

When I hadded sended it I thought that as well sorry, however see my other
post.

Cor

[jcrouse]

Well Cor....Here's the story. It doesn't seem to like the following line

Dim dr As New DataRow(dt.NewR ow

It tells me that it is not accessable in this context because it is protected

Also, the following line has an error

dt.add(dt

It tells me that "add" is not a member of "system.data.da tatable

What now
Joh

[Cor Ligthert]

Hi John,

Well Cor....Here's the story. It doesn't seem to like the following line:

Dim dr As New DataRow(dt.NewR ow) (I do really not know why I wrote this, this one does absolute not exist it
has to be)
dim dr as datarow = dt.newrow
Also, the following line has an error:
dt.add(dt)

I think a typo from you because I wrote
ds.add(dt)

I show it better to you

You declare the ds global because you need it probably in more places.
Private ds as dataset

Than in your load event of your form you check using the fileinfo if the
XMLfile exist.

When the file exist you do ds.readXML(file path)

When not you create an empty dataset

ds = new dataset("CPView er")
'this create an empty dataset
dim dt as new datatable("Form 1")
'this create an empty table
ds.tables.add(d t)
'this set a referenence from the dataset to the table, as normaly is said
it places the table in the dataset.
dt.columns.add( "Textbox1Height ")
dt.columns.add( "Textbox2Width" )
'this add columns
You can create a lot of columns
And you create as well a lot of tables just as you like

To fill the items you do,
dim dr as datarow = ds.tables("Form 1").newrow
dr("Height")=2 0
dr("Widht")=21
ds.tables("Form 1").rows.add(dr )

I hope this goes better?

Cor

[jcrouse]

Cor....That's better. It seems to work now. Here is my code:

Dim ds As New DataSet("CPView er")
Dim dt1 As New DataTable("P1Jo yUp")
Dim dt2 As New DataTable("P1Jo yLeft")
ds.Tables.Add(d t1)
dt1.Columns.Add ("Height")
dt1.Columns.Add ("Width")
ds.Tables.Add(d t2)
dt2.Columns.Add ("Height")
dt2.Columns.Add ("Width")

Dim dr1 As DataRow = ds.Tables("P1Jo yUp").NewRow
dr1("Height") = lblP1JoyUp.Heig ht
dr1("Width") = lblP1JoyUp.Widt h
Dim dr2 As DataRow = ds.Tables("P1Jo yLeft").NewRow
dr2("Height") = lblP1JoyLeft.Wi dth
dr2("Width") = lblP1JoyLeft.Wi dth

ds.Tables("P1Jo yUp").Rows.Add( dr1)
ds.Tables("P1Jo yLeft").Rows.Ad d(dr2)

ds.WriteXml("C: \CPViewer\CPVie wer.XML")

Now, how am I going to handle writing out the fore color, back color and font of the labels and the background image of the form? This was the part that gave me trouble before. Keep it simple, I'm a n00b.

Thank for your help,
John

"Cor Ligthert" wrote:

Hi John,

Well Cor....Here's the story. It doesn't seem to like the following line:

Dim dr As New DataRow(dt.NewR ow)

(I do really not know why I wrote this, this one does absolute not exist it
has to be)
dim dr as datarow = dt.newrow

Also, the following line has an error:
dt.add(dt)

I think a typo from you because I wrote
ds.add(dt)

I show it better to you

You declare the ds global because you need it probably in more places.
Private ds as dataset

Than in your load event of your form you check using the fileinfo if the
XMLfile exist.

When the file exist you do ds.readXML(file path)

When not you create an empty dataset

ds = new dataset("CPView er")
'this create an empty dataset
dim dt as new datatable("Form 1")
'this create an empty table
ds.tables.add(d t)
'this set a referenence from the dataset to the table, as normaly is said
it places the table in the dataset.
dt.columns.add( "Textbox1Height ")
dt.columns.add( "Textbox2Width" )
'this add columns
You can create a lot of columns
And you create as well a lot of tables just as you like

To fill the items you do,
dim dr as datarow = ds.tables("Form 1").newrow
dr("Height")=2 0
dr("Widht")=21
ds.tables("Form 1").rows.add(dr )

I hope this goes better?

Cor

[Cor Ligthert]

Hi John,

You mean something as this
\\\
Dim label1fontcolor As String = Me.Label1.ForeC olor.ToString
Dim label1font As String = Me.Label1.Font. ToString
Dim label1backcolor As String = Me.Label1.BackC olor.ToString
///
You have to extract them of course to use them again, have as well a look at
the split for that.

I saw in other messages you are not using the background image as set in the
resource so I assume that is just saving the path.

I hope this helps?

Cor

Cor....That's better. It seems to work now. Here is my code: <...> Now, how am I going to handle writing out the fore color, back color and

font of the labels and the background image of the form? This was the part
that gave me trouble before. Keep it simple, I'm a n00b.