Question

VB如何记录窗口位置

一个程序里面有一个按钮负责打开一个窗口，我想让这个窗口在关闭后，下次打开的时候还能在被关闭时的位置打开，也就是在关闭时能够保存当前窗口的位置信息，下次打开可以重新读取信息让窗口在原来的位置打开，请问这样该怎么做？尽量简单一点的办法，我只需要知道窗口的位置，不用知道大小，因为这个窗口的大小是固定的
我只需要在程序运行期间记下那个窗口的坐标就是了，不需要以文件的保存在本地，这个窗口是我这个程序的子窗口，并不是程序窗口本身，我想用全局变量来实现这个坐标的记录，但是不知道如何获取窗口当前的坐标，也不知道如何在打开窗口的时候赋给它位置

Answer 1

丑话说在前头，没有简单的方法。

在Form的Unload事件中，记录窗口的屏幕坐标，用文件操作保存在文件中，或用注册表编程技术保存在注册表中。
在Form的Load事件中，读取文件或注册表，然后把数值赋值给窗口的坐标。

Answer 2

private sub form_unload(cancel as integer)
SaveSetting app.Title, "set", "top", Me.top
SaveSetting app.Title, "set", "left", Me.Left
end sub
private sub form_load
Me.top=val(getSetting( app.Title, "set", "top"))
Me.left=val(getSetting( app.Title, "set", "left"))
end sub

追问

这个怎么用，全局变量是什么，看不懂

追答

没有变量，用的是注册表：
form_unload：关闭时把位置存入注册表
form_load：打开时读取注册表

追问

问一下存入注册表的信息会在程序关闭时被删除么，如果不能自己删除的话岂不成注册表垃圾项了？

追答

程序关闭时删除了，程序启动时如何调用？
可以删除，但不是自动删除

追问

我只是想在程序运行中记录子窗口的位置，并不想让它关闭后还保存位置，这个该怎么做？我觉得程序还是尽量少生成一些没必要的垃圾项比较好……

Answer 3

两个窗体是否是包含关系，我这以不是为例 假设子窗体为form2
新建一个模块，输入
public x as integer
public y as integer
在打开按钮里输入
form2.show
form2.move x ,y

在form2的unload事件中
输入
x=form2.left
y=form2.top

这样就行了

追问

试了一下可以，但是窗口有一个非常明显的闪动过程，打开时在系统默认的位置闪了一下立刻跑到了指定的位置，能不能在打开的同时就直接把这个位置赋进去，不要先打开再移动？

追答

form2.show
form2.move x ,y
这两句颠倒一下就行了

Answer 4

保存成ini文件比较好。网上有现成的函数，你到百度搜索“vb操作ini”
x = Form1.Left
y = Form1.Top
再把x和y存入ini文件中。

ini格式的写法类似于这样：
[Option]
x=100
y=100