monalisa
asked on
Application restarting at the same location
I want my application to start at the same location from where it is closed. To be brief if the user moves the window to some other location and quit the application, when he restarts the application it should start from where it is quited.
I want to konw how I can get the co-ordinates while applicaiton termination, save them in registry and use them while restart.
I want to konw how I can get the co-ordinates while applicaiton termination, save them in registry and use them while restart.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
cymbolic:
Huh?
Huh?
ASKER
I am sorry for the delayed response, lot of thanks for your help.
Unless you understood cymbolic's answer (I believe it was an answer to another question), please reject it sp that I may post my answer.
Private Sub Form_Unload(Cancel As Integer)
SaveSetting appname := "MyApp", section := "Startup", key := "Top", setting := Me.Top
SaveSetting appname := "MyApp", section := "Startup", key := "Left", setting := Me.Left
SaveSetting appname := "MyApp", section := "Startup", key := "Height", setting := Me.Height
SaveSetting appname := "MyApp", section := "Startup", key := "Width", setting := Me.Width
End Sub
Then, in the code which starts your app (Sub Main?), place the following code:
Sub Main()
Dim fTop As Single
Dim fLeft As Single
Dim fHeight As Single
Dim fWidth As Single
fTop = GetSetting(appname := "MyApp", section := "Startup", key := "Top", default := Form1.Top)
fLeft = GetSetting(appname := "MyApp", section := "Startup", key := "Left", default := Form1.Left)
fHeight = GetSetting(appname := "MyApp", section := "Startup", key := "Height", default := Form1.Height)
fWidth = GetSetting(appname := "MyApp", section := "Startup", key := "Width", default := Form1.Width)
Form1.Move fLeft, fTop, fWidth, fHeight
End Sub