Location forms in a form

Status
Niet open voor verdere reacties.
B

bonnowagt

Gebruiker
Lid geworden
7 dec 2006
Berichten
445
Ik heb een groot form die diverse andere forms huisvest en wel als volgt:
Code: 
  Me.WindowState = FormWindowState.Maximized
            raadplegen2.TopLevel = False
            raadplegen2.TopMost = True
            Me.Controls.Add(raadplegen2)
            raadplegen2.Location = New Point(1, 107)
            raadplegen2.Show()
        
            Invoer2.TopLevel = False
            Invoer2.TopMost = True
            Me.Controls.Add(Invoer2)
            Invoer2.Location = New Point(600, 107)
            Invoer2.Show()

enz.

Vervolgens kan er met de forms geschoven worden in het grote form naar ieders wens. Maar de forms komen nu uiteraard op een andere location te staan. Bij het opnieuw opstarten komen de forms uiteraard weer in de oorsprokelijke position te staan. Hoe kan ik nu vastleggen wart de nieuwe position zijn zodat bij het heropstarten de nieuwe indeling te zien is.

Vriendelijke groet
 
Sla die gegevens op in een initialisatiebestand die dan bij je programma hoort.
Ook zou je het kunnen doen via eigen registersleutels voor je programma.
Gebruik hiervoor het HKEY_CURRENT_USER gedeelte.
 
Laatst bewerkt:
Hoi,


Ik heb al wat gezocht op google, maar kwam er niet uit vond ook wat over plaatsen in my.settings enz., maar zou jij mij eventueel wat code kunnen sturen.
 
Die my.Settings is inderdaad ook nog een mogelijkheid.
Als ik er vanavond tijd voor krijg zal ik kijken of ik een voorbeeldje voor je kan maken.
 
Bij deze de code die gebruik maakt van My.Settings voor een formulier locatie:
Code: 
Public Class Form1
    Public Sub New()
        InitializeComponent()
        Me.StartPosition = FormStartPosition.Manual
        Me.Location = New Point(My.Settings.PosX, My.Settings.PosY)
    End Sub

    Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        My.Settings.PosX = Me.Location.X
        My.Settings.PosY = Me.Location.Y
        My.Settings.Save()
    End Sub
End Class

Sub New() wordt uitgevoerd bij het laden van het formulier.
Sub Form1_Closing wanneer het formulier wordt gesloten.

Uiteraard moet je in je project wel die Settings (PosX en PosY) aanmaken.
Dat zijn Integer variabelen.
Zie het plaatje waar je dat moet doen:
MySettings.JPG
 
Laatst bewerkt:
Bedankt voor je snelle reactie,

Jouw code is geschreven voor het hoofdformulier volgens mij. Maar het gaat om tien andere formulieren die in het hoofdformulier zitten. Deze kunnen ook niet gesloten worden, alleen het hoofdformulier sluit alles. Moet ik de code dan in alle 10 formulieren verweken?. En **** roep ik de code weer op als ik opnieuw opstart
 
Ik weet uiteraard niet wat je allemaal hebt, dus ja, het is een voorbeeld.
Maar daar zou je genoeg aan moeten hebben om het in je project te verwerken.
Dat zal je dan inderdaad per formulier moeten doen.
 
Hoi,

Het is gelukt heb de code wat aangepast en in elk formulier deze geplaatst. Vervolgens in het hoofdformulier het gdeelte voor het laden geplaatst.
Een knop geplaatst op het hoofdformulier om de formulieren weer in de oorspronkelijke staat terug te zetten indien gewenst. Werkt perfect en mijn dank is dan ook groot.

Vr. groet
 
Ok dan :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan