Remind Window pos in VB.Net [Resolved]

[Bongo]

Greetings,

how can I get the "last" windows possition in vb.net.
I tried the example below but I get a error

"E:\...\...\frmMain.vb(95): 'Option Strict On' lässt keine impliziten
Konvertierungen von System.Object in System.Drawing.Point zu."

in the line

Dim pt As Point = xs.Deserialize(fs)

I don't know why.
(Where a the good old days of VB6)

BTW I actually like to safe the Window Pos in the registry but
what I read so far this is not recommendet.

Thanks in advance

[Pirate]

Do it this way . Location encapsulate the "X" and "Y" of the form .

Dim position As Point = Me.Location

[Bongo]

Thanks Pirate it works

The code snipets looking now - but as you can see in the outputfile

<?xml version="1.0"?>
<Point xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<X>0</X>
<Y>0</Y>
</Point>>

where is the size of the window????

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'Prüfen ob App wirklich beendet werden soll
        If MessageBox.Show(Application.ProductName & " schliessen?", Application.ProductName & " - Info", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then
            e.Cancel = True
        End If
 
        Dim xs As New Xml.Serialization.XmlSerializer(GetType(Point))
        Dim fs As New IO.FileStream("form.config", IO.FileMode.OpenOrCreate)
        xs.Serialize(fs, Me.Location)
        fs.Close()
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mstrAppTitle = Application.ProductName & " " & Application.ProductVersion & " - (" & Application.StartupPath & ")"
        Me.Text = mstrAppTitle
 
        If IO.File.Exists("form.config") Then
            Dim xs As New Xml.Serialization.XmlSerializer(GetType(Point))
            Dim fs As New IO.FileStream("form.config", IO.FileMode.OpenOrCreate)
            Dim pt As Point = Me.Location
            fs.Close()
            Me.Location = pt
        End If
    End Sub

[Pirate]

I thought you're wanting to save the location of the form . Here's how to get the size of the form in a Size variable .

Dim siz As Size = Me.Size

[Bongo]

Size and Location

tried the t hing with the Me.Size but got error

[Pirate]

Originally posted by Bongo
Size and Location

tried the t hing with the Me.Size but got error

What does the error say and where did you put that code ?

[Bongo]

the closing method looks like to work (see below) but
the loading seems not to work.

<?xml version="1.0"?>
<Point xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<X>14</X>
<Y>-1</Y>
</Point><?xml version="1.0"?>
<Size xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<Width>996</Width>
<Height>715</Height>
</Size>

I tried xsLocation.de

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
           Dim xsLocation As New Xml.Serialization.XmlSerializer(GetType(Point))
        Dim xsSize As New Xml.Serialization.XmlSerializer(GetType(Size))
        Dim fs As New IO.FileStream("form.config", IO.FileMode.OpenOrCreate)
        xsLocation.Serialize(fs, Me.Location)
        xsSize.Serialize(fs, Me.Size)
        fs.Close()
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           If IO.File.Exists("form.config") Then
            Dim xsLocation As New Xml.Serialization.XmlSerializer(GetType(Point))
            Dim xsSize As New Xml.Serialization.XmlSerializer(GetType(Size))
            Dim fs As New IO.FileStream("form.config", IO.FileMode.OpenOrCreate)
            Dim ptLocation As Point = xsLocation.Deserialize(fs) ' Me.Location
            Dim ptSize As Size = xsSize.Deserialize(fs) ' Me.Size
            fs.Close()
            Me.Location = ptLocation
            Me.Size = ptSize
        End If
    End Sub

[Pirate]

Try to put the load event code in the constructor if still doesn't work , try putting it in the OnLoad method of the form . btw , are you sure you're getting the correct values from the file ? You maybe need to check them using messagebox .

[Bongo]

The values are correct writen to the file.

the prob is in the load meth. see comments in code.

The meaning of the msg in english is:
Option Strict on does not allow a impliziert convercion of
System.Objects in System.Drawing.point.

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists("formLocation.config") Then
            Dim xsLocation As New Xml.Serialization.XmlSerializer(GetType(Point))
            Dim fsLocation As New IO.FileStream("formLocation.config", IO.FileMode.OpenOrCreate)
'the next line gives the error
'E:\...\frmMain.vb(95): 'Option Strict On' lässt keine impliziten Konvertierungen von System.Object in System.Drawing.Point zu.
            Dim ptLocation As Point = xsLocation.Deserialize(fsLocation) ' Me.Location
            Me.Location = ptLocation
            fsLocation.Close()
        End If
        If IO.File.Exists("formSize.config") Then
            Dim xsSize As New Xml.Serialization.XmlSerializer(GetType(Size))
            Dim fsSize As New IO.FileStream("FormSize.config", IO.FileMode.OpenOrCreate)
'the next line gives the error
'E:\...\frmMain.vb(95): 'Option Strict On' lässt keine impliziten Konvertierungen von System.Object in System.Drawing.Point zu.
            Dim ptSize As Size = xsSize.Deserialize(fsSize) ' Me.Size
            Me.Size = ptSize
        End If

[Pirate]

Use DirectCast function that forces the conversion .

DirectCast(xsLocation.Deserialize(fsLocation), Point)

Check file names , I think the chunk code inside the if structure isn't executed .

[Bongo]

It works
Thanks Pirate,

I put the to working procedures _Closing and _Load below for
the fellow developers with the same prob.

Thanks again.

BTW would it work if I put all in one file? and if yes how?

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'Prüfen ob App wirklich beendet werden soll
        If MessageBox.Show(Application.ProductName & " schliessen?", Application.ProductName & " - Info", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.No Then
            e.Cancel = True
        End If
 
        Dim xsLocation As New Xml.Serialization.XmlSerializer(GetType(Point))
        Dim fsLocation As New IO.FileStream("fLocation.config", IO.FileMode.OpenOrCreate)
        xsLocation.Serialize(fsLocation, Me.Location)
        fsLocation.Close()
 
        Dim xsSize As New Xml.Serialization.XmlSerializer(GetType(Size))
        Dim fsSize As New IO.FileStream("fSize.config", IO.FileMode.OpenOrCreate)
        xsSize.Serialize(fsSize, Me.Size)
        fsSize.Close()
 
    End Sub
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mstrAppTitle = Application.ProductName & " " & Application.ProductVersion & " - (" & Application.StartupPath & ")"
        Me.Text = mstrAppTitle
 
        If IO.File.Exists("fLocation.config") Then
            Dim xsLocation As New Xml.Serialization.XmlSerializer(GetType(Point))
            Dim fsLocation As New IO.FileStream("fLocation.config", IO.FileMode.OpenOrCreate)
            Dim ptLocation As New System.Xml.XmlTextReader(fsLocation)
            Me.Location = DirectCast(xsLocation.Deserialize(ptLocation), Point)
            fsLocation.Close()
        End If
        If IO.File.Exists("fSize.config") Then
            Dim xsSize As New Xml.Serialization.XmlSerializer(GetType(Size))
            Dim fsSize As New IO.FileStream("FSize.config", IO.FileMode.OpenOrCreate)
            Dim ptSize As New System.Xml.XmlTextReader(fsSize)
            Me.Size = DirectCast(xsSize.Deserialize(ptSize), Size)
            fsSize.Close()
        End If
    End Sub

[Pirate]

I think you can write all these stuff in one file but you maybe need more code to handle xml nodes and such stuff(messy work ) . Well , if you're just saving the location and the size of the form , it's much better to save them in the registry . Notepad uses it too . 99% of the applications write their settings in the reg . I don't know why it's not recommended though ....

[Bongo]

I think so as well, as i mentioned before I saw this now in a few
postings. It is verry bad to write with VB.Net to the registry.
(I was writing all the years to the reg and I and my clients
been happy about this)

But this is a new topic and I dont want to be guilty
starting a holly war between the followers of this message and the others.

What i think is a good approch is to write a methode and passing
the values to this funktion.